Re: Repost: usage of die inside a mod_perl Apache handler shows notthe expected behavior

[Silvio Wanka <Si...@alcatel.de>]

Matt Sergeant wrote:
> 
> On Mon, 26 Nov 2001, Silvio Wanka wrote:
> 
> > Hi,
> >
> > I repost this, because I got no respond:
> >
> > I use the following configuration:
> >
> >   <LocationMatch /(xx|yy)>
> >    PerlHandler    Apache::MyPkg
> >    SetHandler     perl-script
> >   </LocationMatch>
> >
> > and the handler is defined in this way:
> >
> >   package Apache::MyPkg
> >
> >   require 5.005;
> >
> >   require Apache::Request;
> >
> >   use     constant TmpDir => '/var/tmp';
> >   use     strict;
> >
> >   sub handler ($)
> >   {
> >       my $apr = Apache::Request->instance(shift, TEMP_DIR => TmpDir);
> >
> >       ...
> >   }
> >
> > But the first which I have not expected is that $^S is always true
> > inside this handler. The other problem is that
> >
> >         die "text which does not end in a newline"
> >
> > shows
> >
> >         text which does not end in a newline during global destruction.\n
> >
> > instead the expected
> >
> >         text which does not end in a newline at __FILE__ line __LINE__.\n
> >
> > Is this a bug in mod_perl? I use mod_perl 1.25 and Perl 5.00503. 5.6 is no
> > choice, because there is a known incompatibility of mod_perl, Perl 5.6 and
> > the platform I must use.
> 
> You probably have a $SIG{__DIE__} handler somewhere installed. Try adding
> local $SIG{__DIE__}; to the top of your sub. If that doesn't work, I'm
> lost.
> 
> --
> <Matt/>

I have already tried this, because CGI::Carp sets an own $SIG{__DIE__} handler,
but it is the same. Old versions of CGI::Carp does not use $^S to determine if
the die() was called inside an eval, and so the problem was not visible, but
the current version uses $^S and this is set.

--
Silvio