Mercurial > hg > nginx-tests
changeset 280:3dd8c7acf3ad
Tests: fix couple of possible warnings in proxy_upgrade.t.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Tue, 16 Apr 2013 17:28:30 +0400 |
parents | c754b1c79efe |
children | 53068d38a3ce |
files | proxy_upgrade.t |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/proxy_upgrade.t +++ b/proxy_upgrade.t @@ -156,7 +156,7 @@ sub upgrade_connect { while (1) { $buf = upgrade_getline($s); - last unless length $buf; + last unless defined $buf and length $buf; log_in($buf); $got .= $buf; last if $got =~ /\x0d?\x0a\x0d?\x0a$/; @@ -168,7 +168,9 @@ sub upgrade_connect { # make sure next line is "handshaked" - return if upgrade_read($s) ne 'handshaked'; + $buf = upgrade_read($s); + + return if !defined $buf or $buf ne 'handshaked'; return $s; }