diff options
| author | Kurt D. Starsinic <kstar@wolfetech.com> | 1999-09-29 11:16:50 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-30 09:48:33 +0000 |
| commit | 8e52752b5f49a78716f0f99e5101dfe233b32cb0 (patch) | |
| tree | 4ba8e5ab44bf2da02cfa1cd42a47cb795f5d0686 | |
| parent | dae78bb16a19ac7f9a4bba0f6b4615eb3c221bf3 (diff) | |
| download | perl-8e52752b5f49a78716f0f99e5101dfe233b32cb0.tar.gz | |
(Was: deprecating SIGDIE)
To: Gurusamy Sarathy <gsar@ActiveState.com>
Cc: tchrist@perl.com, Larry Wall <larry@wall.org>,
The Perl Porters Mailing List <perl5-porters@perl.org>
Message-ID: <19990929151650.E26675@O2.chapin.edu>
p4raw-id: //depot/cfgperl@4257
| -rwxr-xr-x | Porting/findvars | 1 | ||||
| -rw-r--r-- | embedvar.h | 3 | ||||
| -rw-r--r-- | intrpvar.h | 1 | ||||
| -rw-r--r-- | mg.c | 2 | ||||
| -rw-r--r-- | objXSUB.h | 2 | ||||
| -rw-r--r-- | perl.c | 2 |
6 files changed, 0 insertions, 11 deletions
diff --git a/Porting/findvars b/Porting/findvars index 2e81244ac8..b91753bbbe 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 fcaa0d4390..beaa960874 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 a53d38b325..cc3eff5e0b 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) @@ -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; @@ -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 @@ -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) |