diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-17 23:53:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-17 23:53:38 +0000 |
| commit | cf91068fb09054b3785018d10457242f30a92ca3 (patch) | |
| tree | 8ffbcd0fec4eee6d1f7cac49ca5150426618b9c2 /ext | |
| parent | f7ac36769021f6698f374d5dc8c288f14c86c3fd (diff) | |
| download | perl-cf91068fb09054b3785018d10457242f30a92ca3.tar.gz | |
Must Uppercase.
p4raw-id: //depot/perl@12064
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index ec813f653e..2035e20c15 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', |