From cc0610e6ebb4373ccf392268984608bfaa77bd71 Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Tue, 10 Mar 2020 20:22:54 -0400 Subject: [PATCH] Encode: synch with CPAN version 3.04 --- Porting/Maintainers.pl | 2 +- cpan/Encode/Encode.pm | 4 ++-- cpan/Encode/Encode.xs | 4 +++- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index d305f3e..7cb2650 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -391,7 +391,7 @@ use File::Glob qw(:case); }, 'Encode' => { - 'DISTRIBUTION' => 'DANKOGAI/Encode-3.02.tar.gz', + 'DISTRIBUTION' => 'DANKOGAI/Encode-3.04.tar.gz', 'FILES' => q[cpan/Encode], 'EXCLUDED' => [ qw( t/whatwg-aliases.json diff --git a/cpan/Encode/Encode.pm b/cpan/Encode/Encode.pm index 3487daa..98a7745 100644 --- a/cpan/Encode/Encode.pm +++ b/cpan/Encode/Encode.pm @@ -1,5 +1,5 @@ # -# $Id: Encode.pm,v 3.02 2019/12/25 09:25:17 dankogai Exp $ +# $Id: Encode.pm,v 3.04 2020/03/10 22:26:29 dankogai Exp $ # package Encode; use strict; @@ -7,7 +7,7 @@ use warnings; use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; our $VERSION; BEGIN { - $VERSION = sprintf "%d.%02d", q$Revision: 3.03 $ =~ /(\d+)/g; + $VERSION = sprintf "%d.%02d", q$Revision: 3.04 $ =~ /(\d+)/g; require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); } diff --git a/cpan/Encode/Encode.xs b/cpan/Encode/Encode.xs index 823917c..4baf296 100644 --- a/cpan/Encode/Encode.xs +++ b/cpan/Encode/Encode.xs @@ -1,5 +1,5 @@ /* - $Id: Encode.xs,v 2.47 2019/03/13 00:26:18 dankogai Exp $ + $Id: Encode.xs,v 2.48 2020/03/02 04:34:34 dankogai Exp $ */ #define PERL_NO_GET_CONTEXT @@ -982,6 +982,7 @@ ALIAS: PREINIT: SV *obj; INIT: + PERL_UNUSED_VAR(ix); SvGETMAGIC(encoding); CODE: if (!SvOK(encoding)) @@ -1003,6 +1004,7 @@ ALIAS: PREINIT: SV *obj; INIT: + PERL_UNUSED_VAR(ix); SvGETMAGIC(encoding); CODE: if (!SvOK(encoding)) -- 1.8.3.1