I would like to add some text each time someone calls die. in my books says this shoud work *CORE::GLOBAL::die = sub { ... }
can someone give me a example?
Are you wantgint to capture die and continue? Web sites such as the following are disappearing quickly:
http://iis1.cps.unizar.es/Oreilly/perl/cookbook/ch16_18.htm
However, logging errors is better:
use strict; use Sys::Syslog;
# Set the userID, if known... my $usrID = `/usr/bin/whoami`; my $target = @ARGV ? $ARGV[0] : 'unknown';
$|++ = 1;
# Whatever triggered event...
# Log it... (Example only...)
openlog("in.fingerd", "ndelay", "daemon");
syslog("notice",
"Local %s tried giving the finger request.\n",
$usrID, $target);closelog();
__END__
exit; HTH/Bill
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
