AASSIGN_COMMON var detection bug with logical operators, TODO test

diff --git a/t/op/array.t b/t/op/array.t
index f995ea3..f837e04 100644 (file)
--- 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]
 {