Upgrade to Encode 2.11, plus a patch to PerlIO::encoding

[p5sagit/p5-mst-13.2.git] / ext / PerlIO / encoding / encoding.pm

diff --git a/ext/PerlIO/encoding/encoding.pm b/ext/PerlIO/encoding/encoding.pm
index 9996057..f0d419b 100644 (file)
--- a/ext/PerlIO/encoding/encoding.pm
+++ b/ext/PerlIO/encoding/encoding.pm
@@ -1,18 +1,20 @@
 package PerlIO::encoding;
 use strict;
-our $VERSION = '0.04';
+our $VERSION = '0.09';
 our $DEBUG = 0;
 $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
 
 #
-# Now these are all done in encoding.xs DO NOT COMMENT'em out!
+# Equivalent of this is done in encoding.xs - do not uncomment.
 #
-# use Encode qw(:fallbacks);
-# our $check;
+# use Encode ();
 
 use XSLoader ();
 XSLoader::load(__PACKAGE__, $VERSION);
 
+our $fallback =
+    Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL();
+
 1;
 __END__
 
@@ -26,7 +28,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
 
@@ -37,7 +39,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.