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

ftp.pm: Made Perl testsuite able to handle Windows processes

Browse Source
This commit is contained in:
Marc Hoersken 2013-04-06 11:56:04 +02:00
parent 91252d9fb9
commit ac09b5a92b
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/ftp.pm
View File

@ -63,6 +63,14 @@ sub processexists {
my $pid = pidfromfile($pidfile);
if($pid > 0) {
# verify if currently existing Windows process
if($^O eq "msys") {
my $filter = "-fi \"PID eq $pid\"";
my $result = `tasklist $filter 2>nul`;
if(index($result, "$pid") != -1) {
return $pid;
}
}
# verify if currently alive
if(kill(0, $pid)) {
return $pid;
@ -222,6 +230,13 @@ sub killsockfilters {
printf("* kill pid for %s-%s => %d\n", $server,
($proto eq 'ftp')?'ctrl':'filt', $pid) if($verbose);
kill("KILL", $pid);
if($^O eq "msys") {
my $filter = "-fi \"PID eq $pid\"";
my $result = `tasklist $filter 2>nul`;
if(index($result, "$pid") != -1) {
system("taskkill -f $filter >nul 2>&1");
}
}
waitpid($pid, 0);
}
unlink($pidfile) if(-f $pidfile);
@ -236,6 +251,13 @@ sub killsockfilters {
printf("* kill pid for %s-data => %d\n", $server,
$pid) if($verbose);
kill("KILL", $pid);
if($^O eq "msys") {
my $filter = "-fi \"PID eq $pid\"";
my $result = `tasklist $filter 2>nul`;
if(index($result, "$pid") != -1) {
system("taskkill -f $filter >nul 2>&1");
}
}
waitpid($pid, 0);
}
unlink($pidfile) if(-f $pidfile);