X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPerlIO.pm;h=c0acdec4a4557a39468d62986262439eb4cd10fc;hb=ff504b36b0f6467f64b463fd17fb34f640855abc;hp=3b277d93761d1b01654837af672a660c49b5372f;hpb=3d897973af512747f1e151f6cf3b7bc2230d4067;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/PerlIO.pm b/lib/PerlIO.pm index 3b277d9..c0acdec 100644 --- a/lib/PerlIO.pm +++ b/lib/PerlIO.pm @@ -1,6 +1,6 @@ package PerlIO; -our $VERSION = '1.02'; +our $VERSION = '1.04'; # Map layer name to package that defines it our %alias; @@ -35,7 +35,7 @@ PerlIO - On demand loader for PerlIO layers and root of PerlIO::* name space =head1 SYNOPSIS - open($fh,"<:crlf", "my.txt"); # portably open a text file for reading + open($fh,"<:crlf", "my.txt"); # support platform-native and CRLF text files open($fh,"<","his.jpg"); # portably open a binary file for reading binmode($fh); @@ -121,7 +121,7 @@ The C<:mmap> layer will not exist if platform does not support C. =item :utf8 -Declares that the stream accepts perl's internal encoding of +Declares that the stream accepts perl's I encoding of characters. (Which really is UTF-8 on ASCII machines, but is UTF-EBCDIC on EBCDIC machines.) This allows any character perl can represent to be read from or written to the stream. The UTF-X encoding @@ -188,7 +188,7 @@ An example of a possible use might be: ... binmode($fh,":encoding(...)"); # next chunk is encoded ... - binmode($fh,":pop"); # back to un-encocded + binmode($fh,":pop"); # back to un-encoded A more elegant (and safer) interface is needed. @@ -288,7 +288,7 @@ The following table summarizes the default layers on UNIX-like and DOS-like platforms and depending on the setting of the C<$ENV{PERLIO}>: PERLIO UNIX-like DOS-like - + ------ --------- -------- unset / "" unix perlio / stdio [1] unix crlf stdio unix perlio / stdio [1] stdio perlio unix perlio unix perlio @@ -317,7 +317,7 @@ B The arguments to layers are by default returned in parenthesis after the name of the layer, and certain layers (like C) are not real layers but instead flags on real layers: to get all of these returned -separately use the optional C argument: +separately use the optional C
argument: my @layer_and_args_and_flags = PerlIO::get_layers($fh, details => 1); @@ -338,4 +338,3 @@ L, L, L, L, L =cut -