From: Gerard Goossen <gerard@tty.nl>
Date: Thu, 29 Mar 2007 18:02:29 +0000 (+0200)
Subject: MAD do not ignore errors from 'use'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53ae2428795d0b9d42a1657c22c5f1b557784379;p=p5sagit%2Fp5-mst-13.2.git

MAD do not ignore errors from 'use'
Message-ID: <20070329160229.GF20231@ostwald>

plus another similar correction

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

diff --git a/perl.c b/perl.c
index f04f4cc..c59f8e9 100644
--- a/perl.c
+++ b/perl.c
@@ -5173,8 +5173,6 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
 #endif
 	    atsv = ERRSV;
 	    (void)SvPV_const(atsv, len);
-	    if (PL_madskills && PL_minus_c && paramList == PL_beginav)
-		break;	/* not really trying to run, so just wing it */
 	    if (len) {
 		PL_curcop = &PL_compiling;
 		CopLINE_set(PL_curcop, oldline);
@@ -5205,8 +5203,6 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
 	    PL_curcop = &PL_compiling;
 	    CopLINE_set(PL_curcop, oldline);
 	    JMPENV_POP;
-	    if (PL_madskills && PL_minus_c && paramList == PL_beginav)
-		return;	/* not really trying to run, so just wing it */
 	    if (PL_statusvalue && !(PL_exit_flags & PERL_EXIT_EXPECTED)) {
 		if (paramList == PL_beginav)
 		    Perl_croak(aTHX_ "BEGIN failed--compilation aborted");