* lib/rlogin.exp (rlogin_open): Return -1 if unable to spawn

rlogin. Identified by Frink.
11 years ago · aa17137860
2 changed files with 6 additions and 1 deletions
--- a/5
+++ b/5
@ -1,3 +1,8 @@
+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
--- 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