summaryrefslogtreecommitdiff
path: root/tests/ftp.pm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/ftp.pm')
-rw-r--r--tests/ftp.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/ftp.pm b/tests/ftp.pm
index 6c5f9d353..078dc61f2 100644
--- a/tests/ftp.pm
+++ b/tests/ftp.pm
@@ -1,12 +1,13 @@
# make sure no leftovers are still running
sub ftpkillslaves {
+ my ($versbose) = @_;
for $ext (("", "ipv6")) {
for $id (("", "2")) {
for $base (('filt', 'data')) {
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);
+ printf ("* kill pid for %-5s => %-5d\n", "ftp-$base$id$ext", $pid) if($verbose);
kill (9, $pid); # die!
}
unlink($f);