This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RE: Exporter fixes reversed in 13540?
authorBen Tilly <ben_tilly@operamail.com>
Sun, 9 Dec 2001 12:55:15 +0000 (07:55 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Dec 2001 01:53:11 +0000 (01:53 +0000)
Message-ID: <3C13F455@operamail.com>

p4raw-id: //depot/perl@13580

lib/open.pm

index 79cd61b..e5d18fb 100644 (file)
@@ -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()) {