Handling exit within an eval

So I've run into a problem with mod_perlite, and it's that I cannot just override Perl's exit function with a straight perl_destruct call, a longjmp back to the Apache handler, or anything else at all.

• Here's how it's handled in mod_perl.


• And then there's this possible workaround using goto.


• Shockingly, this works, too.

bar.pl:

 exit;

package Foo;


sub new {

return bless { };

}

sub DESTROY {

print "Foo is destroyed\n";

}

1;

use Foo;


my $foo = Foo->new;

print "I have a foo!\n";

BEGIN { *CORE::GLOBAL::exit = sub { goto EXIT; }; }

eval {

bar("bar.pl");

}; if ($@) {

print "$@ happens\n";

}

print "And I'm still here\n";

sub bar {

eval require $_[0];

EXIT:

print "Exiting!\n";

goto REALLY_EXIT;

}

REALLY_EXIT:

I have a foo!
Exiting!
Foo is destroyed.