diff options
| author | Christophe Lyon <christophe.lyon@linaro.org> | 2016-04-13 08:17:12 +1000 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2016-04-13 08:17:12 +1000 |
| commit | 0fbf12645b1bd7795f8c03dfbf59060e2f0e1669 (patch) | |
| tree | 31f2e5f676b63b6cfd055c274947108ca5259aa7 | |
| parent | edc6bd72d9c74230cf4336db3ca57b5596729d61 (diff) | |
| download | dejagnu-0fbf12645b1bd7795f8c03dfbf59060e2f0e1669.tar.gz dejagnu-0fbf12645b1bd7795f8c03dfbf59060e2f0e1669.tar.bz2 dejagnu-0fbf12645b1bd7795f8c03dfbf59060e2f0e1669.zip | |
* lib/rsh.exp (rsh_exec): Handle regexp return status.
Signed-off-by: Ben Elliston <bje@gnu.org>
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | lib/rsh.exp | 4 |
2 files changed, 7 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2016-04-13 Christophe Lyon <christophe.lyon@linaro.org> + + * lib/rsh.exp (rsh_exec): Handle regexp return status. + 2016-04-08 Ben Elliston <bje@gnu.org> Reported by Faraz Shahbazker. diff --git a/lib/rsh.exp b/lib/rsh.exp index 0e3eb07..6446db2 100644 --- a/lib/rsh.exp +++ b/lib/rsh.exp @@ -276,7 +276,9 @@ proc rsh_exec { boardname program pargs inp outp } { regsub "XYZ(\[0-9\]*)ZYX\n?" $output "" output return [list $status "$RSH to $boardname failed for $program, $output"] } - regexp "XYZ(\[0-9\]*)ZYX" $output junk status + if { [regexp "XYZ(\[0-9\]*)ZYX" $output junk status] == 0 } { + set status "" + } verbose "rsh_exec: status:$status text:$output" 4 if { $status == "" } { return [list -1 "Couldn't parse $RSH output, $output."] |