Move a test from t/lib/warnings/sv to .../9uninit

[perl5.git] / t / lib / warnings / 9uninit

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index 9f42689..6123fd0 100644 (file)
--- 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
 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.