Change 13426: RE: More verbose POD for Carp

[Jarkko Hietaniemi]

Change 13426 by jhi@alpha on 2001/12/02 16:55:21

        Subject: RE: More verbose POD for Carp
        From: "Benjamin J. Tilly" <[EMAIL PROTECTED]>
        Date: Sun, 2 Dec 2001 11:32:51 -0500
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/Carp.pm#22 edit

Differences ...

==== //depot/perl/lib/Carp.pm#22 (text) ====
Index: perl/lib/Carp.pm
--- perl/lib/Carp.pm.~1~        Sun Dec  2 10:00:05 2001
+++ perl/lib/Carp.pm    Sun Dec  2 10:00:05 2001
@@ -155,7 +155,15 @@
 
 sub longmess {
     { local $@; require Carp::Heavy; } # XXX fix require to not clear $@?
-    goto &longmess_heavy;
+    # Icky backwards compatibility wrapper. :-(
+    my $call_pack = caller();
+    if ($Internal{$call_pack} or $CarpInternal{$call_pack}) {
+      return longmess_heavy(@_);
+    }
+    else {
+      local $CarpLevel = $CarpLevel + 1;
+      return longmess_heavy(@_);
+    }
 }
 
 
@@ -167,7 +175,10 @@
 
 sub shortmess {        # Short-circuit &longmess if called via multiple packages
     { local $@; require Carp::Heavy; } # XXX fix require to not clear $@?
-    goto &shortmess_heavy;
+    # Icky backwards compatibility wrapper. :-(
+    my $call_pack = caller();
+    local @CARP_NOT = caller();
+    shortmess_heavy(@_);
 }
 
 
End of Patch.