Re: [perl #36521] perlbug AutoReply: Deep recursion on subroutine "CGI::Carp::warn"

[Dirk Mueller]

On Wednesday 13 July 2005 00:11, [EMAIL PROTECTED] wrote:

>   [EMAIL PROTECTED]

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