&footer: +$W->{"footer_sub_push"} hook.

diff --git a/Web.pm b/Web.pm
index 9aafbab..ae4a0a8 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -531,6 +531,7 @@ sub footer()
 {
        cluck 'Explicit &footer call is deprecated, !_exit_dne' if !$W->{"_exit_done"};
        exit if $W->{"footer_done"}++;  # deadlock prevention:
+       &{$_}() for reverse @{$W->{"footer_sub_push"}};
        if ($W->{"header_only"}) {
                $packages_used_hash{$W->{"__PACKAGE__"}}{"_done"}=1;
                exit;