Some &footer without header fixes.

diff --git a/Web.pm b/Web.pm
index 5bc35e6..89b5604 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -492,7 +492,10 @@ sub footer()
 {
        cluck 'Explicit &footer call is deprecated' if !$W->{"_exit_ran"};
        exit if $W->{"footer_passed"}++;        # deadlock prevention:
-       exit if $W->{"header_only"};
+       if ($W->{"header_only"}) {
+               $packages_used_hash{$W->{"__PACKAGE__"}}{"_done"}=1;
+               exit;
+               }
 
        Wprint vskip if $W->{"footer_delimit"};
        &{$_}() for reverse @{$W->{"footing_delimit_sub_push"}};