package PerlIO::encoding;
-our $VERSION = '0.03';
+use strict;
+our $VERSION = '0.09';
+our $DEBUG = 0;
+$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
+
+#
+# Equivalent of this is done in encoding.xs - do not uncomment.
+#
+# use Encode ();
+
use XSLoader ();
-use Encode (); # Load but do not import anything.
-our $check;
-XSLoader::load 'PerlIO::encoding';
+XSLoader::load(__PACKAGE__, $VERSION);
+
+our $fallback =
+ Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL();
+
1;
__END__
open($f, "<:encoding(foo)", "infoo");
open($f, ">:encoding(bar)", "outbar");
- use Encode;
- $PerlIO::encoding::check = Encode::FB_PERLQQ();
+ use Encode qw(:fallbacks);
+ $PerlIO::encoding::fallback = FB_PERLQQ;
=head1 DESCRIPTION
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.
=cut
-