[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