(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

diff --git a/Porting/findvars b/Porting/findvars
index 2e81244..b91753b 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)