qw(a\\b) must be parsed like 'a\\b', i.e., backslash escapes

itself and no other (from Tom Hughes)

p4raw-id: //depot/perl@5989

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 7d4e937aa1..5c1b945cba 100644
--- a/toke.c
+++ b/toke.c
@@ -4504,7 +4504,7 @@ Perl_yylex(pTHX)
 			    for (; !isSPACE(*d) && len; --len, ++d) ;
 			}
 			words = append_elem(OP_LIST, words,
-					    newSVOP(OP_CONST, 0, newSVpvn(b, d-b)));
+					    newSVOP(OP_CONST, 0, tokeq(newSVpvn(b, d-b))));
 		    }
 		}
 		if (words) {