Dan Muey wrote:
[snip]
> $SIG{__WARN__} = ''; # or is undef or delete better??
> $SIG{__DIE__} = ''; # or is undef or delete better??
>
> That works like a charm but it does not work with $SIG{__DIE__} for some
> reason. It still just croaks as usual. Any ideas?
>
there are at least a couple of ways of doing that:
#!/usr/bin/perl -w
use strict;
BEGIN{
use subs qw(Carp::die);
use vars qw($e);
sub Carp::die{ $e = "Carp::die: @_" }
}
use Carp;
croak "croaking";
print "after croak \$e is: $e";
__END__
prints:
after croak $e is: Carp::die: croaking at x.pl line 10
another way to accomplish the same thing:
#!/usr/bin/perl -w
use strict;
BEGIN{
our $e;
*CORE::GLOBAL::die = sub{
$e = "CORE:GLOBAL::die => @_";
};
}
use Carp;
use vars qw($e);
croak "croaking";
print "after croak \$e is: $e";
__END__
prints:
after croak $e is: CORE:GLOBAL::die => croaking at x.pl line 10
i don't have time to check out the source of Carp.pm but if you do, i would
suggest you go take a look as there might be a better solution to it. out
of the 2 methods i described, the second one is more natural, imo.
david
--
sub'_{print"@_ ";* \ = * __ ,\ & \}
sub'__{print"@_ ";* \ = * ___ ,\ & \}
sub'___{print"@_ ";* \ = * ____ ,\ & \}
sub'____{print"@_,\n"}&{_+Just}(another)->(Perl)->(Hacker)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
