diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/PerlIO')
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/encoding.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/mmap.pm | 30 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/scalar.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/PerlIO/via.pm | 6 |
4 files changed, 35 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm b/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm index f7f3f2e3127..ee3573e02bc 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/encoding.pm @@ -1,7 +1,7 @@ package PerlIO::encoding; use strict; -our $VERSION = '0.14'; +our $VERSION = '0.15'; our $DEBUG = 0; $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; diff --git a/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm b/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm new file mode 100644 index 00000000000..7db4a55137f --- /dev/null +++ b/Master/tlpkg/tlperl/lib/PerlIO/mmap.pm @@ -0,0 +1,30 @@ +package PerlIO::mmap; +use strict; +use warnings; +our $VERSION = '0.010'; + +use XSLoader; +XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION); + +1; + +__END__ + +=head1 NAME + +PerlIO::mmap - Memory mapped IO + +=head1 SYNOPSIS + + open my $fh, '<:mmap', $filename; + +=head1 DESCRIPTION + +This layer does C<read> and C<write> operations by mmap()ing the file if possible, but falls back to the default behavior if not. + +=head1 IMPLEMENTATION NOTE + +C<PerlIO::mmap> only exists to use XSLoader to load C code that provides support for using memory mapped IO. One does not need to explicitly C<use PerlIO::mmap;>. + +=cut + diff --git a/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm b/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm index a6da9631cfb..6c304f20db4 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/scalar.pm @@ -1,5 +1,5 @@ package PerlIO::scalar; -our $VERSION = '0.11_01'; +our $VERSION = '0.14_01'; require XSLoader; XSLoader::load(); 1; diff --git a/Master/tlpkg/tlperl/lib/PerlIO/via.pm b/Master/tlpkg/tlperl/lib/PerlIO/via.pm index 2907762aa47..601be80bbcd 100644 --- a/Master/tlpkg/tlperl/lib/PerlIO/via.pm +++ b/Master/tlpkg/tlperl/lib/PerlIO/via.pm @@ -1,5 +1,5 @@ package PerlIO::via; -our $VERSION = '0.11'; +our $VERSION = '0.12'; require XSLoader; XSLoader::load(); 1; @@ -74,7 +74,7 @@ C<FDOPEN> or by letting a lower layer do the open. Optional - called when the layer is about to be removed. -=item $obj->UTF8($bellowFlag,[$fh]) +=item $obj->UTF8($belowFlag,[$fh]) Optional - if present it will be called immediately after PUSHED has returned. It should return a true value if the layer expects data to be @@ -84,7 +84,7 @@ UTF-8 encoded. If it returns true, the result is as if the caller had done If not present or if it returns false, then the stream is left with the UTF-8 flag clear. -The I<$bellowFlag> argument will be true if there is a layer below +The I<$belowFlag> argument will be true if there is a layer below and that layer was expecting UTF-8. =item $obj->OPEN($path,$mode,[$fh]) |