diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-11-03 19:50:08 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-19 22:45:36 +0000 |
| commit | 61de9fb5aad39c2904a43125c7c70031be6bc679 (patch) | |
| tree | d615715e978cf25f5b2e85c8a72827506a5de9a1 /lib/open.pm | |
| parent | 31d12d11428d1c60a1eda9dedfa22782c4331ecb (diff) | |
| download | perl-61de9fb5aad39c2904a43125c7c70031be6bc679.tar.gz | |
Re: [PATCH] UTF-8 enabling via locale (was: Re: Redhat 8 issue?)
Message-ID: <20021103155008.GA382682@lyta.hut.fi>
p4raw-id: //depot/perl@18165
Diffstat (limited to 'lib/open.pm')
| -rw-r--r-- | lib/open.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/open.pm b/lib/open.pm index 2dc1d2130c..007b66712d 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -27,6 +27,7 @@ sub _get_locale_encoding { } elsif ($ENV{LANG} =~ /^([^.]+)\.([^.]+)$/) { ($country_language, $locale_encoding) = ($1, $2); } + # LANGUAGE affects only LC_MESSAGES only on glibc } elsif (not $locale_encoding) { if ($ENV{LC_ALL} =~ /\butf-?8\b/i || $ENV{LANG} =~ /\butf-?8\b/i) { @@ -250,7 +251,7 @@ pragma. =back -If your locale environment variables (LANGUAGE, LC_ALL, LC_CTYPE, LANG) +If your locale environment variables (LC_ALL, LC_CTYPE, LANG) contain the strings 'UTF-8' or 'UTF8' (case-insensitive matching), the default encoding of your STDIN, STDOUT, and STDERR, and of B<any subsequent file open>, is UTF-8. |