diff options
Diffstat (limited to 'lib/open.pm')
| -rw-r--r-- | lib/open.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/open.pm b/lib/open.pm index 79cd61b233..e5d18fb525 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -11,9 +11,13 @@ sub in_locale { $^H & $locale::hint_bits } sub _get_locale_encoding { unless (defined $locale_encoding) { # I18N::Langinfo isn't available everywhere - eval "use I18N::Langinfo qw(langinfo CODESET)"; - unless ($@) { + eval { + require I18N::Langinfo; + I18N::Langinfo->import(qw(langinfo CODESET)); $locale_encoding = langinfo(CODESET()); + }; + unless ($@) { + print "# locale_encoding = $locale_encoding\n"; } my $country_language; if (not $locale_encoding && in_locale()) { |