From aa17137860e32dfe5120528dfe462ebc018bba82 Mon Sep 17 00:00:00 2001
From: Ben Elliston <bje@gnu.org>
Date: Mon, 28 Mar 2016 11:57:36 +1100
Subject: 	* lib/rlogin.exp (rlogin_open): Return -1 if unable to spawn 
 rlogin. Identified by Frink.

---
 ChangeLog      | 5 +++++
 lib/rlogin.exp | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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
 
-- 
cgit v1.1