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, 2 insertions, 2 deletions

diff --git a/t/op/array.t b/t/op/array.t
index 1108f494f8..97a4a40c3f 100755
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -139,8 +139,8 @@ t("@foo" eq "bar burbl blah");					# 39
 @foo = ('XXX',@foo, 'YYY');
 t("@foo" eq "XXX bar burbl blah YYY");				# 40
 
-@foo = @foo = qw(foo bar burbl blah);
-t("@foo" eq "foo bar burbl blah");				# 41
+@foo = @foo = qw(foo b\a\r bu\\rbl blah);
+t("@foo" eq 'foo b\a\r bu\\rbl blah');				# 41
 
 @bar = @foo = qw(foo bar);					# 42
 t("@foo" eq "foo bar");