[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

diff --git a/ext/XS-APItest/t/overload.t b/ext/XS-APItest/t/overload.t
index 7bb2a4d..e83144b 100644 (file)
--- 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");
        }
     }