diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/PerlIO.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO.pm | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/Master/tlpkg/tlperl/lib/PerlIO.pm b/Master/tlpkg/tlperl/lib/PerlIO.pm index f4a01974b65..46e6e444ef3 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO.pm @@ -1,6 +1,6 @@ package PerlIO; -our $VERSION = '1.06'; +our $VERSION = '1.07'; # Map layer name to package that defines it our %alias; @@ -85,24 +85,12 @@ C<:perlio> will insert a C<:unix> layer below itself to do low level IO. A layer that implements DOS/Windows like CRLF line endings. On read converts pairs of CR,LF to a single "\n" newline character. On write -converts each "\n" to a CR,LF pair. Note that this layer likes to be -one of its kind: it silently ignores attempts to be pushed into the -layer stack more than once. +converts each "\n" to a CR,LF pair. Note that this layer will silently +refuse to be pushed on top of itself. It currently does I<not> mimic MS-DOS as far as treating of Control-Z as being an end-of-file marker. -(Gory details follow) To be more exact what happens is this: after -pushing itself to the stack, the C<:crlf> layer checks all the layers -below itself to find the first layer that is capable of being a CRLF -layer but is not yet enabled to be a CRLF layer. If it finds such a -layer, it enables the CRLFness of that other deeper layer, and then -pops itself off the stack. If not, fine, use the one we just pushed. - -The end result is that a C<:crlf> means "please enable the first CRLF -layer you can find, and if you can't find one, here would be a good -spot to place a new one." - Based on the C<:perlio> layer. =item :mmap |