Changeset 376

Timestamp:

08/02/05 02:28:21 (5 years ago)

Author:

bradfitz

Message:

check for trueness first

Files:

• trunk/lib/Perlbal/Test/WebServer.pm (modified) (1 diff)

trunk/lib/Perlbal/Test/WebServer.pm

@@ -35 +35 @@
         my $line = <$sock>;
         die "Didn't get 200 OK: $line"
-            unless $line =~ /200 OK/;
+            unless $line && $line =~ /200 OK/;
         return $port;
     }