Mercurial > hg > nginx-tests
changeset 875:c380b4b7e2e4
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 | 66b8e350b9c8 |
children | a6abbfed42c0 |
files | lib/Test/Nginx/Stream.pm |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/Test/Nginx/Stream.pm Tue Mar 22 16:21:51 2016 +0300 +++ b/lib/Test/Nginx/Stream.pm Tue Mar 22 18:50:56 2016 +0300 @@ -110,7 +110,7 @@ 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;