From: Vincent Pit <vince@profvince.com>
Date: Thu, 6 May 2010 20:35:14 +0000 (+0200)
Subject: Really test special sprintf formats
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1795af272b5e89d0c3027b37e9421fc209c07253;p=p5sagit%2Fp5-mst-13.2.git

Really test special sprintf formats
---

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 8d93297..4d2fe49 100644
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -70,7 +70,8 @@ $SIG{__WARN__} = sub {
 for ($i = 1; @tests; $i++) {
     ($template, $evalData, $result, $comment, $data) = @{shift @tests};
     $w = undef;
-    $x = sprintf(">$template<", @$evalData);
+    $x = sprintf($template, @$evalData);
+    $x = ">$x<" if defined $x;
     substr($x, -1, 0) = $w if $w;
     # $x may have 3 exponent digits, not 2
     my $y = $x;