Change 11291 by jhi@alpha on 2001/07/12 04:36:47
Locale encoding tweaks.
Affected files ...
... //depot/perl/lib/open.pm#15 edit
Differences ...
==== //depot/perl/lib/open.pm#15 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Wed Jul 11 22:45:06 2001
+++ perl/lib/open.pm Wed Jul 11 22:45:06 2001
@@ -10,8 +10,7 @@
sub _get_locale_encoding {
unless (defined $locale_encoding) {
- eval { require I18N::Langinfo;
- import I18N::Langinfo qw(langinfo CODESET) };
+ eval { use I18N::Langinfo qw(langinfo CODESET) };
unless ($@) {
$locale_encoding = langinfo(CODESET);
}
@@ -35,7 +34,7 @@
defined $country_language) {
if ($country_language =~ /^ja_JP|japan(?:ese)?$/i) {
$locale_encoding = 'eucjp';
- } elsif ($country_language =~ /^ko_KR|korea(?:n)?$/i) {
+ } elsif ($country_language =~ /^ko_KR|korean?$/i) {
$locale_encoding = 'euckr';
} elsif ($country_language =~ /^zh_TW|taiwan(?:ese)?$/i) {
$locale_encoding = 'euctw';
End of Patch.
