From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 29 Mar 2016 20:26:28 +0000 (+0100)
Subject: cgi-fcgi-interp: test script prints pids etc.
X-Git-Tag: archive/debian/5.0.0~44
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=commitdiff_plain;h=35afae5c4b0c65ce438062fe79400f6b4641f785;hp=8580c01e56b331d0f036b87002eda62f16ab7c0e

cgi-fcgi-interp: test script prints pids etc.
---

diff --git a/cprogs/cgi-fcgi-test b/cprogs/cgi-fcgi-test
index 48dfbdc..4c8d7b7 100755
--- a/cprogs/cgi-fcgi-test
+++ b/cprogs/cgi-fcgi-test
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 $SIG{'TERM'} = sub {
-    eval { print REALSTDERR "[real-stderr] closing\n"; };
+    eval { print REALSTDERR "[$$ real-stderr] closing\n"; };
     exit 15;
 };
 
@@ -18,7 +18,9 @@ use FCGI;
 my $count = 0;
 my $request = FCGI::Request();
 
-warn;
+warn "[$$ starting]";
+print STDERR "[$$ stderr starting]\n";
+print REALSTDERR "[$$ real-stderr starting]\n";
 
 while ($request->Accept >= 0) {
     print <<END;
@@ -27,7 +29,7 @@ Content-Type; text/plain
 success
 count=$count
 END
-    print STDERR "[stderr] serviced $count.\n";
-    print REALSTDERR "[real-stderr] serviced $count.\n";
+    print STDERR "[$$ stderr] serviced $count.\n";
+    print REALSTDERR "[$$ real-stderr] serviced $count.\n";
     $count++;
 }