From 464be3c8b5207c9a349c864d3f50c8d47b18525e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 29 Mar 2016 21:20:20 +0100
Subject: [PATCH] cgi-fcgi-interp: Test program does more useful things

---
 cprogs/cgi-fcgi-test | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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