Don't warn when localizing $[

p4raw-id: //depot/perl@26803

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 09f269a7ad..6ef7a50bc3 100644
--- a/op.c
+++ b/op.c
@@ -1037,6 +1037,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
     case OP_CONST:
 	if (!(o->op_private & (OPpCONST_ARYBASE)))
 	    goto nomod;
+	localize = 0;
 	if (PL_eval_start && PL_eval_start->op_type == OP_CONST) {
 	    PL_compiling.cop_arybase = (I32)SvIV(cSVOPx(PL_eval_start)->op_sv);
 	    PL_eval_start = 0;