diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 04:36:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 04:36:47 +0000 |
| commit | 5a192dee57837ac67b6c6d2786ac0b8ef2199c3f (patch) | |
| tree | 001f660769f72a023f99796cf53cb8663a9f30f7 /lib/open.pm | |
| parent | 3eae5ce4a4b90029f63b3704e1e4f298978a360c (diff) | |
| download | perl-5a192dee57837ac67b6c6d2786ac0b8ef2199c3f.tar.gz | |
Locale encoding tweaks.
p4raw-id: //depot/perl@11291
Diffstat (limited to 'lib/open.pm')
| -rw-r--r-- | lib/open.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/open.pm b/lib/open.pm index eda8658696..c338abf7f3 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -10,8 +10,7 @@ sub in_locale { $^H & $locale::hint_bits } 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 @@ sub _get_locale_encoding { 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'; |