http://www.perlmonks.org?node_id=1004491


in reply to Re^2: Program unexpectedly terminates
in thread Program unexpectedly terminates

Thanks for the additional information. I didn't understand that you were trying to trap explicit calls to exit(). That makes sense, then.

Playing around more with the BEGIN block, I found that an exit() statement within another package was only overridden if the BEGIN block came before the package definition. Do you have this block before you include all of your modules?

Also, would Test::Trap be helpful?



When's the last time you used duct tape on a duct? --Larry Wall

Replies are listed 'Best First'.
Re^4: Program unexpectedly terminates
by Anonymous Monk on Nov 19, 2012 at 09:20 UTC
    Yes, the code in the main package is exactly what I'm using- only the Crawler package is abreviated. Test::Trap is basically an eval and only traps &CORE::GLOBAL::exit, so I don't think it does anything else than what I've tried.
[reply]

      Well, your code should be catching any normal exit case. You still won't be catching exit() within an eval block, but your END statement should happen nonetheless.

      I don't see any way forward other than basic debugging in order to narrow down where, exactly, this problem occurs.



      When's the last time you used duct tape on a duct? --Larry Wall
[reply]

        There's another case not covered: exec. Something like exec("/bin/true") will effectively exit a script without triggering any END blocks, etc.

        Illustration:

        #!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

BEGIN { *CORE::GLOBAL::exit = sub { die("exit called") } }
END { say "END block"; }

do { exec "/bin/true" }; # Assuming a Unix-like system here
say "got here";

        [download]
        perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom