Encode: synch with CPAN version 3.04

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index d305f3e..7cb2650 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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))