perl 3.0 patch #14 patch #13, continued

See patch #13.

2 files changed, 8 insertions, 8 deletions

diff --git a/eg/g/gsh b/eg/g/gsh
index 5ac8a4b4aa..9de82a8df9 100644
--- a/eg/g/gsh
+++ b/eg/g/gsh
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-# $Header: gsh,v 3.0.1.1 90/02/28 17:14:10 lwall Locked $
+# $Header: gsh,v 3.0.1.2 90/03/12 16:34:11 lwall Locked $
 
 # Do rsh globally--see man page
 
@@ -75,16 +75,16 @@ line: while (<>) {		# for each line of ghosts
     if ($wanted > 0) {
 	print "rsh $host$l$n '$cmd'\n" unless $silent;
 	$SIG{'INT'} = 'DEFAULT';
-	if (open(pipe,"rsh $host$l$n '$cmd'$dist 2>&1|")) {	# start an rsh
+	if (open(PIPE,"rsh $host$l$n '$cmd'$dist 2>&1|")) {	# start an rsh
 	    $SIG{'INT'} = 'cont';
-	    for ($iter=0; <pipe>; $iter++) {
+	    for ($iter=0; <PIPE>; $iter++) {
 		unless ($iter) {
 		    $remainder .= "$host+"
 			if /Connection timed out|Permission denied/;
 		}
 		print $showhost,$_;
 	    }
-	    close(pipe);
+	    close(PIPE);
 	} else {
 	    print "(Can't execute rsh: $!)\n";
 	    $SIG{'INT'} = 'cont';
diff --git a/eg/scan/scanner b/eg/scan/scanner
index 8ef7fe8f5d..70d2af80c1 100644
--- a/eg/scan/scanner
+++ b/eg/scan/scanner
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: scanner,v 3.0 89/10/18 15:16:02 lwall Locked $
+# $Header: scanner,v 3.0.1.1 90/03/12 16:35:15 lwall Locked $
 
 # This runs all the scan_* routines on all the machines in /etc/ghosts.
 # We run this every morning at about 6 am:
@@ -68,15 +68,15 @@ scan: while ($scan = shift(@scanlist)) {
 		    $cmd = '/usr/bin/perl';
 		}
 		close(scan);
-		if (open(pipe,"exec rsh $host '$cmd' <.x|")) {
+		if (open(PIPE,"exec rsh $host '$cmd' <.x|")) {
 		    sleep(5);
 		    unlink '.x';
-		    while (<pipe>) {
+		    while (<PIPE>) {
 			last if $iter++ > 1000;		# must be looping
 			next if /^[0-9.]+u [0-9.]+s/;
 			print $showhost,$_;
 		    }
-		    close(pipe);
+		    close(PIPE);
 		} else {
 		    print "(Can't execute rsh: $!)\n";
 		}