From 3b73e70029ed79fc6db00c39c4798c486c8ea7f8 Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 21 Sep 2005 04:57:49 +0000
Subject: [PATCH] Fixed occasional &footer output where it should not have
 been.

---
 Web.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Web.pm b/Web.pm
index 3661bd4..5bc35e6 100644
--- a/Web.pm
+++ b/Web.pm
@@ -492,6 +492,7 @@ sub footer()
 {
 	cluck 'Explicit &footer call is deprecated' if !$W->{"_exit_ran"};
 	exit if $W->{"footer_passed"}++;	# deadlock prevention:
+	exit if $W->{"header_only"};
 
 	Wprint vskip if $W->{"footer_delimit"};
 	&{$_}() for reverse @{$W->{"footing_delimit_sub_push"}};
@@ -958,6 +959,7 @@ sub cache_start()
 			}
 		last if OK==$status;
 		$W->{"r"}->status($status);
+		$W->{"header_only"}=1;	# Inhibit &footer output.
 		exit;
 		die "NOTREACHED";
 		}
-- 
1.8.3.1