You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl@perl.apache.org by Arshavir Grigorian <ag...@m-cam.com> on 2005/07/22 02:18:22 UTC

CGI::Carp

Hello list,

Not sure when this started happening, but at some point calling 
CGI::Carp::carp() started resulting in deep recursion within 
CGI::Carp::warn() eventually killing the process. I think the recursion 
is caused by the following:

$main::SIG{__WARN__}=\&CGI::Carp::warn;

sub realwarn { CORE::warn(@_); }

sub warn {
    ...
    return realwarn $message;
}

Is this a bug in the code or am I reading this wrong?




Arshavir

Re: CGI::Carp

Posted by Arshavir Grigorian <ag...@m-cam.com>.

Arshavir Grigorian wrote:
> Hello list,
> 
> Not sure when this started happening, but at some point calling 
> CGI::Carp::carp() started resulting in deep recursion within 
> CGI::Carp::warn() eventually killing the process. I think the recursion 
> is caused by the following:
> 
> $main::SIG{__WARN__}=\&CGI::Carp::warn;
> 
> sub realwarn { CORE::warn(@_); }
> 
> sub warn {
>    ...
>    return realwarn $message;
> }
> 
> Is this a bug in the code or am I reading this wrong?

In case anyone is curious, it was a Perl bug (#36521) and has now been 
fixed.