sub _get_locale_encoding {
unless (defined $locale_encoding) {
+ # I18N::Langinfo isn't available everywhere
eval {
- # I18N::Langinfo isn't available everywhere
require I18N::Langinfo;
- I18N::Langinfo->import('langinfo', 'CODESET');
+ 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()) {
declared defaults.
With the C<IN> subpragma you can declare the default layers
-of input sterams, and with the C<OUT> subpragma you can declare
+of input streams, and with the C<OUT> subpragma you can declare
the default layers of output streams. With the C<IO> subpragma
you can control both input and output streams simultaneously.