Patch by Jose Carlos Garcia Sogo <jsogo@debian.org> for perl-CGI-SpeedyCGI >= 2.22, which tries to
log exit messages on die(). See also: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=326442

--- CGI-SpeedyCGI-2.22/src/speedy_main.c			2003-10-07 06:03:48.000000000 +0200
+++ CGI-SpeedyCGI-2.22/src/speedy_main.c.exit_messages		2008-05-04 20:50:56.000000000 +0200
@@ -299,6 +299,7 @@
     /* Copy streams */
     while (1) {
 	/* Do reads/writes */
+	int close_stdout_delayed = 0;
 	for (i = 0; i < NUMFDS; ++i) {
 	    register CopyBuf *b = cb + i;
 	    int do_read  = my_canread(b) &&
@@ -346,11 +347,19 @@
 		/* Try to close files now, so we can wake up the backend
 		 * and do more I/O before dropping into select
 		 */
-		if (!do_read && !do_write)
-		    try_close(b);
+		if (!do_read && !do_write) {
+		    if (i == 1)
+			/* Delay closing STDOUT until all the other fds are closed */
+			close_stdout_delayed = 1;
+		    else
+			try_close(b);
+		}
 	    }
 	}
 
+	if (close_stdout_delayed)
+	    try_close(cb+1);
+
 	/* All done with reads/writes after backend exited */
 	if (backend_exited) {
 	    if (am_child) {