Fixed &fatal to always prepend the error with heading.

Removed unused $W->{"heading_passed"}.

diff --git a/Web.pm b/Web.pm
index cdce885..c4dd46d 100644 (file)
--- 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");