This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perluniintro vs Encode::Alias] Is KOI8R is an alise for koi8-r?
[perl5.git] / ext / Encode / lib / Encode / Alias.pm
index 1abfcaf..5eeb125 100644 (file)
@@ -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