From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 1 Dec 2005 08:34:42 +0000 (+0000)
Subject: Revert change #26110 (already reverted in maintperl by change 26182)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb4020efd135785a3a3f1bdcb17c9408f9b0faf3;p=p5sagit%2Fp5-mst-13.2.git

Revert change #26110 (already reverted in maintperl by change 26182)
p4raw-link: @26110 on //depot/perl: 678f9f8e69283f64dcdcd30e3fe602110d10a5a6

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

diff --git a/op.c b/op.c
index 6e37131..8fd946a 100644
--- a/op.c
+++ b/op.c
@@ -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) {