diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2010-11-11 04:48:45 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-11 04:49:36 -0800 |
commit | 4e2f6caa0df15654db6910ad35367be89fdc235c (patch) | |
tree | b1ee51fa9d42587ea71b4e170d13eb3d027d08d6 | |
parent | 15bc3b4fa748020eda5bd1ac44df0350ef4e70bf (diff) | |
download | perl-4e2f6caa0df15654db6910ad35367be89fdc235c.tar.gz |
[perl #78964] Fix ext/XS-APItest/t/overload.t
Attached patch fixes the following warning from 'make test':
ext/XS-APItest/t/overload...................................."my"
variable $got masks earlier declaration in same scope at t/overload.t
line 81.
ok
-rw-r--r-- | ext/XS-APItest/t/overload.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/overload.t b/ext/XS-APItest/t/overload.t index 7bb2a4d8c7..e83144b7b1 100644 --- a/ext/XS-APItest/t/overload.t +++ b/ext/XS-APItest/t/overload.t @@ -82,7 +82,7 @@ while (my ($type, $enum) = each %types) { my $got = &$func($input, $enum); is($got, $sucker, "$name: chain to $desc for to_$type"); $input = bless [bless [$sucker], 'Chain'], 'Chain'; - my $got = &$func($input, $enum); + $got = &$func($input, $enum); is($got, $sucker, "$name: chain to chain to $desc for to_$type"); } } |