X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPerlIO.pm;h=672efb2324356ddd641f509b975df976c52a28fb;hb=80fea0d2bcf08e174a74010b6dc3b53a2700dacd;hp=1028c1101385414039dae857d9d1af3b359ebd68;hpb=0226bbdb9567884ccd3573b0b35272e596fbceba;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/PerlIO.pm b/lib/PerlIO.pm
index 1028c11..672efb2 100644
--- a/lib/PerlIO.pm
+++ b/lib/PerlIO.pm
@@ -133,6 +133,22 @@ a known base on which to build e.g.
 
 will construct a "binary" stream, but then enable UTF-8 translation.
 
+=item pop
+
+A pseudo layer that removes the top-most layer. Gives perl code
+a way to manipulate the layer stack. Should be considered
+as experimental. Note that C<:pop> only works on real layers
+and will not undo the effects of pseudo layers like C<:utf8>.
+An example of a possible use might be:
+
+    open($fh,...)
+    ...
+    binmode($fh,":encoding(...)");  # next chunk is encoded
+    ...
+    binmode($fh,":pop");            # back to un-encocded
+
+A more elegant (and safer) interface is needed.
+
 =back
 
 =head2 Alternatives to raw
@@ -187,7 +203,7 @@ Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt>
 
 =head1 SEE ALSO
 
-L<perlfunc/"binmode">, L<perlfunc/"open">, L<perlunicode>, L<Encode>
+L<perlfunc/"binmode">, L<perlfunc/"open">, L<perlunicode>, L<perliol>, L<Encode>
 
 =cut