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

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

Replies are listed 'Best First'.
Re^6: Program unexpectedly terminates
by tobyink (Canon) on Nov 19, 2012 at 10:33 UTC

    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]
      Thanks, I didn't realize that one.


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

In Section Seekers of Perl Wisdom