From: Kurt D. Starsinic Date: Wed, 29 Sep 1999 15:16:50 +0000 (-0400) Subject: (Was: deprecating SIGDIE) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e52752b5f49a78716f0f99e5101dfe233b32cb0;p=p5sagit%2Fp5-mst-13.2.git (Was: deprecating SIGDIE) To: Gurusamy Sarathy Cc: tchrist@perl.com, Larry Wall , The Perl Porters Mailing List Message-ID: <19990929151650.E26675@O2.chapin.edu> p4raw-id: //depot/cfgperl@4257 --- diff --git a/Porting/findvars b/Porting/findvars index 2e81244..b91753b 100755 --- a/Porting/findvars +++ b/Porting/findvars @@ -238,7 +238,6 @@ osname pad_reset_pending padix padix_floor -parsehook patchlevel patleave pending_ident diff --git a/embedvar.h b/embedvar.h index fcaa0d4..beaa960 100644 --- a/embedvar.h +++ b/embedvar.h @@ -353,7 +353,6 @@ #define PL_pad_reset_pending (PERL_GET_INTERP->Ipad_reset_pending) #define PL_padix (PERL_GET_INTERP->Ipadix) #define PL_padix_floor (PERL_GET_INTERP->Ipadix_floor) -#define PL_parsehook (PERL_GET_INTERP->Iparsehook) #define PL_patchlevel (PERL_GET_INTERP->Ipatchlevel) #define PL_pending_ident (PERL_GET_INTERP->Ipending_ident) #define PL_perl_destruct_level (PERL_GET_INTERP->Iperl_destruct_level) @@ -630,7 +629,6 @@ #define PL_pad_reset_pending (vTHX->Ipad_reset_pending) #define PL_padix (vTHX->Ipadix) #define PL_padix_floor (vTHX->Ipadix_floor) -#define PL_parsehook (vTHX->Iparsehook) #define PL_patchlevel (vTHX->Ipatchlevel) #define PL_pending_ident (vTHX->Ipending_ident) #define PL_perl_destruct_level (vTHX->Iperl_destruct_level) @@ -909,7 +907,6 @@ #define PL_Ipad_reset_pending PL_pad_reset_pending #define PL_Ipadix PL_padix #define PL_Ipadix_floor PL_padix_floor -#define PL_Iparsehook PL_parsehook #define PL_Ipatchlevel PL_patchlevel #define PL_Ipending_ident PL_pending_ident #define PL_Iperl_destruct_level PL_perl_destruct_level diff --git a/intrpvar.h b/intrpvar.h index a53d38b..cc3eff5 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -23,7 +23,6 @@ PERLVAR(Ihintgv, GV *) PERLVAR(Iorigfilename, char *) PERLVAR(Idiehook, SV *) PERLVAR(Iwarnhook, SV *) -PERLVAR(Iparsehook, SV *) PERLVAR(Icddir, char *) /* switches */ PERLVAR(Iminus_c, bool) PERLVARA(Ipatchlevel,10,char) diff --git a/mg.c b/mg.c index f50e4a0..ca07b83 100644 --- a/mg.c +++ b/mg.c @@ -905,8 +905,6 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg) svp = &PL_diehook; else if (strEQ(s,"__WARN__")) svp = &PL_warnhook; - else if (strEQ(s,"__PARSE__")) - svp = &PL_parsehook; else Perl_croak(aTHX_ "No such hook: %s", s); i = 0; diff --git a/objXSUB.h b/objXSUB.h index 7a8e0aa..362af7a 100644 --- a/objXSUB.h +++ b/objXSUB.h @@ -372,8 +372,6 @@ #define PL_padix (*Perl_Ipadix_ptr(aTHXo)) #undef PL_padix_floor #define PL_padix_floor (*Perl_Ipadix_floor_ptr(aTHXo)) -#undef PL_parsehook -#define PL_parsehook (*Perl_Iparsehook_ptr(aTHXo)) #undef PL_patchlevel #define PL_patchlevel (*Perl_Ipatchlevel_ptr(aTHXo)) #undef PL_pending_ident diff --git a/perl.c b/perl.c index c7cbe7e..d0d4e9a 100644 --- a/perl.c +++ b/perl.c @@ -328,8 +328,6 @@ perl_destruct(pTHXx) PL_warnhook = Nullsv; SvREFCNT_dec(PL_diehook); PL_diehook = Nullsv; - SvREFCNT_dec(PL_parsehook); - PL_parsehook = Nullsv; /* call exit list functions */ while (PL_exitlistlen-- > 0)