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.

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'

Thanks, I didn't realize that one.


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