[perl #68108] : also fix if/else constant folding

[p5sagit/p5-mst-13.2.git] / t / op / sprintf.t

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
old mode 100755 (executable)
new mode 100644 (file)
index 2b9c7bc..ba77e64
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -49,8 +49,8 @@ while (<DATA>) {
     }
 
     $evalData = eval $data;
-    $data = ref $evalData ? $evalData : [$evalData];
-    push @tests, [$template, $data, $result, $comment];
+    $evalData = ref $evalData ? $evalData : [$evalData];
+    push @tests, [$template, $evalData, $result, $comment, $data];
 }
 
 print '1..', scalar @tests, "\n";
@@ -66,9 +66,9 @@ $SIG{__WARN__} = sub {
 };
 
 for ($i = 1; @tests; $i++) {
-    ($template, $data, $result, $comment) = @{shift @tests};
+    ($template, $evalData, $result, $comment, $data) = @{shift @tests};
     $w = undef;
-    $x = sprintf(">$template<", @$data);
+    $x = sprintf(">$template<", @$evalData);
     substr($x, -1, 0) = $w if $w;
     # $x may have 3 exponent digits, not 2
     my $y = $x;
@@ -306,11 +306,11 @@ __END__
 >%vd<       >"\01\02\03"< >1.2.3<
 >%vd<       >v1.2.3<      >1.2.3<
 >%vd<       >[version::qv("1.2.3")]< >1.2.3<
->%vd<       >[version->new("1.2")]< >1.200<
->%vd<       >[version->new("1.02")]< >1.20<
+>%vd<       >[version->new("1.2")]< >1.2<
+>%vd<       >[version->new("1.02")]< >1.2<
 >%vd<       >[version->new("1.002")]< >1.2<
->%vd<       >[version->new("1048576.5")]< >1048576.500<
->%vd<       >[version->new("50")]< >50.0<
+>%vd<       >[version->new("1048576.5")]< >1048576.5<
+>%vd<       >[version->new("50")]< >50<
 >%v.3d<     >"\01\02\03"< >001.002.003<
 >%0v3d<     >"\01\02\03"< >001.002.003<
 >%v.3d<     >[version::qv("1.2.3")]< >001.002.003<