Ankur Gupta [AG], on Friday, May 20, 2005 at 14:37 (+0530) wrote the
following:
AG> BEGIN {
AG> $SIG{__WARN__} = sub{ print STDERR @_; exit 1};
AG> }
AG> warn "I am going to die\n";
AG> I hope you are looking for something like this.
thanks a lot, this is exactly what I wanted.
--
How do you protect mail on web? I use http://www.2pu.net
["Eyes forward, Fox!" -Falco]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
