Abstract all the accesses to cop_arybase (apart from ByteLoader)

p4raw-id: //depot/perl@27671

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index c7a9d91ad4..f6e21a2614 100644
--- a/toke.c
+++ b/toke.c
@@ -4555,7 +4555,7 @@ Perl_yylex(pTHX)
 	/* This kludge not intended to be bulletproof. */
 	if (PL_tokenbuf[1] == '[' && !PL_tokenbuf[2]) {
 	    yylval.opval = newSVOP(OP_CONST, 0,
-				   newSViv(PL_compiling.cop_arybase));
+				   newSViv(CopARYBASE_get(&PL_compiling)));
 	    yylval.opval->op_private = OPpCONST_ARYBASE;
 	    TERM(THING);
 	}