Front page | perl.perl5.porters |
Postings from September 1999
Re: deprecating SIGDIE
Thread Previous
|
Thread Next
From:
Gisle Aas
Date:
September 30, 1999 06:51
Subject:
Re: deprecating SIGDIE
Message ID:
m3btakecee.fsf@eik.g.aas.no
Tom Christiansen <tchrist@jhereg.perl.com> writes:
> The code patch to restore $SIG{__DIE__} to its intended behaviour
> is trivial:
Nice.
> --- /usr/src/perl5.005_61-prehack/util.c Thu Sep 30 06:25:13 1999
> +++ /usr/src/perl5.005_61/util.c Thu Sep 30 06:25:07 1999
> @@ -1448,7 +1448,11 @@
> DEBUG_S(PerlIO_printf(PerlIO_stderr(),
> "%p: die: message = %s\ndiehook = %p\n",
> thr, message, PL_diehook));
> - if (PL_diehook) {
> + /*
> + * Added test so that a die hook only triggers
> + * if the exception is uncaught. tchrist 30/Sept/99
> + */
I wonder how the perl source would look like if every patcher added
history comments like this.
> + if (PL_diehook && !was_in_eval) {
> /* sv_2cv might call Perl_croak() */
> SV *olddiehook = PL_diehook;
> ENTER;
Regards,
Gisle
Thread Previous
|
Thread Next