Change 13459: Make the eval runtime.

[Jarkko Hietaniemi]

Change 13459 by jhi@alpha on 2001/12/04 14:39:38

        Make the eval runtime.

Affected files ...

.... //depot/perl/lib/open.pm#25 edit

Differences ...

==== //depot/perl/lib/open.pm#25 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~        Tue Dec  4 07:45:05 2001
+++ perl/lib/open.pm    Tue Dec  4 07:45:05 2001
@@ -10,11 +10,8 @@
 
 sub _get_locale_encoding {
     unless (defined $locale_encoding) {
-       eval {
-           # I18N::Langinfo isn't available everywhere
-           require I18N::Langinfo;
-           I18N::Langinfo->import('langinfo', 'CODESET');
-       };
+       # I18N::Langinfo isn't available everywhere
+       eval "use I18N::Langinfo qw(langinfo CODESET)";
        unless ($@) {
            $locale_encoding = langinfo(CODESET());
        }
End of Patch.