diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-03-29 20:02:29 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-06 13:35:15 +0000 |
| commit | 53ae2428795d0b9d42a1657c22c5f1b557784379 (patch) | |
| tree | 75fb3dcc0489fd274d1b3381cfb051a006b75ef2 /perl.c | |
| parent | e74e6b3dcb5d67fa6d1b58661e5e4e1df0f492fe (diff) | |
| download | perl-53ae2428795d0b9d42a1657c22c5f1b557784379.tar.gz | |
MAD do not ignore errors from 'use'
Message-ID: <20070329160229.GF20231@ostwald>
plus another similar correction
p4raw-id: //depot/perl@30851
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -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"); |