Stop mod_perl looping forever in &Carp::shortmess_jmp as it somehow

manages to forcibly re-load Carp.pm without re-loading Carp/Heavy.pm

p4raw-id: //depot/perl@29382

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/Carp.pm b/lib/Carp.pm
index 15e39e599c..52ccd76092 100644
--- a/lib/Carp.pm
+++ b/lib/Carp.pm
@@ -1,6 +1,6 @@
 package Carp;
 
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 # this file is an utra-lightweight stub. The first time a function is
 # called, Carp::Heavy is loaded, and the real short/longmessmess_jmp
 # subs are installed
@@ -32,13 +32,13 @@ sub longmess_jmp  {
     local($@, $!);
     eval { require Carp::Heavy };
     return $@ if $@;
-    goto &longmess_jmp;
+    goto &longmess_real;
 }
 sub shortmess_jmp  {
     local($@, $!);
     eval { require Carp::Heavy };
     return $@ if $@;
-    goto &shortmess_jmp;
+    goto &shortmess_real;
 }
 
 sub croak   { die  shortmess @_ }