X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=eg%2Fscan%2Fscanner;h=70d2af80c1ed95563c0eec9243c06be6bdc12d32;hb=79a0689e17f959bdb246dc37bbbbfeba4c2b3b56;hp=8ef7fe8f5d697516030519ccbe1e583c1c7a0acd;hpb=ff2452de34aca0717369277df00e15764613e5c1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/eg/scan/scanner b/eg/scan/scanner
index 8ef7fe8..70d2af8 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";
 		}