[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-porters
Subject:    Re: [perl #36521] perlbug AutoReply: Deep recursion on subroutine "CGI::Carp::warn"
From:       Dirk Mueller <dmuell () gmx ! net>
Date:       2005-07-13 1:51:38
Message-ID: 200507130351.39341.dmuell () gmx ! net
[Download RAW message or body]

On Wednesday 13 July 2005 00:11, perlbug-followup@perl.org wrote:

>   perlbug-followup@perl.org

And this patch fixes it: 

--- lib/diagnostics.pm
+++ lib/diagnostics.pm
@@ -503,7 +503,7 @@
            print STDERR $warning;
        }
     } 
-    goto &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne 
\&warn_trap;
+    &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap;
 };
 
 sub death_trap {



Dirk
[prev in list] [next in list] [prev in thread] [next in thread]