From ec7176a762a7df4d5eeff663455702ca80a54e9d Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 14 Nov 2004 19:37:13 +0000
Subject: [PATCH] $W->{"heading"} is no longer ambiguous subref or bool. Just
 subref now.

---
 Web.pm | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/Web.pm b/Web.pm
index ea9b928..2ab9c00 100644
--- a/Web.pm
+++ b/Web.pm
@@ -111,7 +111,6 @@ my($class,%args)=@_;
 	do { $W->{$_}=0  if !defined $W->{$_}; } for ("detect_ent");
 	do { $W->{$_}=0  if !defined $W->{$_}; } for ("detect_js");
 	do { $W->{$_}=1  if !defined $W->{$_}; } for ("have_css");	# AFAIK it does not hurt anyone.
-	do { $W->{$_}=1  if !defined $W->{$_}; } for ("heading");
 	do { $W->{$_}=1  if !defined $W->{$_}; } for ("footer");
 	do { $W->{$_}=1  if !defined $W->{$_}; } for ("footer_delimit");
 	do { $W->{$_}=1  if !defined $W->{$_}; } for ("footer_mailme");
@@ -297,9 +296,7 @@ sub footer (;$)
 
 	Wprint vskip if $W->{"footer_delimit"};
 
-	if ($W->{"heading"}) {
-		do { &{$_}() if $_; } for ($W->{"footing_delimit"});
-		}
+	do { &{$_}() if $_; } for ($W->{"footing_delimit"});
 
 	Wprint "<hr />\n" if $W->{"footer"};
 
@@ -370,9 +367,7 @@ sub footer (;$)
 		Wprint '<!-- '.$package.' - $'.$cvs_id.'$ -->'."\n" if $cvs_id;
 		}
 
-	if ($W->{"heading"}) {
-		do { &{$_}() if $_; } for ($W->{"footing"});
-		}
+	do { &{$_}() if $_; } for ($W->{"footing"});
 
 	Wprint "</body></html>\n";
 	exit(0);
@@ -706,9 +701,7 @@ HERE
 	do { &{$_}($W) if $_; } for $W->{"body_attr_sub"};
 	Wprint ">\n";
 
-	if ($W->{"heading"}) {
-		do { &{$_}() if $_; } for ($W->{"heading"});
-		}
+	do { &{$_}() if $_; } for ($W->{"heading"});
 }
 
 BEGIN {
-- 
1.8.3.1