[PATCH] Fix a test failure with Perl 5.12 due to slightly changed caller() interface

Niko Tyni ntyni at debian.org
Sat May 15 07:06:18 UTC 2010


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


--ReaqsoxgOBHFXBhH--





More information about the pkg-perl-maintainers mailing list