X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a64133684ecb3c95280331d68367527f9c07eaea..8f84cc86e11f13b85c64fd0205261e12bef9e7f9:/t/lib/warnings/9uninit?ds=inline

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index 7d73f01..9f42689 100644
--- a/t/lib/warnings/9uninit
+++ b/t/lib/warnings/9uninit
@@ -2018,3 +2018,9 @@ my $moo = $Foo::BAR + 42;
 __END__
 EXPECT
 Use of uninitialized value in addition (+) at - line 3.
+########
+use warnings 'uninitialized';
+use constant {u=>undef, v=>undef};
+sub foo () {u}
+sub foo () {v}
+EXPECT