The tokenizer should expect an operator after qw().

This fixes [perl #35885] qw and x operators doesn't mix

p4raw-id: //depot/perl@24560

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index d496f48c35..874f8ab4dd 100644
--- a/toke.c
+++ b/toke.c
@@ -4956,6 +4956,7 @@ Perl_yylex(pTHX)
 	    s = scan_str(s,FALSE,FALSE);
 	    if (!s)
 		missingterm((char*)0);
+	    PL_expect = XOPERATOR;
 	    force_next(')');
 	    if (SvCUR(PL_lex_stuff)) {
 		OP *words = Nullop;