This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the abort() trap, which Larry said was actually only ever
authorNicholas Clark <nick@ccl4.org>
Fri, 16 Mar 2007 08:41:02 +0000 (08:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 16 Mar 2007 08:41:02 +0000 (08:41 +0000)
intended as a way to enter gdb by using local $^L

p4raw-id: //depot/perl@30603

scope.c

diff --git a/scope.c b/scope.c
index 68aa8c2..b6b876b 100644 (file)
--- 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;