diff options
author | Yang Tse <yangsita@gmail.com> | 2010-01-18 17:47:01 +0000 |
---|---|---|
committer | Yang Tse <yangsita@gmail.com> | 2010-01-18 17:47:01 +0000 |
commit | 0a713139f6a0ee8b55b8bb9839059c5b5e4d99a1 (patch) | |
tree | 7c4937142e163a0cc83b4211d26af5eabcf6ee85 /tests | |
parent | 0687bc6bd617de33fa5e8e53428993896a3fd4e7 (diff) |
fix warnings
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/runtests.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index 06eb01c43..2b74f6b47 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -728,7 +728,7 @@ sub verifyhttp { sub verifyftp { my ($proto, $ipvnum, $idnum, $ip, $port) = @_; my $server = servername_id($proto, $ipvnum, $idnum); - my $pid; + my $pid = 0; my $time=time(); my $extra=""; if($proto eq "ftps") { @@ -755,7 +755,7 @@ sub verifyftp { last; } } - if($pid <= 0 && $data[0]) { + if($pid <= 0 && @data && $data[0]) { # this is not a known server logmsg "RUN: Unknown server on our ". uc($proto) ." port: $port\n"; return 0; |