X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/27a6968ba35b6cbe9590b659be9641ced651ef8b..50de2b3a27dc3b906062d35ae0f9733aa106baf3:/t/lib/warnings/9uninit?ds=inline

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index 9f42689..6123fd0 100644
--- a/t/lib/warnings/9uninit
+++ b/t/lib/warnings/9uninit
@@ -2024,3 +2024,10 @@ use constant {u=>undef, v=>undef};
 sub foo () {u}
 sub foo () {v}
 EXPECT
+########
+# [perl #72090]
+use warnings 'uninitialized';
+$a = @$a > 0;
+EXPECT
+Use of uninitialized value $a in array dereference at - line 3.
+Use of uninitialized value in numeric gt (>) at - line 3.