From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 17 Sep 2001 23:53:38 +0000 (+0000)
Subject: Must Uppercase.
X-Git-Tag: perl-5.7.3~2475
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/cf91068fb09054b3785018d10457242f30a92ca3?hp=f7ac36769021f6698f374d5dc8c288f14c86c3fd

Must Uppercase.

p4raw-id: //depot/perl@12064
---

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index ec813f6..2035e20 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -130,7 +130,7 @@ define_alias( qr/^(.+)\@euro$/i => '"$1"' );
 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',