1 files changed, 17 insertions, 0 deletions
diff --git a/tests/ftp.pm b/tests/ftp.pm
new file mode 100644
index 000000000..390c21459
--- /dev/null
+++ b/tests/ftp.pm
@@ -0,0 +1,17 @@
+# make sure no leftovers are still running
+sub ftpkillslaves {
+    for $ext (("", "ipv6")) {
+        for $id (("", "2")) {
+            for $base (('filt', 'data')) {
+                my $f = ".sock$base$id$ext.pid";
+                my $pid = checkserver($f);
+                if($pid > 0) {
+                    kill (9, $pid); # die!
+                }
+                unlink($f);
+            }
+        }
+    }
+}
+
+1;