This patch fixes a TCL error in standard_send. You can't quote
a string by saying eval "{$string}" - if the string has an unmatched
open brace in it that will fail. You need to either reference the
variable or use "list" to apply the right quoting.
--
Daniel Jacobowitz
CodeSourcery
2007-08-28 Daniel Jacobowitz <[EMAIL PROTECTED]>
* lib/remote.exp (standard_send): Correct quoting.
Index: lib/remote.exp
===================================================================
RCS file: /cvsroot/dejagnu/dejagnu/lib/remote.exp,v
retrieving revision 1.28
diff -u -p -r1.28 remote.exp
--- lib/remote.exp 14 Jun 2006 00:41:01 -0000 1.28
+++ lib/remote.exp 28 Aug 2007 17:39:45 -0000
@@ -637,8 +637,8 @@ proc standard_send { dest string } {
} else {
set shell_id [board_info $dest fileid]
verbose "shell_id in standard_send is $shell_id" 3
- verbose "send -i [board_info $dest fileid] -- {$string}" 3
- if {[catch "send -i [board_info $dest fileid] -- {$string}" errorInfo]}
{
+ verbose "send -i [board_info $dest fileid] -- $string" 3
+ if {[catch "send -i [board_info $dest fileid] -- \$string" errorInfo]} {
return "$errorInfo"
} else {
return ""
_______________________________________________
DejaGnu mailing list
DejaGnu@gnu.org
http://lists.gnu.org/mailman/listinfo/dejagnu
