1N/A { my($a, undef, $c) = ("ok 9\n", "not ok 10\n", "ok 10\n"); 1N/A ($x, $y) = ($a, $c); } 1N/Aprint $a,$b,$c,$d,$x,$y;
1N/A# same thing, only with arrays and associative arrays 1N/A { my($a,@c) = ("ok 19\n", "ok 20\n"); ($x, $y) = ($a, @c); } 1N/Aprint $a,@b,@c,%d,$x,$y;
1N/Aif (my $i = "inner") { 1N/A print "not " if $i ne "inner"; 1N/Aif ((my $i = 1) == 0) { 1N/A print "not" if $i != 1; 1N/Awhile (my $i = --$j) { 1N/Afor (my $i = 0; (my $k = $i) < $j; ++$i) { 1N/Aforeach my $i
(26, 27) { 1N/Aprint "not " if $i
ne "outer";
1N/A# Ensure that C<my @y> (without parens) doesn't force scalar context. 1N/Aprint +(@x ? "not " : ""), "ok 29\n"; 1N/Aprint +(@x ? "not " : ""), "ok 30\n"; 1N/A# Found in HTML::FormatPS 1N/A # Supposed to be copy-on-write via force_normal after a THINKFIRST check. 1N/A# [perl #29340] optimising away the = () left the padav returning the 1N/A# array rather than the contents, leading to 'Bizarre copy of array' error