Deprecate isFOO_utf8() macros

[perl5.git] / ext / XS-APItest / t / overload.t

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");
        }
     }