report pid back in the WE ROOLZ message

1 files changed, 7 insertions, 3 deletions

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 7c1b0aec6..76c68012d 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -211,9 +211,12 @@ sub RETR_command {
         # this is the secret command that verifies that this actually is
         # the curl test server
         print "150 Binary junk (10 bytes).\r\n";
-        print SOCK "WE ROOLZ\r\n";
+        print SOCK "WE ROOLZ: $$\r\n";
         close(SOCK);
         print "226 File transfer complete\r\n";
+        if($verbose) {
+            print STDERR "FTPD: We returned proof we are the test server\n";
+        }
         return 0;
     }
 
@@ -439,8 +442,9 @@ for ( $waitedpid = 0;
 
     print @welcome;
     if($verbose) {
-        print STDERR "OUT:\n";
-        print STDERR @welcome;
+        for(@welcome) {
+            print STDERR "OUT: $_";
+        }
     }
     my $state="fresh";