Add a new warning, "State variable %s will be reinitialized"

p4raw-id: //depot/perl@28496

1 files changed, 17 insertions, 0 deletions

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 891677fabe..3c10751d5e 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -1081,3 +1081,20 @@ Deprecated use of my() in false conditional at - line 6.
 Deprecated use of my() in false conditional at - line 7.
 Deprecated use of my() in false conditional at - line 8.
 Deprecated use of my() in false conditional at - line 9.
+########
+# op.c
+use feature 'state';
+use warnings 'misc';
+state($x) = 1;
+(state $y) = 2;
+(state $z, my $t) = (3, 4);
+(state $foo, state $bar) = (5, 6);
+no warnings 'misc';
+state($x) = 1;
+(state $y) = 2;
+(state $z, my $t) = (3, 4);
+(state $foo, state $bar) = (5, 6);
+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.