moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-08-13 17:03:50 -04:00
Code Issues Releases Wiki Activity

Fix warning "Use of uninitialized value in ...".

Browse Source 
If the list has only one item avoid sort subroutine.
This commit is contained in:
Yang Tse 2006-11-18 04:05:42 +00:00
parent 74ddbd8a3b
commit 2e17a97474
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/ftp.pm
View File

@ -55,6 +55,7 @@ sub pidfromfile {
if(open(PIDF, "<$pidfile")) { if(open(PIDF, "<$pidfile")) {
my $pidline = <PIDF>; my $pidline = <PIDF>;
close(PIDF); close(PIDF);
if($pidline) {
chomp $pidline; chomp $pidline;
$pidline =~ s/^\s+//; $pidline =~ s/^\s+//;
$pidline =~ s/\s+$//; $pidline =~ s/\s+$//;
@ -64,6 +65,7 @@ sub pidfromfile {
} }
} }
} }
}
return $pid; return $pid;
} }
@ -150,6 +152,13 @@ sub signalpids {
if((not defined $signal) || (not defined $pids)) { if((not defined $signal) || (not defined $pids)) {
return; return;
} }
if($pids !~ /\s+/) {
# avoid sorting if only one pid
if(checkalivepid($pids) > 0) {
kill($signal, $pids);
}
return;
}
my $prev = 0; my $prev = 0;
for(sort({$a <=> $b} split(" ", $pids))) { for(sort({$a <=> $b} split(" ", $pids))) {
if($_ =~ $pidpattern) { if($_ =~ $pidpattern) {