Quoting problem in standard_send

[Daniel Jacobowitz]

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 ""