This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move a test from t/lib/warnings/sv to .../9uninit
[perl5.git] / t / lib / warnings / 9uninit
index 9f42689..6123fd0 100644 (file)
@@ -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.