From: autrijus@ossf.iis.sinica.edu.tw <autrijus@ossf.iis.sinica.edu.tw>
Date: Sat, 8 Feb 2003 11:54:11 +0000 (+0000)
Subject: [perl #20785] glitches with $PerlIO::encoding::fallback
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7e5539a06ab5b0ab04adb55000d5c47cf9f3f32;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/ext/PerlIO/encoding/encoding.pm b/ext/PerlIO/encoding/encoding.pm
index 16a629c..53c9d46 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.