YA resync with mainstem, including VMS patches from others

[p5sagit/p5-mst-13.2.git] / eg / g / gsh

diff --git a/eg/g/gsh b/eg/g/gsh
index 5ac8a4b..4bc5d87 100644 (file)
--- 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 $
+# $RCSfile: gsh,v $$Revision: 4.1 $$Date: 92/08/07 17:20:20 $
 
 # 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';