summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/PerlIO
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/PerlIO')
-rw-r--r--Master/tlpkg/tlperl/lib/PerlIO/encoding.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/PerlIO/mmap.pm30
-rw-r--r--Master/tlpkg/tlperl/lib/PerlIO/scalar.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/PerlIO/via.pm6
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])