On approximately 7/18/2003 10:14 AM, came the following characters from the keyboard of Carl Jolley:
On Fri, 18 Jul 2003, Farrington, Ryan wrote:
Grrrrrrr still didn't catch the error =(
-----Original Message----- From: Burak G?rsoy [mailto:[EMAIL PROTECTED] Sent: Thursday, July 17, 2003 1:06 PM To: [EMAIL PROTECTED] Subject: RE: REWRITE RE: Error trapping
ok, try this one:
#!/usr/bin/perl -w use strict; BEGIN { $| = 1; $SIG{__DIE__} = sub
--------------------------^ Shouldn't there be a { after the "sub"?
my $msg = shift; EventLogger("PERL Service", "error", "666", "$msg\n\n"); exit; }; }
# add your code here...
If you don't want to die when you exit from your $SIG{__DIE__} subroutine you will have to do a goto a label outside the sub.
**** [EMAIL PROTECTED] <Carl Jolley> **** All opinions are my own and not necessarily those of my employer ****
_______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
-- Glenn -- http://nevcal.com/ =========================== Like almost everyone, I receive a lot of spam every day, much of it offering to help me get out of debt or get rich quick. It's ridiculous. -- Bill Gates
_______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
