10 ($a, $b, $c) = qw(foo bar);
12 print "not " unless "$a" eq "foo";
15 print "not " unless "$a$b" eq "foobar";
18 print "not " unless "$c$a$c" eq "foo";
21 # Okay, so that wasn't very challenging. Let's go Unicode.
28 $_ = $dx = "\x{10f2}";
31 print "not " unless $_ eq "$dx$dx";
36 $_ = $dx = "\x{10f2}";
39 print "not " unless $_ eq "$dx$dx";
45 $_ = "\x{10f2}\x{10f2}";
48 print "not " unless $_ eq "$dx$dx";
56 # test that undef left and right of utf8 results in a valid string
60 print "not " unless $a eq "\x{1ff}";
68 "x" =~ /(.)/; # unset $2
70 # Without the fix this 5.7.0 would croak:
71 # Modification of a read-only value attempted at ...
77 # For symmetry with the above.
84 # This bug existed earlier than the $2 bug, but is fixed with the same
85 # patch. Without the fix this 5.7.0 would also croak:
86 # Modification of a read-only value attempted at ...
92 # For symmetry with the above.