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

[Steffen Winkler]

"die" kann man mit eval abfangen:

 eval {
     die 'blaaaa'; # oder croak, confess, ...
 }
 die "Dumm gelaufen weil $@";

"exit", indem man:
 my $exit_code;
 {
     local *CORE::GLOBAL::exit = sub {
         $exit_code = shift;
     };
     call_den_code_der_exit_aufruft();
 }
 # nach dem Block ist exit wieder so, wie es davor war
 print "Das ist der exit_code $exit_code";
 my $mein_eigener_exit_code = 123;
 exit $mein_eigener_exit_code;
-- 
Empfehlen Sie GMX DSL Ihren Freunden und Bekannten und wir
belohnen Sie mit bis zu 50,- Euro! https://freundschaftswerbung.gmx.de