Changeset 19889

Timestamp:

09/25/08 12:11:51 (5 years ago)

Author:

mattn

Message:

escape from end-less loop.

Files:

• lang/perl/Test-TCP/trunk/t/01_simple.t (modified) (2 diffs)

lang/perl/Test-TCP/trunk/t/01_simple.t

@@ -24 +24 @@
         while (my $line = <$remote>) {
             print {$remote} $line;
+            return close $self->{sock} if $line =~ /quit/;
         }
     }
@@ -49 +50 @@
         my $res2 = <$sock>;
         is $res2, "bar\n";
+        print {$sock} "quit\n";
     },
     server => sub {