[Dresden-pm] Problem mit 'exit', 'die' und 'croak'

[Steffen Winkler]

"exit", war falsch beschrieben, weil: ist ja schon compiliert. Also in die Compilierungsphase geschoben:

 my $exit_code;
 BEGIN {
     *CORE::GLOBAL::exit = sub {
         $exit_code = shift;
     };
 }
 call_den_code_der_exit_aufruft();
 print "Das ist der exit_code $exit_code";
 my $mein_eigener_exit_code = 123;
 CORE::exit $mein_eigener_exit_code; # Entweder ruft man CORE::exit auf, also das Original oder man hebt sich den Code auf, bevor man überschreibt.


-- 
NEU: FreePhone - 0ct/min Handyspartarif mit Geld-zurück-Garantie!		
Jetzt informieren: http://www.gmx.net/de/go/freephone