From 485661d56ca12847dd02b7faffe6f6095dff9ce2 Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 3 Jan 2005 10:43:38 +0000
Subject: [PATCH] Fixed &fatal to always prepend the error with heading.
 Removed unused $W->{"heading_passed"}.

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

diff --git a/Web.pm b/Web.pm
index cdce885..c4dd46d 100644
--- a/Web.pm
+++ b/Web.pm
@@ -287,6 +287,8 @@ my($msg)=@_;
 	$msg="UNKNOWN" if !$msg;
 
 	$W->{"indexme"}=0;	# For the case no heading was sent yet.
+	$W->{"heading_done"}=0;	# for the case of already sent {"header_only"}==1
+	$W->{"header_only"}=0;	# assurance for &heading
 	My::Web->heading();
 	Wprint "\n".vskip("3ex")."<hr /><h1 class=\"error\">FATAL ERROR: $msg!</h1>\n"
 			."<p>You can report this problem's details to"
@@ -685,8 +687,6 @@ sub heading ()
 {
 my($class)=@_;
 
-	return if $W->{"heading_passed"}++;
-
 	# $ENV{"CLIENT_CHARSET"} ignored (mod_czech support dropped!)
 	my $client_charset=$W->{"force_charset"} || "us-ascii";
 	header("Content-Style-Type"=>"text/css");
-- 
1.8.3.1