diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-09-01 23:37:07 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-09-01 23:37:07 +0000 |
| commit | 094236a2e4129d7c0d8623e0820a0eedb9fe83ba (patch) | |
| tree | 121d78d0a829da5f65cec2e4e146ebe5239c74db /t | |
| parent | 23634c1038ac02e06ed94c94fa7451ed7bca7315 (diff) | |
| download | perl-094236a2e4129d7c0d8623e0820a0eedb9fe83ba.tar.gz | |
whoops, fix 'formline undef' test broken by change #23251
p4raw-link: @23251 on //depot/perl: 24c897388d7b9ce07248cecb5920b9fbd4ac27ba
p4raw-id: //depot/perl@23255
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/9uninit | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 6f3b3b939c..4a3b3a3568 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -885,8 +885,7 @@ our ($g1); $v = sprintf $m1; $v = sprintf '%d%d%d%d', $m1, $m2, $g1, $g2; -my $m3; -eval {formline $m3 }; +my $m3; eval {formline $m3 }; formline '@<<@<<@<<@<<', $m1, $m2, $g1, $g2; EXPECT Use of uninitialized value $m1 in sprintf at - line 5. @@ -894,7 +893,7 @@ Use of uninitialized value $m1 in sprintf at - line 6. Use of uninitialized value $m2 in sprintf at - line 6. Use of uninitialized value $g1 in sprintf at - line 6. Use of uninitialized value $g2 in sprintf at - line 6. -Use of uninitialized value $m1 in formline at - line 7. +Use of uninitialized value $m3 in formline at - line 7. Use of uninitialized value $m1 in formline at - line 8. Use of uninitialized value $m2 in formline at - line 8. Use of uninitialized value $g1 in formline at - line 8. |