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}";
32 print "not " unless $_ eq "$dx$dx";
37 $_ = $dx = "\x{10f2}";
41 print "not " unless $_ eq "$dx$dx";
47 $_ = "\x{10f2}\x{10f2}";
51 print "not " unless $_ eq "$dx$dx";
59 # test that undef left and right of utf8 results in a valid string
63 print "not " unless $a eq "\x{1ff}";
71 "x" =~ /(.)/; # unset $2
73 # Without the fix this 5.7.0 would croak:
74 # Modification of a read-only value attempted at ...
80 # For symmetry with the above.
87 # This bug existed earlier than the $2 bug, but is fixed with the same
88 # patch. Without the fix this 5.7.0 would also croak:
89 # Modification of a read-only value attempted at ...
95 # For symmetry with the above.