(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

1 files changed, 0 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index f50e4a065e..ca07b83467 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;