Mercurial > hg > nginx-tests

diff lib/Test/Nginx/Stream.pm @ 875:c380b4b7e2e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: compatibility with perl < 5.12 in Stream.pm.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 22 Mar 2016 18:50:56 +0300
parents d2cb9ed7412e
children 25a4b2fdd3fb
line wrap: on
line diff
--- a/lib/Test/Nginx/Stream.pm
+++ b/lib/Test/Nginx/Stream.pm
@@ -110,7 +110,7 @@ sub io {
 		last if defined $read && --$read < 0;
 
 		my $buf = $self->read();
-		last unless length($buf);
+		last unless defined $buf and length($buf);
 
 		$data .= $buf;
 		last if defined $length && length($data) >= $length;