aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2016-03-28 11:57:36 +1100
committerBen Elliston <bje@gnu.org>2016-03-28 11:57:36 +1100
commitaa17137860e32dfe5120528dfe462ebc018bba82 (patch)
tree22574abe61a444d64e9e1ef58de100388e9b2e3d
parentc3c0aef7bd632b5884d331e09be0aa5e50dce997 (diff)
downloaddejagnu-aa17137860e32dfe5120528dfe462ebc018bba82.zip
dejagnu-aa17137860e32dfe5120528dfe462ebc018bba82.tar.gz
dejagnu-aa17137860e32dfe5120528dfe462ebc018bba82.tar.bz2
* lib/rlogin.exp (rlogin_open): Return -1 if unable to spawn
rlogin. Identified by Frink.
-rw-r--r--ChangeLog5
-rw-r--r--lib/rlogin.exp2
2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index cd21a92..d24649d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2016-03-28 Ben Elliston <bje@gnu.org>
+ * lib/rlogin.exp (rlogin_open): Return -1 if unable to spawn
+ rlogin. Identified by Frink.
+
+2016-03-28 Ben Elliston <bje@gnu.org>
+
* runtest.exp: Use 'array exists' for testing array existence
rather than 'info exists'.
diff --git a/lib/rlogin.exp b/lib/rlogin.exp
index e5db0b0..3a4df29 100644
--- a/lib/rlogin.exp
+++ b/lib/rlogin.exp
@@ -59,7 +59,7 @@ proc rlogin_open { arg } {
spawn $RLOGIN $hostname
if { $spawn_id < 0 } {
perror "invalid spawn id from rlogin"
- return
+ return -1
}
set board_info($arg,fileid) $spawn_id