Loading tests/ftp.pm +1 −0 Original line number Diff line number Diff line Loading @@ -6,6 +6,7 @@ sub ftpkillslaves { my $f = ".sock$base$id$ext.pid"; my $pid = checkserver($f); if($pid > 0) { printf ("* kill pid for %-5s => %-5d\n", "ftp-$base$id$ext", $pid); kill (9, $pid); # die! } unlink($f); Loading tests/runtests.pl +1 −2 Original line number Diff line number Diff line Loading @@ -1571,9 +1571,8 @@ sub singletest { ####################################################################### # Stop all running test servers sub stopservers { print "Shutting down test suite servers:\n" if ($verbose); for(keys %run) { printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}) if($verbose); printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}); stopserver($run{$_}); # the pid file is in the hash table } ftpkillslaves(); Loading Loading
tests/ftp.pm +1 −0 Original line number Diff line number Diff line Loading @@ -6,6 +6,7 @@ sub ftpkillslaves { my $f = ".sock$base$id$ext.pid"; my $pid = checkserver($f); if($pid > 0) { printf ("* kill pid for %-5s => %-5d\n", "ftp-$base$id$ext", $pid); kill (9, $pid); # die! } unlink($f); Loading
tests/runtests.pl +1 −2 Original line number Diff line number Diff line Loading @@ -1571,9 +1571,8 @@ sub singletest { ####################################################################### # Stop all running test servers sub stopservers { print "Shutting down test suite servers:\n" if ($verbose); for(keys %run) { printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}) if($verbose); printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}); stopserver($run{$_}); # the pid file is in the hash table } ftpkillslaves(); Loading