Change 19885 by [EMAIL PROTECTED] on 2003/06/29 15:49:52
Fix a faulty alias.
Affected files ...
... //depot/perl/ext/Encode/lib/Encode/Alias.pm#26 edit
Differences ...
==== //depot/perl/ext/Encode/lib/Encode/Alias.pm#26 (text) ====
Index: perl/ext/Encode/lib/Encode/Alias.pm
--- perl/ext/Encode/lib/Encode/Alias.pm#25~19578~ Wed May 21 06:01:42 2003
+++ perl/ext/Encode/lib/Encode/Alias.pm Sun Jun 29 08:49:52 2003
@@ -204,7 +204,7 @@
# 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"' );
End of Patch.
