Fix the implementation of list assignment to state().

p4raw-id: //depot/perl@28499

2 files changed, 3 insertions, 2 deletions

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 3c10751d5e..8dadc7aa85 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -1089,12 +1089,15 @@ state($x) = 1;
 (state $y) = 2;
 (state $z, my $t) = (3, 4);
 (state $foo, state $bar) = (5, 6);
+(undef, my $v, state $w) = (7 .. 9);
 no warnings 'misc';
 state($x) = 1;
 (state $y) = 2;
 (state $z, my $t) = (3, 4);
 (state $foo, state $bar) = (5, 6);
+(undef, my $v, state $w) = (7 .. 9);
 EXPECT
 State variable $z will be reinitialized at - line 6.
 State variable $foo will be reinitialized at - line 7.
 State variable $bar will be reinitialized at - line 7.
+State variable $w will be reinitialized at - line 8.
diff --git a/t/op/state.t b/t/op/state.t
index becbb3b0a6..92b4dfc02f 100644
--- a/t/op/state.t
+++ b/t/op/state.t
@@ -164,6 +164,4 @@ sub statelist2 {
 $ls = statelist2();
 is($ls, "2/3", 'list assignment to state scalars');
 $ls = statelist2();
-{ local our $TODO = 'detection of state vars is misplaced in newASSIGNOP';
 is($ls, "3/4", 'list assignment to state scalars');
-}