X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;ds=sidebyside;f=Web.pm;h=c5c1ae9462f9679b29cabeec3bc291f56b4b9304;hb=00c99147e484912c0f0aed1243aebab117a7657c;hp=8244e59b7f34863866dec19a1a6511effcd159c9;hpb=312aff9cc8388402560b84502cb7dd09b035f3f9;p=MyWeb.git

diff --git a/Web.pm b/Web.pm
index 8244e59..c5c1ae9 100644
--- a/Web.pm
+++ b/Web.pm
@@ -306,7 +306,7 @@ sub exit_hook
 }
 sub exit_hook_start
 {
-	cluck "exit_hook_start() twice?" if defined $exit_orig;
+	do { cluck "exit_hook_start() twice?"; return; } if defined $exit_orig;
 	$exit_orig=\&CORE::GLOBAL::exit;
 	# Prevent: Subroutine CORE::GLOBAL::exit redefined
 	no warnings 'redefine';
@@ -316,7 +316,8 @@ sub exit_hook_stop
 {
 	do { cluck "exit_hook_stop() without exit_hook_start()?"; return; }
 			if \&exit_hook ne \&CORE::GLOBAL::exit;
-	cluck "INTERNAL: exit_orig uninitialized" if !$exit_orig;
+	do { cluck "INTERNAL: exit_orig uninitialized"; return; }
+			if !$exit_orig;
 	# Prevent: Subroutine CORE::GLOBAL::exit redefined
 	no warnings 'redefine';
 	*CORE::GLOBAL::exit=$exit_orig;