show the ftp server invoke line when -d is used

curl · Mar 5, 2001 · 1717963 · 1717963
1 parent 4646a1f
commit 1717963
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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
     }