X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCarp.pm;h=43524ddbe54b3be0ffee749b92f2a42c730d8521;hb=a85d93d9d5c06911d843f281439a8d3e65aeb165;hp=eaa4d53d8a3b6cc42e29441b15e07e53f407fc7f;hpb=3b5ca523bc72bce199abcb9d5ec13af5913a4d2d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Carp.pm b/lib/Carp.pm
index eaa4d53..43524dd 100644
--- a/lib/Carp.pm
+++ b/lib/Carp.pm
@@ -94,7 +94,7 @@ sub export_fail {
 # each function call on the stack.
 
 sub longmess {
-    require Carp::Heavy;
+    { local $@; require Carp::Heavy; }	# XXX fix require to not clear $@?
     goto &longmess_heavy;
 }
 
@@ -106,7 +106,7 @@ sub longmess {
 # you always get a stack trace
 
 sub shortmess {	# Short-circuit &longmess if called via multiple packages
-    require Carp::Heavy;
+    { local $@; require Carp::Heavy; }	# XXX fix require to not clear $@?
     goto &shortmess_heavy;
 }