From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 16 Mar 2007 08:41:02 +0000 (+0000)
Subject: Remove the abort() trap, which Larry said was actually only ever
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1bd9b63a6f9fb1ff545c1522739c385d3c1902f;p=p5sagit%2Fp5-mst-13.2.git

Remove the abort() trap, which Larry said was actually only ever
intended as a way to enter gdb by using local $^L

p4raw-id: //depot/perl@30603
---

diff --git a/scope.c b/scope.c
index 68aa8c2..b6b876b 100644
--- a/scope.c
+++ b/scope.c
@@ -165,12 +165,6 @@ S_save_scalar_at(pTHX_ SV **sptr)
     SV * const osv = *sptr;
     register SV * const sv = *sptr = newSV(0);
 
-#ifdef PERL_MAD
-    /* FIXME for MAD - this is causing ext/Safe/t/safeops.t to abort.  */
-    if (PL_formfeed && sv == PL_formfeed)
-	abort();
-#endif
-
     if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv) && SvTYPE(osv) != SVt_PVGV) {
 	if (SvGMAGICAL(osv)) {
 	    const bool oldtainted = PL_tainted;