diff options
| author | Philip Newton <pne@cpan.org> | 2002-06-11 08:28:08 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-11 03:27:24 +0000 |
| commit | fca394fcca6f8b19f183027c66da8a99bb43312d (patch) | |
| tree | a178a7f6c9fc3030298a33a6459676ad69a901aa /locale.c | |
| parent | ec71e7703a2a0c5dfad1dd7ebe4daee483e3fcd7 (diff) | |
| download | perl-fca394fcca6f8b19f183027c66da8a99bb43312d.tar.gz | |
Detype locale.c comment
Message-ID: <b0vagu8197d5jn2c5pt8al97loreugl9e5@4ax.com>
p4raw-id: //depot/perl@17181
Diffstat (limited to 'locale.c')
| -rw-r--r-- | locale.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -475,14 +475,14 @@ Perl_init_i18nl10n(pTHX_ int printwarn) #ifdef USE_PERLIO { - /* Set PL_wantut8 to TRUE if using PerlIO _and_ + /* Set PL_wantutf8 to TRUE if using PerlIO _and_ any of the following are true: - nl_langinfo(CODESET) contains /^utf-?8/i - $ENV{LANGUAGE} contains /^utf-?8/i (only if using glibc) - $ENV{LC_CALL} contains /^utf-?8/i - $ENV{LC_CTYPE} contains /^utf-?8/i - $ENV{LANG} contains /^utf-?8/i - If PL_wantutf8 is true the perl.c:S_parse_body() + If PL_wantutf8 is true, perl.c:S_parse_body() will turn on the PerlIO :utf8 discipline on STDIN, STDOUT, STDERR, _and_ the default open discipline. */ |