[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Quoting problem in standard_send
From: |
Daniel Jacobowitz |
Subject: |
Quoting problem in standard_send |
Date: |
Tue, 28 Aug 2007 13:41:55 -0400 |
User-agent: |
Mutt/1.5.15 (2007-04-09) |
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 <address@hidden>
* 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 ""
- Quoting problem in standard_send,
Daniel Jacobowitz <=