diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-03-29 21:26:28 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-03-29 21:26:28 +0100 |
commit | 35afae5c4b0c65ce438062fe79400f6b4641f785 (patch) | |
tree | fabd4486d3918067deaff97bcfd989bcf83c2ae0 /cprogs | |
parent | 8580c01e56b331d0f036b87002eda62f16ab7c0e (diff) |
cgi-fcgi-interp: test script prints pids etc.
Diffstat (limited to 'cprogs')
-rwxr-xr-x | cprogs/cgi-fcgi-test | 10 |
1 files changed, 6 insertions, 4 deletions
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++; } |