Re: Signals and die message

Replies are listed 'Best First'.
Re^2: Signals and die message by Roy Johnson (Monsignor) on Feb 24, 2005 at 15:48 UTC
And note that the error message you gave `die()` is passed in as the first argument to the sub. (see `perldoc perlvar`) Caution: Contents may have been coded under pressure.	[reply] [d/l] [select]
Re^2: Signals and die message by EchoAngel (Pilgrim) on Feb 24, 2005 at 16:26 UTC
anyway to avoid seeing the message statement get outputed twice?	[reply]
Re^3: Signals and die message by Roy Johnson (Monsignor) on Feb 24, 2005 at 17:08 UTC
Exit during the signal handler: `$SIG{__DIE__} = sub { my $msg = shift; # This calls the real die die "What I really want to see"; }; die "Hide me!\n";` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^3: Signals and die message by mifflin (Curate) on Feb 24, 2005 at 17:44 UTC
If you are seeing it twice you are probably printing the error message in your handler. If you don't wrap your die in an eval you will see the message twice... `erickn@isfe:/home/erickn> cat y $SIG{__DIE__} = sub { print $_[0] }; die "hi"; erickn@isfe:/home/erickn> perl y hi at y line 4. hi at y line 4.` [download] Wrapping in an eval will stop it... `erickn@isfe:/home/erickn> cat x $SIG{__DIE__} = sub { print $_[0] }; eval { die "hi"; }; erickn@isfe:/home/erickn> perl x hi at x line 5.` [download]	[reply] [d/l] [select]