Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Run before exit

by b10m (Vicar)
on Jun 16, 2008 at 16:02 UTC ( #692295=note: print w/ replies, xml ) Need Help??


in reply to Re: Run before exit
in thread Run before exit

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

--
b10m


Comment on Re: Run before exit
Download Code
Re^2: Run before exit
by moritz (Cardinal) on Jun 16, 2008 at 16:14 UTC
    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).
      (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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://692295]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2014-09-02 09:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (20 votes), past polls