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 (executable)
--- 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;