develooper Front page | perl.perl5.porters | Postings from October 1999

Re: deprecating SIGDIE

Thread Previous | Thread Next
Nick Ing-Simmons
October 2, 1999 05:11
Re: deprecating SIGDIE
Message ID:
Ilya Zakharevich <> 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.

   SV *sv = perl_get_sv("Tk::__exception__"); 
   die("Don't care what happens to this");

That fixes that. But still does not fix:

   eval { require $path };
   if ($@ =~ /.../)

Nick Ing-Simmons

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About