Change 23255 by davem@no-spam on 2004/09/01 23:37:07
whoops, fix 'formline undef' test broken by change #23251
Affected files ...
... //depot/perl/t/lib/warnings/9uninit#6 edit
Differences ...
==== //depot/perl/t/lib/warnings/9uninit#6 (text) ====
Index: perl/t/lib/warnings/9uninit
--- perl/t/lib/warnings/9uninit#5~23251~ Wed Sep 1 15:17:47 2004
+++ perl/t/lib/warnings/9uninit Wed Sep 1 16:37:07 2004
@@no-spam -885,8 +885,7 @@no-spam
$v = sprintf $m1;
$v = sprintf '%d%d%d%d', $m1, $m2, $g1, $g2;
-my $m3;
-eval {formline $m3 };
+my $m3; eval {formline $m3 };
formline '@no-spam<<@no-spam<<@no-spam<<@no-spam<<', $m1, $m2, $g1, $g2;
EXPECT
Use of uninitialized value $m1 in sprintf at - line 5.
@@no-spam -894,7 +893,7 @@no-spam
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.
End of Patch.