diff options
| author | James A. Duncan <jduncan@fotango.com> | 2001-08-06 18:29:11 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-07 13:46:33 +0000 |
| commit | aefff11f7e121678e7cd0c4ebdd14e491a765ed2 (patch) | |
| tree | d4aa1bfa0c32fb1ff4dc237e6ebcdfd8d1a1791f /perl.c | |
| parent | 9bf522754757f3234f4dd596b76e656d7e158943 (diff) | |
| download | perl-aefff11f7e121678e7cd0c4ebdd14e491a765ed2.tar.gz | |
B && BEGIN handling
Message-ID: <20010806172911.A2071@fotango.com>
(the intrpvar.h addition moved to the end for bincompat)
p4raw-id: //depot/perl@11601
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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(); |