From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Sun, 13 Jul 2003 10:23:35 +0000 (+0900)
Subject: [perluniintro vs Encode::Alias] Is KOI8R is an alise for koi8-r?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78c56a8ce71edce32bfc096b248fc7fdd8188919;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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