move some more variables into the PL_parser struct:

    PL_bufptr PL_oldbufptr PL_oldoldbufptr
    PL_linestart PL_bufend
    PL_last_uni PL_last_lop PL_last_lop_op

p4raw-id: //depot/perl@31147

1 files changed, 3 insertions, 2 deletions

diff --git a/op.c b/op.c
index 1c793e34f8..2f043c065e 100644
--- a/op.c
+++ b/op.c
@@ -2260,10 +2260,11 @@ Perl_localize(pTHX_ OP *o, I32 lex)
 	NOOP;
 #endif
     else {
-	if ( PL_bufptr > PL_oldbufptr && PL_bufptr[-1] == ','
+	if ( PL_parser->bufptr > PL_parser->oldbufptr
+	    && PL_parser->bufptr[-1] == ','
 	    && ckWARN(WARN_PARENTHESIS))
 	{
-	    char *s = PL_bufptr;
+	    char *s = PL_parser->bufptr;
 	    bool sigil = FALSE;
 
 	    /* some heuristics to detect a potential error */