show the ftp server invoke line when -d is used

diff --git a/tests/runtests.pl b/tests/runtests.pl
index e2590ab013de10118e1b96923dd7cc08195923b3..748ec7fb566db0cd9a7e827c9700ac89af5beae3 100755 (executable)
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -154,6 +154,10 @@ sub runftpserver {
 
     if ($RUNNING != 1) {
         my $flag=$debugprotocol?"-v ":"";
+        if($debugprotocol) {
+            print "* Starts ftp server verbose:\n";
+            print "perl $srcdir/ftpserver.pl $flag $FTPPORT &\n";
+        }
         system("perl $srcdir/ftpserver.pl $flag $FTPPORT &");
         sleep 1; # give it a little time to start
     }