Commit 3b3c7c1380 for perl

commit 3b3c7c138006d777656f4261deb730075c734558
Author: Dan Kogai <dankogai@dan.co.jp>
Date:   Tue Oct 27 21:20:28 2026 -0400

    cpan/Encode - Update to version 3.25

    $Revision: 3.25 $ $Date: 2026/10/26 01:42:18 $
    ! Encode.pm encoding.pm Byte/Byte.pm CN/CN.pm EBCDIC/EBCDIC.pm JP/JP.pm
      KR/KR.pm Symbol/Symbol.pm TW/TW.pm Unicode/Unicode.pm
      lib/Encode/Alias.pm lib/Encode/Config.pm lib/Encode/Encoder.pm
      lib/Encode/Encoding.pm lib/Encode/GSM0338.pm lib/Encode/Guess.pm
      lib/Encode/CN/HZ.pm lib/Encode/JP/JIS7.pm lib/Encode/KR/2022_KR.pm
      lib/Encode/MIME/Header.pm lib/Encode/MIME/Header/ISO_2022_JP.pm
      lib/Encode/MIME/Name.pm lib/Encode/Unicode/UTF7.pm
      bin/enc2xs bin/ucmlint
      Assign $VERSION as a literal string instead of computing it from
      q$Revision$, per PAUSE Ops request: PAUSE now indexes only
      statically parseable $VERSION assignments; bump each sub-module
      and script version by 0.01
    ! t/taint.t
      Pulled: detect lack of taint support in Perl < 5.38
      https://github.com/dankogai/p5-encode/pull/188

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index c9fcb8937b..3e358257b1 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -417,8 +417,8 @@ our %Modules = (
     },

     'Encode' => {
-        'DISTRIBUTION' => 'DANKOGAI/Encode-3.24.tar.gz',
-        'SYNCINFO'     => 'jkeenan on Wed Apr 29 14:28:15 2026',
+        'DISTRIBUTION' => 'DANKOGAI/Encode-3.25.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Tue Oct 27 21:20:21 2026',
         'FILES'        => q[cpan/Encode],
         'EXCLUDED'     => [
             qw( t/whatwg-aliases.json
diff --git a/cpan/Encode/Byte/Byte.pm b/cpan/Encode/Byte/Byte.pm
index d105aa27cc..832bfb5e82 100644
--- a/cpan/Encode/Byte/Byte.pm
+++ b/cpan/Encode/Byte/Byte.pm
@@ -2,7 +2,7 @@ package Encode::Byte;
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.05';

 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );
diff --git a/cpan/Encode/CN/CN.pm b/cpan/Encode/CN/CN.pm
index 830f34507d..61da475b01 100644
--- a/cpan/Encode/CN/CN.pm
+++ b/cpan/Encode/CN/CN.pm
@@ -7,7 +7,7 @@ BEGIN {
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.04';
 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );

diff --git a/cpan/Encode/EBCDIC/EBCDIC.pm b/cpan/Encode/EBCDIC/EBCDIC.pm
index 8024c130da..c75bdb657f 100644
--- a/cpan/Encode/EBCDIC/EBCDIC.pm
+++ b/cpan/Encode/EBCDIC/EBCDIC.pm
@@ -2,7 +2,7 @@ package Encode::EBCDIC;
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.03';

 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );
diff --git a/cpan/Encode/Encode.pm b/cpan/Encode/Encode.pm
index 7fb9110132..4878d8fe10 100644
--- a/cpan/Encode/Encode.pm
+++ b/cpan/Encode/Encode.pm
@@ -1,5 +1,5 @@
 #
-# $Id: Encode.pm,v 3.24 2026/04/29 17:31:42 dankogai Exp $
+# $Id: Encode.pm,v 3.25 2026/10/26 01:42:18 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.24 $ =~ /(\d+)/g;
+    $VERSION = '3.25';
     require XSLoader;
     XSLoader::load( __PACKAGE__, $VERSION );
 }
diff --git a/cpan/Encode/JP/JP.pm b/cpan/Encode/JP/JP.pm
index 09efaaa8c3..b86c2af7ad 100644
--- a/cpan/Encode/JP/JP.pm
+++ b/cpan/Encode/JP/JP.pm
@@ -7,7 +7,7 @@ BEGIN {
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.06';

 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );
diff --git a/cpan/Encode/KR/KR.pm b/cpan/Encode/KR/KR.pm
index cf2c1174e4..225b340cff 100644
--- a/cpan/Encode/KR/KR.pm
+++ b/cpan/Encode/KR/KR.pm
@@ -7,7 +7,7 @@ BEGIN {
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.04';
 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );

diff --git a/cpan/Encode/Symbol/Symbol.pm b/cpan/Encode/Symbol/Symbol.pm
index 77031aad75..1a2a8202a8 100644
--- a/cpan/Encode/Symbol/Symbol.pm
+++ b/cpan/Encode/Symbol/Symbol.pm
@@ -2,7 +2,7 @@ package Encode::Symbol;
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.03';

 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );
diff --git a/cpan/Encode/TW/TW.pm b/cpan/Encode/TW/TW.pm
index c30499bee1..a0bcd4746f 100644
--- a/cpan/Encode/TW/TW.pm
+++ b/cpan/Encode/TW/TW.pm
@@ -7,7 +7,7 @@ BEGIN {
 use strict;
 use warnings;
 use Encode;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.04';
 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );

diff --git a/cpan/Encode/Unicode/Unicode.pm b/cpan/Encode/Unicode/Unicode.pm
index 965803772f..48dcbcf932 100644
--- a/cpan/Encode/Unicode/Unicode.pm
+++ b/cpan/Encode/Unicode/Unicode.pm
@@ -3,7 +3,7 @@ package Encode::Unicode;
 use strict;
 use warnings;

-our $VERSION = do { my @r = ( q$Revision: 2.20 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.21';

 use XSLoader;
 XSLoader::load( __PACKAGE__, $VERSION );
diff --git a/cpan/Encode/bin/enc2xs b/cpan/Encode/bin/enc2xs
index 502ae39d5a..02b68daa94 100644
--- a/cpan/Encode/bin/enc2xs
+++ b/cpan/Encode/bin/enc2xs
@@ -11,7 +11,7 @@ use warnings;
 use Getopt::Std;
 use Config;
 my @orig_ARGV = @ARGV;
-our $VERSION  = do { my @r = (q$Revision: 2.25 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION  = '2.26';

 # These may get re-ordered.
 # RAW is a do_now as inserted by &enter
diff --git a/cpan/Encode/bin/ucmlint b/cpan/Encode/bin/ucmlint
index a31a7a28f6..218210c474 100644
--- a/cpan/Encode/bin/ucmlint
+++ b/cpan/Encode/bin/ucmlint
@@ -1,11 +1,11 @@
 #!/usr/local/bin/perl
 #
-# $Id: ucmlint,v 2.4 2017/06/10 17:23:50 dankogai Exp $
+# $Id: ucmlint,v 2.05 2026/10/26 01:42:18 dankogai Exp $
 #

 BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
-our  $VERSION = do { my @r = (q$Revision: 2.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our  $VERSION = '2.05';

 use Getopt::Std;
 our %Opt;
diff --git a/cpan/Encode/encoding.pm b/cpan/Encode/encoding.pm
index a01833451f..74e92595d1 100644
--- a/cpan/Encode/encoding.pm
+++ b/cpan/Encode/encoding.pm
@@ -1,6 +1,6 @@
-# $Id: encoding.pm,v 3.00 2020/04/19 10:56:28 dankogai Exp $
+# $Id: encoding.pm,v 3.01 2026/10/26 01:42:18 dankogai Exp $
 package encoding;
-our $VERSION = sprintf "%d.%02d", q$Revision: 3.00 $ =~ /(\d+)/g;
+our $VERSION = '3.01';

 use Encode;
 use strict;
diff --git a/cpan/Encode/lib/Encode/Alias.pm b/cpan/Encode/lib/Encode/Alias.pm
index cca72a3d84..300fb4206f 100644
--- a/cpan/Encode/lib/Encode/Alias.pm
+++ b/cpan/Encode/lib/Encode/Alias.pm
@@ -1,7 +1,7 @@
 package Encode::Alias;
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.25 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.26';
 use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};

 use Exporter 'import';
diff --git a/cpan/Encode/lib/Encode/CN/HZ.pm b/cpan/Encode/lib/Encode/CN/HZ.pm
index e444cb01c3..6413227351 100644
--- a/cpan/Encode/lib/Encode/CN/HZ.pm
+++ b/cpan/Encode/lib/Encode/CN/HZ.pm
@@ -5,7 +5,7 @@ use warnings;
 use utf8 ();

 use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+$VERSION = '2.11';

 use Encode qw(:fallbacks);

diff --git a/cpan/Encode/lib/Encode/Config.pm b/cpan/Encode/lib/Encode/Config.pm
index 1286a47999..158b610597 100644
--- a/cpan/Encode/lib/Encode/Config.pm
+++ b/cpan/Encode/lib/Encode/Config.pm
@@ -2,7 +2,7 @@
 # Demand-load module list
 #
 package Encode::Config;
-our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.06';

 use strict;
 use warnings;
diff --git a/cpan/Encode/lib/Encode/Encoder.pm b/cpan/Encode/lib/Encode/Encoder.pm
index 23e0349bf3..f578dd4822 100644
--- a/cpan/Encode/lib/Encode/Encoder.pm
+++ b/cpan/Encode/lib/Encode/Encoder.pm
@@ -1,10 +1,10 @@
 #
-# $Id: Encoder.pm,v 2.3 2013/09/14 07:51:59 dankogai Exp $
+# $Id: Encoder.pm,v 2.04 2026/10/26 01:42:18 dankogai Exp $
 #
 package Encode::Encoder;
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.04';

 require Exporter;
 our @ISA       = qw(Exporter);
diff --git a/cpan/Encode/lib/Encode/Encoding.pm b/cpan/Encode/lib/Encode/Encoding.pm
index 815937f455..cee15da793 100644
--- a/cpan/Encode/lib/Encode/Encoding.pm
+++ b/cpan/Encode/lib/Encode/Encoding.pm
@@ -3,7 +3,7 @@ package Encode::Encoding;
 # Base class for classes which implement encodings
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.09';

 our @CARP_NOT = qw(Encode Encode::Encoder);

diff --git a/cpan/Encode/lib/Encode/GSM0338.pm b/cpan/Encode/lib/Encode/GSM0338.pm
index b149c6dc9c..202d050cd8 100644
--- a/cpan/Encode/lib/Encode/GSM0338.pm
+++ b/cpan/Encode/lib/Encode/GSM0338.pm
@@ -1,5 +1,5 @@
 #
-# $Id: GSM0338.pm,v 2.10 2021/05/24 10:56:53 dankogai Exp $
+# $Id: GSM0338.pm,v 2.11 2026/10/26 01:42:18 dankogai Exp $
 #
 package Encode::GSM0338;

@@ -8,7 +8,7 @@ use warnings;
 use Carp;

 use vars qw($VERSION);
-$VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+$VERSION = '2.11';

 use Encode qw(:fallbacks);

diff --git a/cpan/Encode/lib/Encode/Guess.pm b/cpan/Encode/lib/Encode/Guess.pm
index 87a725d999..52fe275119 100644
--- a/cpan/Encode/lib/Encode/Guess.pm
+++ b/cpan/Encode/lib/Encode/Guess.pm
@@ -2,7 +2,7 @@ package Encode::Guess;
 use strict;
 use warnings;
 use Encode qw(:fallbacks find_encoding);
-our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.09';

 my $Canon = 'Guess';
 use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
diff --git a/cpan/Encode/lib/Encode/JP/JIS7.pm b/cpan/Encode/lib/Encode/JP/JIS7.pm
index 6fc383c496..b3996f7593 100644
--- a/cpan/Encode/lib/Encode/JP/JIS7.pm
+++ b/cpan/Encode/lib/Encode/JP/JIS7.pm
@@ -1,7 +1,7 @@
 package Encode::JP::JIS7;
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.09';

 use Encode qw(:fallbacks);

diff --git a/cpan/Encode/lib/Encode/KR/2022_KR.pm b/cpan/Encode/lib/Encode/KR/2022_KR.pm
index 122326403b..203d20a411 100644
--- a/cpan/Encode/lib/Encode/KR/2022_KR.pm
+++ b/cpan/Encode/lib/Encode/KR/2022_KR.pm
@@ -1,7 +1,7 @@
 package Encode::KR::2022_KR;
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.05';

 use Encode qw(:fallbacks);

diff --git a/cpan/Encode/lib/Encode/MIME/Header.pm b/cpan/Encode/lib/Encode/MIME/Header.pm
index 4d4574447e..44153ea8f9 100644
--- a/cpan/Encode/lib/Encode/MIME/Header.pm
+++ b/cpan/Encode/lib/Encode/MIME/Header.pm
@@ -2,7 +2,7 @@ package Encode::MIME::Header;
 use strict;
 use warnings;

-our $VERSION = do { my @r = ( q$Revision: 2.29 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.30';

 use Carp ();
 use Encode ();
diff --git a/cpan/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm b/cpan/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm
index dc1e4275f0..8fc0594447 100644
--- a/cpan/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm
+++ b/cpan/Encode/lib/Encode/MIME/Header/ISO_2022_JP.pm
@@ -15,7 +15,7 @@ use constant TAIL => '?=';

 use Encode::CJKConstants qw(%RE);

-our $VERSION = do { my @r = ( q$Revision: 1.9 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '1.10';

 # I owe the below codes totally to
 #   Jcode by Dan Kogai & http://www.din.or.jp/~ohzaki/perl.htm#JP_Base64
diff --git a/cpan/Encode/lib/Encode/MIME/Name.pm b/cpan/Encode/lib/Encode/MIME/Name.pm
index 72ec79adda..1b4c1aa65e 100644
--- a/cpan/Encode/lib/Encode/MIME/Name.pm
+++ b/cpan/Encode/lib/Encode/MIME/Name.pm
@@ -1,7 +1,7 @@
 package Encode::MIME::Name;
 use strict;
 use warnings;
-our $VERSION = do { my @r = ( q$Revision: 1.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '1.04';

 # NOTE: This table must be 1:1 mapping
 our %MIME_NAME_OF = (
diff --git a/cpan/Encode/lib/Encode/Unicode/UTF7.pm b/cpan/Encode/lib/Encode/Unicode/UTF7.pm
index e68647755f..b34858337f 100644
--- a/cpan/Encode/lib/Encode/Unicode/UTF7.pm
+++ b/cpan/Encode/lib/Encode/Unicode/UTF7.pm
@@ -1,12 +1,12 @@
 #
-# $Id: UTF7.pm,v 2.10 2017/06/10 17:23:50 dankogai Exp $
+# $Id: UTF7.pm,v 2.11 2026/10/26 01:42:18 dankogai Exp $
 #
 package Encode::Unicode::UTF7;
 use strict;
 use warnings;
 use parent qw(Encode::Encoding);
 __PACKAGE__->Define('UTF-7');
-our $VERSION = do { my @r = ( q$Revision: 2.10 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = '2.11';
 use MIME::Base64;
 use Encode qw(find_encoding);

diff --git a/cpan/Encode/t/taint.t b/cpan/Encode/t/taint.t
index ba171147ae..abede39e60 100644
--- a/cpan/Encode/t/taint.t
+++ b/cpan/Encode/t/taint.t
@@ -12,7 +12,13 @@ my $notaint = "";
 my $notaint_str = "dan\x{5f3e}" . $notaint;
 my $notaint_bin = encode('UTF-8', $notaint_str);
 my @names = Encode->encodings(':all');
-if (exists($Config{taint_support}) && not $Config{taint_support}) {
+
+# $Config{taint_support} was added in 5.37.11
+# the eval below won't fail if taint is not enabled
+if ( $^V < v5.38 && eval { eval "# $ENV{PATH}"; 1 } ) {
+    plan skip_all => "your perl was built without taint support";
+}
+elsif (exists($Config{taint_support}) && not $Config{taint_support}) {
     plan skip_all => "your perl was built without taint support";
 }
 else {