From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 7 Jan 2008 23:24:01 +0000 (-0800)
Subject: ARRAY(0x...) is not very helpful in sprintf.t diagnostics
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d8473223db014c201b17b33ac514b9e89ac7f71;p=p5sagit%2Fp5-mst-13.2.git

ARRAY(0x...) is not very helpful in sprintf.t diagnostics
Message-ID: <55933.71.35.169.13.1199777041.squirrel@webmail.efn.org>
From: "Yitzchak Scott-Thoennes" <sthoenna@efn.org>
Date: Mon, 7 Jan 2008 23:24:01 -0800 (PST)

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

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index c220946..ba77e64 100755
--- 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;