moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

kill slave processes when they fail

This commit is contained in:
Daniel Stenberg 2005-04-28 07:36:55 +00:00
parent 51b17b299c
commit 8cf1786296
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/ftpserver.pl
View File

@ -111,6 +111,8 @@ sub startsf {
my $pong = <SFREAD>;
if($pong !~ /^PONG/) {
logmsg "Failed sockfilt command: $cmd\n";
kill(9, $sfpid);
die "Failed to start sockfilt!";
}
open(STDIN, "<&SFREAD") || die "can't dup client to stdin";
@ -526,8 +528,9 @@ sub PASV_command {
my $pong = <DREAD>;
if($pong !~ /^PONG/) {
kill(9, $slavepid);
sendcontrol "500 no free ports!\r\n";
logmsg "couldn't find free port\n";
logmsg "failed to run sockfilt for data connection\n";
return 0;
}
@ -647,7 +650,8 @@ sub PORT_command {
my $pong = <DREAD>;
if($pong !~ /^PONG/) {
logmsg "sockfilt failed!\n";
logmsg "Failed sockfilt for data connection\n";
kill(9, $slavepid);
}
logmsg "====> Client DATA connect to port $port\n";