This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ARRAY(0x...) is not very helpful in sprintf.t diagnostics
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Mon, 7 Jan 2008 23:24:01 +0000 (15:24 -0800)
committerNicholas Clark <nick@ccl4.org>
Tue, 8 Jan 2008 09:27:38 +0000 (09:27 +0000)
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

t/op/sprintf.t

index c220946..ba77e64 100755 (executable)
@@ -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;