diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-10 13:44:49 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-10 13:44:49 +0000 |
| commit | 085a54d9d9ac170c5d83f58a4044ae87b7a9d8a5 (patch) | |
| tree | 776351fa6cf14d4c6aff8b5ccda7d59ae52949fd /perl.c | |
| parent | 2d7a8e4a66603f18090334deec9cdaa9af6fd18f (diff) | |
| download | perl-085a54d9d9ac170c5d83f58a4044ae87b7a9d8a5.tar.gz | |
NI-S doesn't need these comments :-) but I'm commenting anyway.
p4raw-id: //depot/perl@17166
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -1478,10 +1478,15 @@ print \" \\@INC:\\n @INC\\n\";"); if (!PL_do_undump) init_postdump_symbols(argc,argv,env); + /* PL_wantutf8 is conditionally turned on by + * locale.c:Perl_init_i18nl10n() if the environment + * look like the user wants to use UTF-8. */ if (PL_wantutf8) { /* Requires init_predump_symbols(). */ IO* io; PerlIO* fp; SV* sv; + /* Turn on UTF-8-ness on STDIN, STDOUT, STDERR + * _and_ the default open discipline. */ if (PL_stdingv && (io = GvIO(PL_stdingv)) && (fp = IoIFP(io))) PerlIO_binmode(aTHX_ fp, IoTYPE(io), 0, ":utf8"); if (PL_defoutgv && (io = GvIO(PL_defoutgv)) && (fp = IoOFP(io))) |