From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 28 Apr 2005 07:36:55 +0000 (+0000)
Subject: kill slave processes when they fail
X-Git-Tag: curl-7_14_0~104
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8cf17862965ab409ecac07f1330352bd78d362b8;p=curl

kill slave processes when they fail
---

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 6559b0ba0..a3837f934 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -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";