Front page | perl.perl5.porters |
Postings from October 1999
Re: deprecating SIGDIE
Thread Previous
|
Thread Next
From:
Nick Ing-Simmons
Date:
October 2, 1999 05:11
Subject:
Re: deprecating SIGDIE
Message ID:
199910021211.NAA00710@bactrian.ni-s.u-net.com
Ilya Zakharevich <ilya@math.ohio-state.edu> writes:
>Nick Ing-Simmons writes:
>> If so, may I request a new "keyword" ("thow" would seem to suit)
>> which does not have all these bells, whistles, and baroque twiddly
>> bits?
>
>You mean you cannot code:
>
>sub register_error {
> local @SIG{ qw(__DIE__ __EXCEPTION__) };
For forward compatibility...
local @SIG{ map("__\U{$_}__",Thesuarus->new->synonyms('die')) };
>
>Btw, if all you want is putting error message in $@, why not use
>${'@@'} instead? ;-) Make your evals put things *there*, and check
>this location.
Hmm,
SV *sv = perl_get_sv("Tk::__exception__");
sv_setpv(sv,"break");
die("Don't care what happens to this");
That fixes that. But still does not fix:
eval { require $path };
if ($@ =~ /.../)
{
}
>
>Ilya
--
Nick Ing-Simmons
Thread Previous
|
Thread Next