# HG changeset patch
# User Andrey Zelenkov <zelenkov@nginx.com>
# Date 1458661856 -10800
# Node ID c380b4b7e2e4daba294f2f2b93841b01841f7ed1
# Parent  66b8e350b9c84de2db0132c9b91d62f5670e40b7
Tests: compatibility with perl < 5.12 in Stream.pm.

diff --git a/lib/Test/Nginx/Stream.pm b/lib/Test/Nginx/Stream.pm
--- 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;