From: short <>
Date: Wed, 21 Sep 2005 04:57:49 +0000 (+0000)
Subject: Fixed occasional &footer output where it should not have been.
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=3b73e70029ed79fc6db00c39c4798c486c8ea7f8

Fixed occasional &footer output where it should not have been.
---

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";
 		}