diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-12 04:13:22 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-12 04:13:22 +0000 |
| commit | 79a0689e17f959bdb246dc37bbbbfeba4c2b3b56 (patch) | |
| tree | 9d9d5ae4fd6a3bc9c009a7aebe90073c900a27a7 /eg/scan | |
| parent | ff2452de34aca0717369277df00e15764613e5c1 (diff) | |
| download | perl-79a0689e17f959bdb246dc37bbbbfeba4c2b3b56.tar.gz | |
perl 3.0 patch #14 patch #13, continued
See patch #13.
Diffstat (limited to 'eg/scan')
| -rw-r--r-- | eg/scan/scanner | 8 |
1 files changed, 4 insertions, 4 deletions
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"; } |