diff options
author | Dan Kogai <dankogai@dan.co.jp> | 2022-08-04 13:10:50 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-08-04 13:10:50 +0000 |
commit | 3aee5eac6713af24445ca3be6b03ca516e190219 (patch) | |
tree | 95706c3471b9e68fd49d0e61b57e06f53a484c2d /cpan/Encode | |
parent | dfbf5f46d1d33033c44ae80f74f875abf73e5e02 (diff) | |
download | perl-3aee5eac6713af24445ca3be6b03ca516e190219.tar.gz |
Encode: sync with CPAN version 3.19
Correct one alias: ISO-8859-8-I -> ISO-8859-8.
Diffstat (limited to 'cpan/Encode')
-rw-r--r-- | cpan/Encode/Encode.pm | 4 | ||||
-rw-r--r-- | cpan/Encode/lib/Encode/Alias.pm | 6 | ||||
-rw-r--r-- | cpan/Encode/t/Aliases.t | 1 |
3 files changed, 8 insertions, 3 deletions
diff --git a/cpan/Encode/Encode.pm b/cpan/Encode/Encode.pm index de4ff9bff5..8a2727fc44 100644 --- a/cpan/Encode/Encode.pm +++ b/cpan/Encode/Encode.pm @@ -1,5 +1,5 @@ # -# $Id: Encode.pm,v 3.18 2022/06/25 02:04:06 dankogai Exp $ +# $Id: Encode.pm,v 3.19 2022/08/04 04:42:30 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.18 $ =~ /(\d+)/g; + $VERSION = sprintf "%d.%02d", q$Revision: 3.19 $ =~ /(\d+)/g; require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); } diff --git a/cpan/Encode/lib/Encode/Alias.pm b/cpan/Encode/lib/Encode/Alias.pm index dbfa01b618..cca72a3d84 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.24 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.25 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; use Exporter 'import'; @@ -162,6 +162,10 @@ sub init_aliases { # Allow variants of iso-8859-1 etc. define_alias( qr/\biso[-_]?(\d+)[-_](\d+)$/i => '"iso-$1-$2"' ); + # ISO-8859-8-I => ISO-8859-8 + # https://en.wikipedia.org/wiki/ISO-8859-8-I + define_alias( qr/\biso[-_]8859[-_]8[-_]I$/i => '"iso-8859-8"' ); + # At least HP-UX has these. define_alias( qr/\biso8859(\d+)$/i => '"iso-8859-$1"' ); diff --git a/cpan/Encode/t/Aliases.t b/cpan/Encode/t/Aliases.t index 8d4752bddb..23a1cd38e8 100644 --- a/cpan/Encode/t/Aliases.t +++ b/cpan/Encode/t/Aliases.t @@ -42,6 +42,7 @@ sub init_a2c{ 'arabic' => 'iso-8859-6', 'greek' => 'iso-8859-7', 'hebrew' => 'iso-8859-8', + 'iso-8859-8-I' => 'iso-8859-8', 'thai' => 'iso-8859-11', 'tis620' => 'iso-8859-11', 'tis-620' => 'iso-8859-11', |