[perluniintro vs Encode::Alias] Is KOI8R is an alise for koi8-r?

Message-Id: <20030713102228.C76A.BQW10602@nifty.com>

p4raw-id: //depot/perl@20309

diff --git a/ext/Encode/lib/Encode/Alias.pm b/ext/Encode/lib/Encode/Alias.pm
index 1abfcaf..5eeb125 100644 (file)
--- a/ext/Encode/lib/Encode/Alias.pm
+++ b/ext/Encode/lib/Encode/Alias.pm
@@ -192,9 +192,9 @@ sub init_aliases
     # define_alias( qr/\bmacRomanian$/i => '"macRumanian"');
   
     # Standardize on the dashed versions.
-    # define_alias( qr/\butf8$/i  => 'utf-8' );
-    define_alias( qr/\bkoi8r$/i => 'koi8-r' );
-    define_alias( qr/\bkoi8u$/i => 'koi8-u' );
+    # define_alias( qr/\butf8$/i  => '"utf-8"' );
+    define_alias( qr/\bkoi8r$/i => '"koi8-r"' );
+    define_alias( qr/\bkoi8u$/i => '"koi8-u"' );
 
     unless ($Encode::ON_EBCDIC){
         # for Encode::CN