diff options
| author | autrijus@ossf.iis.sinica.edu.tw <autrijus@ossf.iis.sinica.edu.tw> | 2003-02-08 11:54:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-09 08:42:19 +0000 |
| commit | e7e5539a06ab5b0ab04adb55000d5c47cf9f3f32 (patch) | |
| tree | 84c6ef7921a138bafeb1370e17657e4aab51cd3d /ext | |
| parent | 6ec06612ae1fd94d8b029b09c7ab7efa1c33f2e4 (diff) | |
| download | perl-e7e5539a06ab5b0ab04adb55000d5c47cf9f3f32.tar.gz | |
[perl #20785] glitches with $PerlIO::encoding::fallback
From: "autrijus@ossf.iis.sinica.edu.tw (via RT)" <perlbug-followup@perl.org>
Message-Id: <rt-20785-50586.6.45611613038412@bugs6.perl.org>
p4raw-id: //depot/perl@18677
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/PerlIO/encoding/encoding.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO/encoding/encoding.pm b/ext/PerlIO/encoding/encoding.pm index 16a629c6fa..53c9d460c7 100644 --- a/ext/PerlIO/encoding/encoding.pm +++ b/ext/PerlIO/encoding/encoding.pm @@ -27,7 +27,7 @@ PerlIO::encoding - encoding layer open($f, ">:encoding(bar)", "outbar"); use Encode qw(:fallbacks); - $PerlIO::encoding::check = FB_PERLQQ; + $PerlIO::encoding::fallback = FB_PERLQQ; =head1 DESCRIPTION @@ -38,7 +38,7 @@ character set and encoding to Perl string data (Unicode and Perl's internal Unicode encoding, UTF-8). On output, convert Perl string data into the specified character set and encoding. -When the layer is pushed the current value of C<$PerlIO::encoding::check> +When the layer is pushed the current value of C<$PerlIO::encoding::fallback> is saved and used as the check argument when calling the Encodings encode and decode. |