perl 3.0 patch #22 patch #19, continued

[p5sagit/p5-mst-13.2.git] / client

diff --git a/client b/client
index 97ecbc2..5900c90 100644 (file)
--- a/client
+++ b/client
@@ -19,7 +19,7 @@ if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }
 select(S); $| = 1; select(stdout);
 
 if ($child = fork) {
-    while (<>) {
+    while (<STDIN>) {
        print S;
     }
     sleep 3;