X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3d2c6be36ee5077d71cd3403ed02f6b1b3f5f3c2..9fdc7570b9ab74673d2bcedaa774679d10c80ea0:/t/lib/warnings/op

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 3c10751..8dadc7a 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.