CGI::Carp

[Arshavir Grigorian]

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