}
$SIG{'TERM'} = sub {
- eval { print REALSTDERR "[real-stderr] closing\n"; };
+ eval { print REALSTDERR "[$$ real-stderr] closing\n"; };
exit 15;
};
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;
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++;
}