diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/op/sprintf.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/sprintf.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/t/op/sprintf.t b/gnu/usr.bin/perl/t/op/sprintf.t index c2209467454..ba77e64cf84 100644 --- a/gnu/usr.bin/perl/t/op/sprintf.t +++ b/gnu/usr.bin/perl/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; |