diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2011-08-06 18:24:12 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-08 15:49:44 -0700 |
| commit | 8d38d4f3d12487d853d03228c4481161ddcd2632 (patch) | |
| tree | 132bf19ea05cfe309877ac84fc1d6b4d09a27f3c /t | |
| parent | 4df4e8c46d30f48994973aa13c4eb40ffb905021 (diff) | |
| download | perl-8d38d4f3d12487d853d03228c4481161ddcd2632.tar.gz | |
AASSIGN_COMMON var detection bug with logical operators, TODO test
Diffstat (limited to 't')
| -rw-r--r-- | t/op/array.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/array.t b/t/op/array.t index f995ea34b2..f837e047ed 100644 --- a/t/op/array.t +++ b/t/op/array.t @@ -7,7 +7,7 @@ BEGIN { require 'test.pl'; -plan (130); +plan (131); # # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them @@ -427,6 +427,13 @@ sub test_arylen { (our $y, our $z) = ($x,$y); is("$x $y $z", "1 1 2"); } +{ + local $TODO = "AASSIGN_COMMON detection with logical operators"; + my $true = 1; + our($x,$y,$z) = (1..3); + (our $y, our $z) = $true && ($x,$y); + is("$x $y $z", "1 1 2"); +} # [perl #70171] { |