address dankogai#37

rurban · May 10, 2019 · 18baed0 · 18baed0
1 parent 5c54e52
commit 18baed0
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -3,6 +3,17 @@
 # $Id: Changes,v 2.70 2015/02/05 10:53:00 dankogai Exp dankogai $
 #
 $Revision: 2.70 $ $Date: 2015/02/05 10:53:00 $
+! lib/Encode/Alias.pm t/Aliases.t
+  Add cp65000 => UTF-7 and cp65001 => utf-8-strict
+  https://github.com/dankogai/p5-encode/issues/37
+! encoding.pm
+  Sync w/ bleadperl
+  https://github.com/dankogai/p5-encode/pull/36
+! bin/encguess
+  Pulled: show encguess example per #33
+  https://github.com/dankogai/p5-encode/pull/34
+
+2.70 2015/02/05 10:53:00
 ! Makefile.PL
   add bin/encguess to EXE_FILES
 

diff --git a/lib/Encode/Alias.pm b/lib/Encode/Alias.pm
@@ -256,6 +256,10 @@ sub init_aliases {
         define_alias( qr/\bhk(?:scs)?[-_]?big5$/i => '"big5-hkscs"' );
     }
 
+    # https://github.com/dankogai/p5-encode/issues/37
+    define_alias(qr/cp65000/i => '"UTF-7"');
+    define_alias(qr/cp65001/i => '"utf-8-strict"');
+
     # utf8 is blessed :)
     define_alias( qr/\bUTF-8$/i => '"utf-8-strict"' );
 

diff --git a/t/Aliases.t b/t/Aliases.t
@@ -81,6 +81,8 @@ sub init_a2c{
         'jis0208-raw'   => $ON_EBCDIC ? '' : 'jis0208-raw',
         'jis0212-raw'   => $ON_EBCDIC ? '' : 'jis0212-raw',
         'ksc5601-raw'   => $ON_EBCDIC ? '' : 'ksc5601-raw',
+        'cp65000' => 'UTF-7',
+        'cp65001' => 'utf-8-strict',
        );
 
     for my $i (1..11,13..16){