$W->{"heading"} is no longer ambiguous subref or bool. Just subref now.

diff --git a/Web.pm b/Web.pm
index ea9b928..2ab9c00 100644 (file)
--- 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 {