show the ftp server invoke line when -d is used

1 files changed, 4 insertions, 0 deletions

diff --git a/tests/runtests.pl b/tests/runtests.pl
index e2590ab01..748ec7fb5 100755
--- 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
     }