Re^3: goto in CORE::GLOBAL::exit

thats the same link i got the code from.

for mod_perl i use this code to exit. * Edited

use subs qw(exit); # this is also part of the exit mod_perl code
# if anyone cares

# Figure out how to exit mod_perl.
*exit   = $ENV{'MOD_PERL'} ? \&Apache::exit : sub { CORE::exit };
[download]

I was playing with another code like it but that one seemed to work better.

Comment on Re^3: goto in CORE::GLOBAL::exit - is it safe? Download Code

Replies are listed 'Best First'.
Re^4: goto in CORE::GLOBAL::exit - is it safe? by powerman (Friar) on Aug 30, 2007 at 16:41 UTC
... and &Apache::exit internally call die(). And so it fail to "exit" if this code executed inside eval. This is documented issue, you can read about it here. I just wonder why not solve this issue by replacing die() with goto()?	[reply]
Re^5: goto in CORE::GLOBAL::exit - is it safe? by SFLEX (Chaplain) on Aug 30, 2007 at 17:12 UTC
Let me suggest this link http://perl.apache.org/docs/1.0/guide/intro.html#Apache__Registry Now im starting to scratch my head. =D *Edited and this link maybe of some intrest also. http://perl.apache.org/docs/1.0/guide/porting.html#die___and_mod_perl	[reply]