From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 1 Sep 2004 23:37:07 +0000 (+0000)
Subject: whoops, fix 'formline undef' test broken by change #23251
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=094236a2e4129d7c0d8623e0820a0eedb9fe83ba;p=p5sagit%2Fp5-mst-13.2.git

whoops, fix 'formline undef' test broken by change #23251
p4raw-link: @23251 on //depot/perl: 24c897388d7b9ce07248cecb5920b9fbd4ac27ba

p4raw-id: //depot/perl@23255
---

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index 6f3b3b9..4a3b3a3 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.