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

1 files changed, 0 insertions, 6 deletions

diff --git a/scope.c b/scope.c
index 68aa8c2651..b6b876b392 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;