diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-01 08:34:42 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-01 08:34:42 +0000 |
| commit | cb4020efd135785a3a3f1bdcb17c9408f9b0faf3 (patch) | |
| tree | 8b5ce7dcb4fd6b14846cde6d957b8be318d436a3 /op.c | |
| parent | 4a42f219aadc3f7cebfd44b4671f45b5349ccd50 (diff) | |
| download | perl-cb4020efd135785a3a3f1bdcb17c9408f9b0faf3.tar.gz | |
Revert change #26110 (already reverted in maintperl by change 26182)
p4raw-link: @26110 on //depot/perl: 678f9f8e69283f64dcdcd30e3fe602110d10a5a6
p4raw-id: //depot/perl@26234
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -4529,10 +4529,8 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) goto done; if (strEQ(s, "BEGIN") && !PL_error_count) { - dSP; const I32 oldscope = PL_scopestack_ix; ENTER; - PUSHSTACKi(PERLSI_REQUIRE); SAVECOPFILE(&PL_compiling); SAVECOPLINE(&PL_compiling); @@ -4545,7 +4543,6 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) PL_curcop = &PL_compiling; PL_compiling.op_private = (U8)(PL_hints & HINT_PRIVATE_MASK); - POPSTACK; LEAVE; } else if (strEQ(s, "END") && !PL_error_count) { |