Fixed occasional &footer output where it should not have been.

diff --git a/Web.pm b/Web.pm
index 3661bd4..5bc35e6 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -492,6 +492,7 @@ sub footer()
 {
        cluck 'Explicit &footer call is deprecated' if !$W->{"_exit_ran"};
        exit if $W->{"footer_passed"}++;        # deadlock prevention:
+       exit if $W->{"header_only"};
 
        Wprint vskip if $W->{"footer_delimit"};
        &{$_}() for reverse @{$W->{"footing_delimit_sub_push"}};
@@ -958,6 +959,7 @@ sub cache_start()
                        }
                last if OK==$status;
                $W->{"r"}->status($status);
+               $W->{"header_only"}=1;  # Inhibit &footer output.
                exit;
                die "NOTREACHED";
                }