X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=33324e19ca0af5a66876c1e4daad477642a4519f;hp=9268953ddd7348895f8b3a83e50a686f9d7e4473;hb=3c9909485b397e99ee37a71931f87812823f5824;hpb=f144923df598ea0c6b4130278fe1bbfeeef7d928

diff --git a/Web.pm b/Web.pm
index 9268953..33324e1 100644
--- a/Web.pm
+++ b/Web.pm
@@ -296,7 +296,9 @@ my($msg)=@_;
 	cluck "FATAL: $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
+	# Do not send it unconditionally.
+	# The intial duplicated '<?xml...' crashes Gecko parser.
+	$W->{"heading_done"}=0 if $W->{"header_only"};
 	$W->{"header_only"}=0;	# assurance for &heading
 	My::Web->heading();
 	Wprint "\n".vskip("3ex")."<hr /><h1 class=\"error\">FATAL ERROR: $msg!</h1>\n"