5 files changed, 8 insertions, 8 deletions
diff --git a/eg/g/gcp b/eg/g/gcp
index 6b4a9a79f7..9485772c5f 100644
--- a/eg/g/gcp
+++ b/eg/g/gcp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: gcp,v 2.0 88/06/05 00:17:02 root Exp $
+# $Header: gcp,v 3.0 89/10/18 15:13:59 lwall Locked $
 
 # Here is a script to do global rcps.  See man page.
 
@@ -98,7 +98,7 @@ line: while (<>) {
 
 if ($remainder) {
     chop($remainder);
-    open(grem,">.grem") || (printf stderr "Can't create .grem\n");
+    open(grem,">.grem") || (printf stderr "Can't create .grem: $!\n");
     print grem 'rem=', $remainder, "\n";
     close(grem);
     print 'rem=', $remainder, "\n";
diff --git a/eg/g/gcp.man b/eg/g/gcp.man
index 83c5d85ca4..e14534beb8 100644
--- a/eg/g/gcp.man
+++ b/eg/g/gcp.man
@@ -1,4 +1,4 @@
-.\" $Header: gcp.man,v 2.0 88/06/05 00:17:05 root Exp $
+.\" $Header: gcp.man,v 3.0 89/10/18 15:14:09 lwall Locked $
 .TH GCP 1C "13 May 1988"
 .SH NAME
 gcp \- global file copy
diff --git a/eg/g/ged b/eg/g/ged
index bb7c222b3a..ef1867a20d 100644
--- a/eg/g/ged
+++ b/eg/g/ged
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: ged,v 2.0 88/06/05 00:17:08 root Exp $
+# $Header: ged,v 3.0 89/10/18 15:14:22 lwall Locked $
 
 # Does inplace edits on a set of files on a set of machines.
 #
diff --git a/eg/g/gsh b/eg/g/gsh
index 50ce1f7b00..b60deb20b7 100644
--- a/eg/g/gsh
+++ b/eg/g/gsh
@@ -1,6 +1,6 @@
 #!/bin/perl
 
-# $Header: gsh,v 2.0 88/06/05 00:17:20 root Exp $
+# $Header: gsh,v 3.0 89/10/18 15:14:36 lwall Locked $
 
 # Do rsh globally--see man page
 
@@ -85,8 +85,8 @@ line: while (<>) {		# for each line of ghosts
 	    }
 	    close(pipe);
 	} else {
+	    print "(Can't execute rsh: $!)\n";
 	    $SIG{'INT'} = 'cont';
-	    print "(Can't execute rsh.)\n";
 	}
     }
 }
@@ -95,7 +95,7 @@ unlink "/tmp/gsh$$" if $dodist;
 
 if ($remainder) {
     chop($remainder);
-    open(grem,">.grem") || (printf stderr "Can't make a .grem file\n");
+    open(grem,">.grem") || (printf stderr "Can't make a .grem file: $!\n");
     print grem 'rem=', $remainder, "\n";
     close(grem);
     print 'rem=', $remainder, "\n";
diff --git a/eg/g/gsh.man b/eg/g/gsh.man
index 4522129df0..08bed19978 100644
--- a/eg/g/gsh.man
+++ b/eg/g/gsh.man
@@ -1,4 +1,4 @@
-.\" $Header: gsh.man,v 2.0 88/06/05 00:17:23 root Exp $
+.\" $Header: gsh.man,v 3.0 89/10/18 15:14:42 lwall Locked $
 .TH GSH 8 "13 May 1988"
 .SH NAME
 gsh \- global shell