tag 578942 patch thanks On Fri, Apr 23, 2010 at 10:54:21PM +0300, Niko Tyni wrote: > Package: libdevel-ebug-perl > Version: 0.49-1 > Severity: important > User: [email protected] > Usertags: perl-5.12-transition > Forwarded: http://rt.cpan.org/Public/Bug/Display.html?id=33009 > > This package fails to build on amd64 with perl 5.12.0-1 from experimental: > > # Failed test at t/stack.t line 26. > # got: '' > # expected: '0' > # Looks like you failed 1 test of 29. > t/stack.t ........ > Dubious, test returned 1 (wstat 256, 0x100) > Failed 1/29 subtests > > This is also [rt.cpan.org #33009].
Trivial patch attached. -- Niko Tyni [email protected]
>From 92079f129d2e8e7ad27c7e82c753019326c77053 Mon Sep 17 00:00:00 2001 From: Niko Tyni <[email protected]> Date: Sat, 15 May 2010 10:06:18 +0300 Subject: [PATCH] Fix a test failure with Perl 5.12 due to slightly changed caller() interface As noted by Andreas Koenig in https://rt.cpan.org/Public/Bug/Display.html?id=33009 and shown by (for example) perl -le 'sub a { @a=caller(0); print "$]: <$a[5]>"}; scalar a()' the wantarray element of caller(n) was changed slightly for Perl 5.12 by change 33022. Adjust the test suite accordingly. --- t/stack.t | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/t/stack.t b/t/stack.t index 1932472..4a7509b 100644 --- a/t/stack.t +++ b/t/stack.t @@ -23,7 +23,7 @@ my $trace = $trace[0]; is($trace->package , "main"); is($trace->filename , "t/calc.pl"); is($trace->subroutine, "main::add"); -is($trace->wantarray , 0); +ok(! $trace->wantarray); is($trace->line , 5); is_deeply([$trace->args], [1, 2]); -- 1.7.1
