Re: Run before exit

[b10m]

Wouldn't that be executed as well with die()?

[moritz]

Yes. I didn't parse the "only" in the original question correctly. If it should really only be triggered by exit, it might be useful to override it (CORE::exit IIRC).

[almut]

(CORE::exit IIRC)

Use CORE::GLOBAL::exit() to override — CORE::exit() is the original exit builtin that you'd typically call from within your redefined exit routine...

Update: an example:

#!/usr/bin/perl

BEGIN {
    *CORE::GLOBAL::exit = sub (;$) {
        print STDERR "in overridden exit(): @_\n";
        CORE::exit(88);
    };
}

exit 99;