fix warnings

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 06eb01c4301f85a4cf556804b7c4ba2e066a36b8..2b74f6b47ad23cbad9e5cd852f714983cbed5fe3 100755 (executable)
--- 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;