now reports the CORRECT pid on demand

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index 0c9a42c2c6944a6f8edf46bcf9012c4366102db3..9b409a9edad1652a6fdf4e3447d519611260fecc 100755 (executable)
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -39,6 +39,8 @@ open(PID, ">.http.pid");
 print PID $$;
 close(PID);
 
+my $PID=$$;
+
 my $waitedpid = 0;
 my $paddr;
 
@@ -119,7 +121,7 @@ for ( $waitedpid = 0;
         elsif($path =~ /verifiedserver/) {
             # this is a hard-coded query-string for the test script
             # to verify that this is the server actually running!
-            print "HTTP/1.1 999 WE ROOLZ: $$\r\n";
+            print "HTTP/1.1 999 WE ROOLZ: $PID\r\n";
             exit;
         }
         else {