diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 08:35:37 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 09:32:57 -0800 |
| commit | 50de2b3a27dc3b906062d35ae0f9733aa106baf3 (patch) | |
| tree | 589792c04eb7a0b1642053c12cb05735f3f6524d /t/lib/warnings/9uninit | |
| parent | 27a6968ba35b6cbe9590b659be9641ced651ef8b (diff) | |
| download | perl-50de2b3a27dc3b906062d35ae0f9733aa106baf3.tar.gz | |
Move a test from t/lib/warnings/sv to .../9uninit
I think .../sv is for warnings originating from code in sv.c, not just
any uninitialized warnings, the code for handling which is in sv.c.
We have 9uninit for a reason.
Diffstat (limited to 't/lib/warnings/9uninit')
| -rw-r--r-- | t/lib/warnings/9uninit | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 9f42689808..6123fd03cb 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. |