B && BEGIN handling

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 28e8761..17fbac4 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3860,7 +3860,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
 
     while (AvFILL(paramList) >= 0) {
        cv = (CV*)av_shift(paramList);
-       if ((PL_minus_c & 0x10) && (paramList == PL_beginav)) {
+       if (PL_savebegin && (paramList == PL_beginav)) {
                /* save PL_beginav for compiler */
            if (! PL_beginav_save)
                PL_beginav_save = newAV();