fix warnings

This commit is contained in:
Yang Tse
2010-01-18 17:47:01 +00:00
parent 0687bc6bd6
commit 0a713139f6

View File

@@ -728,7 +728,7 @@ sub verifyhttp {
sub verifyftp { sub verifyftp {
my ($proto, $ipvnum, $idnum, $ip, $port) = @_; my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
my $server = servername_id($proto, $ipvnum, $idnum); my $server = servername_id($proto, $ipvnum, $idnum);
my $pid; my $pid = 0;
my $time=time(); my $time=time();
my $extra=""; my $extra="";
if($proto eq "ftps") { if($proto eq "ftps") {
@@ -755,7 +755,7 @@ sub verifyftp {
last; last;
} }
} }
if($pid <= 0 && $data[0]) { if($pid <= 0 && @data && $data[0]) {
# this is not a known server # this is not a known server
logmsg "RUN: Unknown server on our ". uc($proto) ." port: $port\n"; logmsg "RUN: Unknown server on our ". uc($proto) ." port: $port\n";
return 0; return 0;