Change 12064 by jhi@alpha on 2001/09/17 23:53:38
Must Uppercase.
Affected files ...
... //depot/perl/ext/Encode/Encode.pm#36 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.pm#36 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~ Mon Sep 17 18:00:05 2001
+++ perl/ext/Encode/Encode.pm Mon Sep 17 18:00:05 2001
@@ -130,7 +130,7 @@
define_alias( qr/^(?:iso[-_]?)?latin[-_]?(\d+)$/i => '"iso-8859-$latin2iso_num[$1]"'
);
# Allow winlatin1 style names as well
-define_alias(
qr/^win(latin[12]|cyrillic|baltic|greek|turkish|hebrew|arabic|baltic|vietnamese)$/i =>
'"cp$winlatin2cp{$1}"' );
+define_alias(
+qr/^win(latin[12]|cyrillic|baltic|greek|turkish|hebrew|arabic|baltic|vietnamese)$/i
+=> '"cp$winlatin2cp{\u$1}"' );
# Common names for non-latin prefered MIME names
define_alias( 'ascii' => 'US-ascii',
End of Patch.
