diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 15:49:52 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-29 15:49:52 +0000 |
| commit | b9531c19967f04908d6f8236ceb2296ad6358488 (patch) | |
| tree | efc08062d61d940a5abbd0ee9c4d984a5d6c967c /ext/Encode | |
| parent | 54bfe034ba642318cf2c7d0b37579f30adef144a (diff) | |
| download | perl-b9531c19967f04908d6f8236ceb2296ad6358488.tar.gz | |
Fix a faulty alias.
p4raw-id: //depot/perl@19885
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/lib/Encode/Alias.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/lib/Encode/Alias.pm b/ext/Encode/lib/Encode/Alias.pm index d684ced9ac..70b3dd8714 100644 --- a/ext/Encode/lib/Encode/Alias.pm +++ b/ext/Encode/lib/Encode/Alias.pm @@ -204,7 +204,7 @@ sub init_aliases # CP936 doesn't have vendor-addon for GBK, so they're identical. define_alias( qr/^gbk$/i => '"cp936"'); # This fixes gb2312 vs. euc-cn confusion, practically - define_alias( qr/\bGB[-_ ]?2312(?:\D.*$|$)/i => '"euc-cn"' ); + define_alias( qr/\bGB[-_ ]?2312(?!-?raw)/i => '"euc-cn"' ); # for Encode::JP define_alias( qr/\bjis$/i => '"7bit-jis"' ); define_alias( qr/\beuc.*jp$/i => '"euc-jp"' ); |