Change 13580 by jhi@alpha on 2001/12/10 01:53:11
Subject: RE: Exporter fixes reversed in 13540?
From: "Benjamin J. Tilly" <[EMAIL PROTECTED]>
Date: Sun, 9 Dec 2001 12:55:15 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/open.pm#26 edit
Differences ...
==== //depot/perl/lib/open.pm#26 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Sun Dec 9 19:00:06 2001
+++ perl/lib/open.pm Sun Dec 9 19:00:06 2001
@@ -11,9 +11,13 @@
sub _get_locale_encoding {
unless (defined $locale_encoding) {
# I18N::Langinfo isn't available everywhere
- eval "use I18N::Langinfo qw(langinfo CODESET)";
+ eval {
+ require I18N::Langinfo;
+ I18N::Langinfo->import(qw(langinfo CODESET));
+ $locale_encoding = langinfo(CODESET());
+ };
unless ($@) {
- $locale_encoding = langinfo(CODESET());
+ print "# locale_encoding = $locale_encoding\n";
}
my $country_language;
if (not $locale_encoding && in_locale()) {
End of Patch.
