summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/IO/Uncompress
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO/Uncompress')
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm6
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm6
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm7
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm91
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm149
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm30
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm77
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm83
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm77
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm79
-rw-r--r--Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm98
11 files changed, 361 insertions, 342 deletions
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm
index 2bd5e24236d..1aa9a8c39b7 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm
@@ -4,12 +4,12 @@ use strict;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.074 qw(:Status);
+use IO::Compress::Base::Common 2.084 qw(:Status);
-use Compress::Raw::Bzip2 2.074 ;
+use Compress::Raw::Bzip2 2.084 ;
our ($VERSION, @ISA);
-$VERSION = '2.074';
+$VERSION = '2.084';
sub mkUncompObject
{
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm
index 3327fbc4bcc..5601599225f 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm
@@ -4,14 +4,14 @@ use warnings;
use strict;
use bytes;
-use IO::Compress::Base::Common 2.074 qw(:Status);
+use IO::Compress::Base::Common 2.084 qw(:Status);
use IO::Compress::Zip::Constants ;
our ($VERSION);
-$VERSION = '2.074';
+$VERSION = '2.084';
-use Compress::Raw::Zlib 2.074 ();
+use Compress::Raw::Zlib 2.084 ();
sub mkUncompObject
{
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm
index 256d8409dd2..f51c64d7e54 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm
@@ -4,11 +4,11 @@ use strict;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.074 qw(:Status);
-use Compress::Raw::Zlib 2.074 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common 2.084 qw(:Status);
+use Compress::Raw::Zlib 2.084 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
our ($VERSION);
-$VERSION = '2.074';
+$VERSION = '2.084';
@@ -62,7 +62,6 @@ sub uncompr
my $status = $inf->inflate($from, $to, $eof);
$self->{ErrorNo} = $status;
-
if ($status != Z_OK && $status != Z_STREAM_END && $status != Z_BUF_ERROR)
{
$self->{Error} = "Inflation Error: $status";
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm
index 40264960fdc..be464889ebb 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm
@@ -6,22 +6,22 @@ use strict;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.074 ();
+use IO::Compress::Base::Common 2.084 ();
-use IO::Uncompress::Adapter::Inflate 2.074 ();
+use IO::Uncompress::Adapter::Inflate 2.084 ();
-use IO::Uncompress::Base 2.074 ;
-use IO::Uncompress::Gunzip 2.074 ;
-use IO::Uncompress::Inflate 2.074 ;
-use IO::Uncompress::RawInflate 2.074 ;
-use IO::Uncompress::Unzip 2.074 ;
+use IO::Uncompress::Base 2.084 ;
+use IO::Uncompress::Gunzip 2.084 ;
+use IO::Uncompress::Inflate 2.084 ;
+use IO::Uncompress::RawInflate 2.084 ;
+use IO::Uncompress::Unzip 2.084 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.074';
+$VERSION = '2.084';
$AnyInflateError = '';
@ISA = qw(IO::Uncompress::Base Exporter);
@@ -48,7 +48,7 @@ sub anyinflate
sub getExtraParams
{
- use IO::Compress::Base::Common 2.074 qw(:Parse);
+ use IO::Compress::Base::Common 2.084 qw(:Parse);
return ( 'rawinflate' => [Parse_boolean, 0] ) ;
}
@@ -135,7 +135,7 @@ IO::Uncompress::AnyInflate - Uncompress zlib-based (zip, gzip) file/buffer
my $status = anyinflate $input => $output [,OPTS]
or die "anyinflate failed: $AnyInflateError\n";
- my $z = new IO::Uncompress::AnyInflate $input [OPTS]
+ my $z = new IO::Uncompress::AnyInflate $input [OPTS]
or die "anyinflate failed: $AnyInflateError\n";
$status = $z->read($buffer)
@@ -205,7 +205,7 @@ section.
use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
- anyinflate $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ anyinflate $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "anyinflate failed: $AnyInflateError\n";
The functional interface needs Perl5.005 or better.
@@ -218,7 +218,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -236,17 +236,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -254,8 +254,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<anyinflate> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<anyinflate> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -276,7 +276,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -285,14 +285,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -331,7 +331,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<anyinflate> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -342,10 +342,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -374,7 +371,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -402,7 +399,7 @@ Defaults to 0.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -414,7 +411,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -449,7 +446,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.txt.Compressed"
or die "Cannot open 'file1.txt.Compressed': $!\n" ;
my $buffer ;
- anyinflate $input => \$buffer
+ anyinflate $input => \$buffer
or die "anyinflate failed: $AnyInflateError\n";
To uncompress all files in the directory "/my/home" that match "*.txt.Compressed" and store the compressed data in the same directory
@@ -471,7 +468,7 @@ and if you want to compress each file one at a time, this will do the trick
{
my $output = $input;
$output =~ s/.Compressed// ;
- anyinflate $input => $output
+ anyinflate $input => $output
or die "Error compressing '$input': $AnyInflateError\n";
}
@@ -512,7 +509,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -587,7 +584,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -634,7 +631,7 @@ If the input is a gzip (RFC 1952) data stream, the following will be checked:
=over 5
-=item 1
+=item 1
If the FHCRC bit is set in the gzip FLG header byte, the CRC16 bytes in the
header must match the crc16 value of the gzip header actually read.
@@ -673,7 +670,7 @@ uncompressed data actually read from the file.
=item C<< RawInflate => 0|1 >>
When auto-detecting the compressed format, try to test for raw-deflate (RFC
-1951) content using the C<IO::Uncompress::RawInflate> module.
+1951) content using the C<IO::Uncompress::RawInflate> module.
The reason this is not default behaviour is because RFC 1951 content can
only be detected by attempting to uncompress it. This process is error
@@ -696,7 +693,7 @@ Defaults to 0.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -740,16 +737,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -832,7 +829,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -879,7 +876,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::AnyInflate object is destroyed (either explicitly or by the
@@ -933,7 +930,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -941,9 +938,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::AnyInflate at present.
+No symbolic constants are required by this IO::Uncompress::AnyInflate at present.
=over 5
@@ -964,7 +961,7 @@ See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -972,7 +969,7 @@ L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
L<Archive::Tar|Archive::Tar>,
L<IO::Zlib|IO::Zlib>
-For RFC 1950, 1951 and 1952 see
+For RFC 1950, 1951 and 1952 see
L<http://www.faqs.org/rfcs/rfc1950.html>,
L<http://www.faqs.org/rfcs/rfc1951.html> and
L<http://www.faqs.org/rfcs/rfc1952.html>
@@ -987,7 +984,7 @@ The primary site for gzip is L<http://www.gzip.org>.
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -995,7 +992,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm
index e149a129ac6..c6dfce536b4 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm
@@ -4,16 +4,16 @@ use strict;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.074 ();
+use IO::Compress::Base::Common 2.084 ();
-use IO::Uncompress::Base 2.074 ;
+use IO::Uncompress::Base 2.084 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.074';
+$VERSION = '2.084';
$AnyUncompressError = '';
@ISA = qw(IO::Uncompress::Base Exporter);
@@ -29,22 +29,27 @@ BEGIN
{
local @INC = @INC;
pop @INC if $INC[-1] eq '.';
- eval ' use IO::Uncompress::Adapter::Inflate 2.074 ;';
- eval ' use IO::Uncompress::Adapter::Bunzip2 2.074 ;';
- eval ' use IO::Uncompress::Adapter::LZO 2.074 ;';
- eval ' use IO::Uncompress::Adapter::Lzf 2.074 ;';
- eval ' use IO::Uncompress::Adapter::UnLzma 2.074 ;';
- eval ' use IO::Uncompress::Adapter::UnXz 2.074 ;';
-
- eval ' use IO::Uncompress::Bunzip2 2.074 ;';
- eval ' use IO::Uncompress::UnLzop 2.074 ;';
- eval ' use IO::Uncompress::Gunzip 2.074 ;';
- eval ' use IO::Uncompress::Inflate 2.074 ;';
- eval ' use IO::Uncompress::RawInflate 2.074 ;';
- eval ' use IO::Uncompress::Unzip 2.074 ;';
- eval ' use IO::Uncompress::UnLzf 2.074 ;';
- eval ' use IO::Uncompress::UnLzma 2.074 ;';
- eval ' use IO::Uncompress::UnXz 2.074 ;';
+ eval ' use IO::Uncompress::Adapter::Inflate 2.084 ;';
+ eval ' use IO::Uncompress::Adapter::Bunzip2 2.084 ;';
+ eval ' use IO::Uncompress::Adapter::LZO 2.084 ;';
+ eval ' use IO::Uncompress::Adapter::Lzf 2.084 ;';
+ eval ' use IO::Uncompress::Adapter::UnLzma 2.084 ;';
+ eval ' use IO::Uncompress::Adapter::UnXz 2.084 ;';
+ eval ' use IO::Uncompress::Adapter::UnZstd 2.083 ;';
+ eval ' use IO::Uncompress::Adapter::UnLzip 2.084 ;';
+
+ eval ' use IO::Uncompress::Bunzip2 2.084 ;';
+ eval ' use IO::Uncompress::UnLzop 2.084 ;';
+ eval ' use IO::Uncompress::Gunzip 2.084 ;';
+ eval ' use IO::Uncompress::Inflate 2.084 ;';
+ eval ' use IO::Uncompress::RawInflate 2.084 ;';
+ eval ' use IO::Uncompress::Unzip 2.084 ;';
+ eval ' use IO::Uncompress::UnLzf 2.084 ;';
+ eval ' use IO::Uncompress::UnLzma 2.084 ;';
+ eval ' use IO::Uncompress::UnXz 2.084 ;';
+ eval ' use IO::Uncompress::UnZstd 2.084 ;';
+ eval ' use IO::Uncompress::UnLzip 2.084 ;';
+
}
sub new
@@ -191,6 +196,39 @@ sub mkUncomp
return 1;
}
+ if (defined $IO::Uncompress::UnZstd::VERSION and
+ $magic = $self->ckMagic('UnZstd')) {
+
+ *$self->{Info} = $self->readHeader($magic)
+ or return undef ;
+
+ my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Zstd::mkUncompObject();
+
+ return $self->saveErrorString(undef, $errstr, $errno)
+ if ! defined $obj;
+
+ *$self->{Uncomp} = $obj;
+
+ return 1;
+ }
+
+
+ if (defined $IO::Uncompress::UnLzip::VERSION and
+ $magic = $self->ckMagic('UnLzip')) {
+
+ *$self->{Info} = $self->readHeader($magic)
+ or return undef ;
+
+ my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnLzip::mkUncompObject(*$self->{Info}{DictSize});
+
+ return $self->saveErrorString(undef, $errstr, $errno)
+ if ! defined $obj;
+
+ *$self->{Uncomp} = $obj;
+
+ return 1;
+ }
+
return 0 ;
}
@@ -237,7 +275,7 @@ IO::Uncompress::AnyUncompress - Uncompress gzip, zip, bzip2 or lzop file/buffer
my $status = anyuncompress $input => $output [,OPTS]
or die "anyuncompress failed: $AnyUncompressError\n";
- my $z = new IO::Uncompress::AnyUncompress $input [OPTS]
+ my $z = new IO::Uncompress::AnyUncompress $input [OPTS]
or die "anyuncompress failed: $AnyUncompressError\n";
$status = $z->read($buffer)
@@ -299,6 +337,8 @@ The formats supported are:
=item lzma
+=item lzip
+
=item xz
=back
@@ -315,7 +355,7 @@ section.
use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
- anyuncompress $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ anyuncompress $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "anyuncompress failed: $AnyUncompressError\n";
The functional interface needs Perl5.005 or better.
@@ -328,7 +368,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -346,17 +386,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -364,8 +404,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<anyuncompress> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<anyuncompress> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -386,7 +426,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -395,14 +435,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -441,7 +481,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<anyuncompress> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -452,10 +492,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -484,7 +521,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -512,7 +549,7 @@ Defaults to 0.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -524,7 +561,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -559,7 +596,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.txt.Compressed"
or die "Cannot open 'file1.txt.Compressed': $!\n" ;
my $buffer ;
- anyuncompress $input => \$buffer
+ anyuncompress $input => \$buffer
or die "anyuncompress failed: $AnyUncompressError\n";
To uncompress all files in the directory "/my/home" that match "*.txt.Compressed" and store the compressed data in the same directory
@@ -581,7 +618,7 @@ and if you want to compress each file one at a time, this will do the trick
{
my $output = $input;
$output =~ s/.Compressed// ;
- anyuncompress $input => $output
+ anyuncompress $input => $output
or die "Error compressing '$input': $AnyUncompressError\n";
}
@@ -622,7 +659,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -697,7 +734,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -728,7 +765,7 @@ The default for this option is off.
=item C<< RawInflate => 0|1 >>
When auto-detecting the compressed format, try to test for raw-deflate (RFC
-1951) content using the C<IO::Uncompress::RawInflate> module.
+1951) content using the C<IO::Uncompress::RawInflate> module.
The reason this is not default behaviour is because RFC 1951 content can
only be detected by attempting to uncompress it. This process is error
@@ -739,7 +776,7 @@ Defaults to 0.
=item C<< UnLzma => 0|1 >>
When auto-detecting the compressed format, try to test for lzma_alone
-content using the C<IO::Uncompress::UnLzma> module.
+content using the C<IO::Uncompress::UnLzma> module.
The reason this is not default behaviour is because lzma_alone content can
only be detected by attempting to uncompress it. This process is error
@@ -753,7 +790,7 @@ Defaults to 0.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -797,16 +834,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -881,7 +918,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -928,7 +965,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::AnyUncompress object is destroyed (either explicitly or by the
@@ -982,7 +1019,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -990,9 +1027,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::AnyUncompress at present.
+No symbolic constants are required by this IO::Uncompress::AnyUncompress at present.
=over 5
@@ -1009,7 +1046,7 @@ Same as doing this
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -1019,7 +1056,7 @@ L<IO::Zlib|IO::Zlib>
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -1027,7 +1064,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
index 4ba3efab16d..06fb04a81c9 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
@ISA = qw(IO::File Exporter);
-$VERSION = '2.074';
+$VERSION = '2.084';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
-use IO::Compress::Base::Common 2.074 ;
+use IO::Compress::Base::Common 2.084 ;
use IO::File ;
use Symbol;
@@ -143,11 +143,12 @@ sub smartSeek
my $position = shift || SEEK_SET;
# TODO -- need to take prime into account
+ *$self->{Prime} = '';
if (defined *$self->{FH})
{ *$self->{FH}->seek($offset, $position) }
else {
if ($position == SEEK_END) {
- *$self->{BufferOffset} = length ${ *$self->{Buffer} } + $offset ;
+ *$self->{BufferOffset} = length(${ *$self->{Buffer} }) + $offset ;
}
elsif ($position == SEEK_CUR) {
*$self->{BufferOffset} += $offset ;
@@ -493,6 +494,9 @@ sub _create
*$obj->{InNew} = 0;
*$obj->{Closed} = 0;
+
+ return $obj
+ if *$obj->{Pause} ;
if ($status) {
# Need to try uncompressing to catch the case
@@ -691,13 +695,13 @@ sub _singleTarget
if $x->{Got}->getValue('append') ;
$x->{fh} = new IO::File "$mode $output"
or return retErr($x, "cannot open file '$output': $!") ;
- binmode $x->{fh} if $x->{Got}->valueOrDefault('binmodeout');
+ binmode $x->{fh} ;
}
elsif ($x->{outType} eq 'handle') {
$x->{fh} = $output;
- binmode $x->{fh} if $x->{Got}->valueOrDefault('binmodeout');
+ binmode $x->{fh} ;
if ($x->{Got}->getValue('append')) {
seek($x->{fh}, 0, SEEK_END)
or return retErr($x, "Cannot seek to end of output filehandle: $!") ;
@@ -1073,13 +1077,6 @@ sub streamCount
return scalar @{ *$self->{InfoList} } ;
}
-#sub read
-#{
-# my $status = myRead(@_);
-# return undef if $status < 0;
-# return $status;
-#}
-
sub read
{
# return codes
@@ -1120,6 +1117,7 @@ sub read
if (! *$self->{AppendOutput}) {
if (! $offset) {
+
$$buffer = '' ;
}
else {
@@ -1518,7 +1516,7 @@ __END__
=head1 NAME
-IO::Uncompress::Base - Base Class for IO::Uncompress modules
+IO::Uncompress::Base - Base Class for IO::Uncompress modules
=head1 SYNOPSIS
@@ -1531,7 +1529,7 @@ purpose is to be sub-classed by IO::Uncompress modules.
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -1541,7 +1539,7 @@ L<IO::Zlib|IO::Zlib>
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -1549,7 +1547,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm
index 26556b7625f..7a84bcd15cb 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm
@@ -4,15 +4,15 @@ use strict ;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.074 qw(:Status );
+use IO::Compress::Base::Common 2.084 qw(:Status );
-use IO::Uncompress::Base 2.074 ;
-use IO::Uncompress::Adapter::Bunzip2 2.074 ;
+use IO::Uncompress::Base 2.084 ;
+use IO::Uncompress::Adapter::Bunzip2 2.084 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
-$VERSION = '2.074';
+$VERSION = '2.084';
$Bunzip2Error = '';
@ISA = qw(IO::Uncompress::Base Exporter);
@@ -149,7 +149,7 @@ IO::Uncompress::Bunzip2 - Read bzip2 files/buffers
my $status = bunzip2 $input => $output [,OPTS]
or die "bunzip2 failed: $Bunzip2Error\n";
- my $z = new IO::Uncompress::Bunzip2 $input [OPTS]
+ my $z = new IO::Uncompress::Bunzip2 $input [OPTS]
or die "bunzip2 failed: $Bunzip2Error\n";
$status = $z->read($buffer)
@@ -201,7 +201,7 @@ section.
use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
- bunzip2 $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ bunzip2 $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "bunzip2 failed: $Bunzip2Error\n";
The functional interface needs Perl5.005 or better.
@@ -214,7 +214,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -232,17 +232,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -250,8 +250,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<bunzip2> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<bunzip2> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -272,7 +272,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -281,14 +281,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -327,7 +327,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<bunzip2> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -338,10 +338,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -370,7 +367,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -398,7 +395,7 @@ Defaults to 0.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -410,7 +407,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -445,7 +442,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.txt.bz2"
or die "Cannot open 'file1.txt.bz2': $!\n" ;
my $buffer ;
- bunzip2 $input => \$buffer
+ bunzip2 $input => \$buffer
or die "bunzip2 failed: $Bunzip2Error\n";
To uncompress all files in the directory "/my/home" that match "*.txt.bz2" and store the compressed data in the same directory
@@ -467,7 +464,7 @@ and if you want to compress each file one at a time, this will do the trick
{
my $output = $input;
$output =~ s/.bz2// ;
- bunzip2 $input => $output
+ bunzip2 $input => $output
or die "Error compressing '$input': $Bunzip2Error\n";
}
@@ -508,7 +505,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -583,7 +580,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -611,7 +608,7 @@ This option is a no-op.
When non-zero this options will make bzip2 use a decompression algorithm
that uses less memory at the expense of increasing the amount of time
-taken for decompression.
+taken for decompression.
Default is 0.
@@ -621,7 +618,7 @@ Default is 0.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -665,16 +662,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -749,7 +746,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -796,7 +793,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::Bunzip2 object is destroyed (either explicitly or by the
@@ -850,7 +847,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -858,9 +855,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::Bunzip2 at present.
+No symbolic constants are required by this IO::Uncompress::Bunzip2 at present.
=over 5
@@ -881,7 +878,7 @@ See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -895,7 +892,7 @@ See the module L<Compress::Bzip2|Compress::Bzip2>
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -903,7 +900,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm
index 90af4b1b623..46dd108341a 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm
@@ -9,12 +9,12 @@ use strict ;
use warnings;
use bytes;
-use IO::Uncompress::RawInflate 2.074 ;
+use IO::Uncompress::RawInflate 2.084 ;
-use Compress::Raw::Zlib 2.074 () ;
-use IO::Compress::Base::Common 2.074 qw(:Status );
-use IO::Compress::Gzip::Constants 2.074 ;
-use IO::Compress::Zlib::Extra 2.074 ;
+use Compress::Raw::Zlib 2.084 () ;
+use IO::Compress::Base::Common 2.084 qw(:Status );
+use IO::Compress::Gzip::Constants 2.084 ;
+use IO::Compress::Zlib::Extra 2.084 ;
require Exporter ;
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
$GunzipError = '';
-$VERSION = '2.074';
+$VERSION = '2.084';
sub new
{
@@ -286,7 +286,7 @@ IO::Uncompress::Gunzip - Read RFC 1952 files/buffers
my $status = gunzip $input => $output [,OPTS]
or die "gunzip failed: $GunzipError\n";
- my $z = new IO::Uncompress::Gunzip $input [OPTS]
+ my $z = new IO::Uncompress::Gunzip $input [OPTS]
or die "gunzip failed: $GunzipError\n";
$status = $z->read($buffer)
@@ -340,7 +340,7 @@ section.
use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
- gunzip $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ gunzip $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "gunzip failed: $GunzipError\n";
The functional interface needs Perl5.005 or better.
@@ -353,7 +353,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -371,17 +371,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -389,8 +389,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<gunzip> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<gunzip> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -411,7 +411,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -420,14 +420,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -466,7 +466,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<gunzip> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -477,10 +477,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -509,7 +506,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -537,7 +534,7 @@ Defaults to 0.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -549,7 +546,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -584,7 +581,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.txt.gz"
or die "Cannot open 'file1.txt.gz': $!\n" ;
my $buffer ;
- gunzip $input => \$buffer
+ gunzip $input => \$buffer
or die "gunzip failed: $GunzipError\n";
To uncompress all files in the directory "/my/home" that match "*.txt.gz" and store the compressed data in the same directory
@@ -606,7 +603,7 @@ and if you want to compress each file one at a time, this will do the trick
{
my $output = $input;
$output =~ s/.gz// ;
- gunzip $input => $output
+ gunzip $input => $output
or die "Error compressing '$input': $GunzipError\n";
}
@@ -647,7 +644,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -722,7 +719,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -752,7 +749,7 @@ The default for this option is off.
=over 5
-=item 1
+=item 1
If the FHCRC bit is set in the gzip FLG header byte, the CRC16 bytes in the
header must match the crc16 value of the gzip header actually read.
@@ -803,7 +800,7 @@ Defaults to 0.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -847,16 +844,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -955,7 +952,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -1002,7 +999,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::Gunzip object is destroyed (either explicitly or by the
@@ -1056,7 +1053,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -1064,9 +1061,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::Gunzip at present.
+No symbolic constants are required by this IO::Uncompress::Gunzip at present.
=over 5
@@ -1087,7 +1084,7 @@ See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -1095,7 +1092,7 @@ L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
L<Archive::Tar|Archive::Tar>,
L<IO::Zlib|IO::Zlib>
-For RFC 1950, 1951 and 1952 see
+For RFC 1950, 1951 and 1952 see
L<http://www.faqs.org/rfcs/rfc1950.html>,
L<http://www.faqs.org/rfcs/rfc1951.html> and
L<http://www.faqs.org/rfcs/rfc1952.html>
@@ -1110,7 +1107,7 @@ The primary site for gzip is L<http://www.gzip.org>.
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -1118,7 +1115,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm
index 4e1b246fac8..4d89db5b195 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm
@@ -5,15 +5,15 @@ use strict ;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.074 qw(:Status );
-use IO::Compress::Zlib::Constants 2.074 ;
+use IO::Compress::Base::Common 2.084 qw(:Status );
+use IO::Compress::Zlib::Constants 2.084 ;
-use IO::Uncompress::RawInflate 2.074 ;
+use IO::Uncompress::RawInflate 2.084 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.074';
+$VERSION = '2.084';
$InflateError = '';
@ISA = qw(IO::Uncompress::RawInflate Exporter);
@@ -208,7 +208,7 @@ IO::Uncompress::Inflate - Read RFC 1950 files/buffers
my $status = inflate $input => $output [,OPTS]
or die "inflate failed: $InflateError\n";
- my $z = new IO::Uncompress::Inflate $input [OPTS]
+ my $z = new IO::Uncompress::Inflate $input [OPTS]
or die "inflate failed: $InflateError\n";
$status = $z->read($buffer)
@@ -262,7 +262,7 @@ section.
use IO::Uncompress::Inflate qw(inflate $InflateError) ;
- inflate $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ inflate $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "inflate failed: $InflateError\n";
The functional interface needs Perl5.005 or better.
@@ -275,7 +275,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -293,17 +293,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -311,8 +311,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<inflate> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<inflate> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -333,7 +333,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -342,14 +342,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -388,7 +388,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<inflate> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -399,10 +399,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -431,7 +428,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -459,7 +456,7 @@ Defaults to 0.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -471,7 +468,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -506,7 +503,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.txt.1950"
or die "Cannot open 'file1.txt.1950': $!\n" ;
my $buffer ;
- inflate $input => \$buffer
+ inflate $input => \$buffer
or die "inflate failed: $InflateError\n";
To uncompress all files in the directory "/my/home" that match "*.txt.1950" and store the compressed data in the same directory
@@ -528,7 +525,7 @@ and if you want to compress each file one at a time, this will do the trick
{
my $output = $input;
$output =~ s/.1950// ;
- inflate $input => $output
+ inflate $input => $output
or die "Error compressing '$input': $InflateError\n";
}
@@ -569,7 +566,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -644,7 +641,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -691,7 +688,7 @@ uncompressed data actually contained in the file.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -735,16 +732,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -827,7 +824,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -874,7 +871,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::Inflate object is destroyed (either explicitly or by the
@@ -928,7 +925,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -936,9 +933,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::Inflate at present.
+No symbolic constants are required by this IO::Uncompress::Inflate at present.
=over 5
@@ -959,7 +956,7 @@ See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -967,7 +964,7 @@ L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
L<Archive::Tar|Archive::Tar>,
L<IO::Zlib|IO::Zlib>
-For RFC 1950, 1951 and 1952 see
+For RFC 1950, 1951 and 1952 see
L<http://www.faqs.org/rfcs/rfc1950.html>,
L<http://www.faqs.org/rfcs/rfc1951.html> and
L<http://www.faqs.org/rfcs/rfc1952.html>
@@ -982,7 +979,7 @@ The primary site for gzip is L<http://www.gzip.org>.
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -990,7 +987,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm
index 831940301db..63703cd9750 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm
@@ -5,16 +5,16 @@ use strict ;
use warnings;
use bytes;
-use Compress::Raw::Zlib 2.074 ;
-use IO::Compress::Base::Common 2.074 qw(:Status );
+use Compress::Raw::Zlib 2.084 ;
+use IO::Compress::Base::Common 2.084 qw(:Status );
-use IO::Uncompress::Base 2.074 ;
-use IO::Uncompress::Adapter::Inflate 2.074 ;
+use IO::Uncompress::Base 2.084 ;
+use IO::Uncompress::Adapter::Inflate 2.084 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
-$VERSION = '2.074';
+$VERSION = '2.084';
$RawInflateError = '';
@ISA = qw(IO::Uncompress::Base Exporter);
@@ -356,7 +356,7 @@ IO::Uncompress::RawInflate - Read RFC 1951 files/buffers
my $status = rawinflate $input => $output [,OPTS]
or die "rawinflate failed: $RawInflateError\n";
- my $z = new IO::Uncompress::RawInflate $input [OPTS]
+ my $z = new IO::Uncompress::RawInflate $input [OPTS]
or die "rawinflate failed: $RawInflateError\n";
$status = $z->read($buffer)
@@ -410,7 +410,7 @@ section.
use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
- rawinflate $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ rawinflate $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "rawinflate failed: $RawInflateError\n";
The functional interface needs Perl5.005 or better.
@@ -423,7 +423,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -441,17 +441,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -459,8 +459,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<rawinflate> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<rawinflate> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -481,7 +481,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -490,14 +490,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -536,7 +536,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<rawinflate> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -547,10 +547,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -579,7 +576,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -604,7 +601,7 @@ This option is a no-op.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -616,7 +613,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -651,7 +648,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.txt.1951"
or die "Cannot open 'file1.txt.1951': $!\n" ;
my $buffer ;
- rawinflate $input => \$buffer
+ rawinflate $input => \$buffer
or die "rawinflate failed: $RawInflateError\n";
To uncompress all files in the directory "/my/home" that match "*.txt.1951" and store the compressed data in the same directory
@@ -673,7 +670,7 @@ and if you want to compress each file one at a time, this will do the trick
{
my $output = $input;
$output =~ s/.1951// ;
- rawinflate $input => $output
+ rawinflate $input => $output
or die "Error compressing '$input': $RawInflateError\n";
}
@@ -714,7 +711,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -789,7 +786,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -819,7 +816,7 @@ This option is a no-op.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -863,16 +860,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -955,7 +952,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -1002,7 +999,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::RawInflate object is destroyed (either explicitly or by the
@@ -1056,7 +1053,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -1064,9 +1061,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::RawInflate at present.
+No symbolic constants are required by this IO::Uncompress::RawInflate at present.
=over 5
@@ -1087,7 +1084,7 @@ See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -1095,7 +1092,7 @@ L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
L<Archive::Tar|Archive::Tar>,
L<IO::Zlib|IO::Zlib>
-For RFC 1950, 1951 and 1952 see
+For RFC 1950, 1951 and 1952 see
L<http://www.faqs.org/rfcs/rfc1950.html>,
L<http://www.faqs.org/rfcs/rfc1951.html> and
L<http://www.faqs.org/rfcs/rfc1952.html>
@@ -1110,7 +1107,7 @@ The primary site for gzip is L<http://www.gzip.org>.
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -1118,7 +1115,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm
index 5a35e018a68..4e8a0d67c7a 100644
--- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm
+++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm
@@ -9,14 +9,14 @@ use warnings;
use bytes;
use IO::File;
-use IO::Uncompress::RawInflate 2.074 ;
-use IO::Compress::Base::Common 2.074 qw(:Status );
-use IO::Uncompress::Adapter::Inflate 2.074 ;
-use IO::Uncompress::Adapter::Identity 2.074 ;
-use IO::Compress::Zlib::Extra 2.074 ;
-use IO::Compress::Zip::Constants 2.074 ;
+use IO::Uncompress::RawInflate 2.084 ;
+use IO::Compress::Base::Common 2.084 qw(:Status );
+use IO::Uncompress::Adapter::Inflate 2.084 ;
+use IO::Uncompress::Adapter::Identity 2.084 ;
+use IO::Compress::Zlib::Extra 2.084 ;
+use IO::Compress::Zip::Constants 2.084 ;
-use Compress::Raw::Zlib 2.074 () ;
+use Compress::Raw::Zlib 2.084 () ;
BEGIN
{
@@ -31,7 +31,7 @@ require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.074';
+$VERSION = '2.084';
$UnzipError = '';
@ISA = qw(IO::Uncompress::RawInflate Exporter);
@@ -171,25 +171,27 @@ sub readHeader
# TODO - when Stream is off, use seek
my $buffer;
if (*$self->{ZipData}{Streaming}) {
-
while (1) {
my $b;
my $status = $self->smartRead(\$b, 1024 * 16);
- return undef
+
+ return $self->saveErrorString(undef, "Truncated file")
if $status <= 0 ;
- my $temp_buf;
+ my $temp_buf ;
my $out;
+
$status = *$self->{Uncomp}->uncompr(\$b, \$temp_buf, 0, $out);
return $self->saveErrorString(undef, *$self->{Uncomp}{Error},
*$self->{Uncomp}{ErrorNo})
if $self->saveStatus($status) == STATUS_ERROR;
+ $self->pushBack($b) ;
+
if ($status == STATUS_ENDSTREAM) {
*$self->{Uncomp}->reset();
- $self->pushBack($b) ;
last;
}
}
@@ -461,6 +463,7 @@ sub skipEndCentralDirectory
my $self = shift;
my $magic = shift ;
+
my $buffer;
$self->smartReadExact(\$buffer, 22 - 4)
or return $self->TrailerError("Minimum header size is " .
@@ -1042,7 +1045,7 @@ IO::Uncompress::Unzip - Read zip files/buffers
my $status = unzip $input => $output [,OPTS]
or die "unzip failed: $UnzipError\n";
- my $z = new IO::Uncompress::Unzip $input [OPTS]
+ my $z = new IO::Uncompress::Unzip $input [OPTS]
or die "unzip failed: $UnzipError\n";
$status = $z->read($buffer)
@@ -1096,7 +1099,7 @@ section.
use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
- unzip $input_filename_or_reference => $output_filename_or_reference [,OPTS]
+ unzip $input_filename_or_reference => $output_filename_or_reference [,OPTS]
or die "unzip failed: $UnzipError\n";
The functional interface needs Perl5.005 or better.
@@ -1109,7 +1112,7 @@ C<$input_filename_or_reference> and C<$output_filename_or_reference>.
=head3 The C<$input_filename_or_reference> parameter
The parameter, C<$input_filename_or_reference>, is used to define the
-source of the compressed data.
+source of the compressed data.
It can take one of the following forms:
@@ -1127,17 +1130,17 @@ If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for
standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input_filename_or_reference> is a scalar reference, the input data
will be read from C<$$input_filename_or_reference>.
-=item An array reference
+=item An array reference
If C<$input_filename_or_reference> is an array reference, each element in
the array must be a filename.
-The input data will be read from each file in turn.
+The input data will be read from each file in turn.
The complete array will be walked to ensure that it only
contains valid filenames before any data is uncompressed.
@@ -1145,8 +1148,8 @@ contains valid filenames before any data is uncompressed.
=item An Input FileGlob string
If C<$input_filename_or_reference> is a string that is delimited by the
-characters "<" and ">" C<unzip> will assume that it is an
-I<input fileglob string>. The input is the list of files that match the
+characters "<" and ">" C<unzip> will assume that it is an
+I<input fileglob string>. The input is the list of files that match the
fileglob.
See L<File::GlobMapper|File::GlobMapper> for more details.
@@ -1167,7 +1170,7 @@ these forms.
=item A filename
If the C<$output_filename_or_reference> parameter is a simple scalar, it is
-assumed to be a filename. This file will be opened for writing and the
+assumed to be a filename. This file will be opened for writing and the
uncompressed data will be written to it.
=item A filehandle
@@ -1176,14 +1179,14 @@ If the C<$output_filename_or_reference> parameter is a filehandle, the
uncompressed data will be written to it. The string '-' can be used as
an alias for standard output.
-=item A scalar reference
+=item A scalar reference
If C<$output_filename_or_reference> is a scalar reference, the
uncompressed data will be stored in C<$$output_filename_or_reference>.
=item An Array Reference
-If C<$output_filename_or_reference> is an array reference,
+If C<$output_filename_or_reference> is an array reference,
the uncompressed data will be pushed onto the array.
=item An Output FileGlob
@@ -1222,7 +1225,7 @@ L</"Constructor Options"> section below.
=item C<< AutoClose => 0|1 >>
-This option applies to any input or output data streams to
+This option applies to any input or output data streams to
C<unzip> that are filehandles.
If C<AutoClose> is specified, and the value is true, it will result in all
@@ -1233,10 +1236,7 @@ This parameter defaults to 0.
=item C<< BinModeOut => 0|1 >>
-When writing to a file or filehandle, set C<binmode> before writing to the
-file.
-
-Defaults to 0.
+This option is now a no-op. All files will be written in binmode.
=item C<< Append => 0|1 >>
@@ -1265,7 +1265,7 @@ written to it. Otherwise the file pointer will not be moved.
=back
-When C<Append> is specified, and set to true, it will I<append> all uncompressed
+When C<Append> is specified, and set to true, it will I<append> all uncompressed
data to the output data stream.
So when the output is a filehandle it will carry out a seek to the eof
@@ -1293,7 +1293,7 @@ Defaults to 0.
=item C<< TrailingData => $scalar >>
Returns the data, if any, that is present immediately after the compressed
-data stream once uncompression is complete.
+data stream once uncompression is complete.
This option can be used when there is useful information immediately
following the compressed data stream, and you don't know the length of the
@@ -1305,7 +1305,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -1331,7 +1331,7 @@ file C<file1.txt> like this.
or die "unzip failed: $UnzipError\n";
If you have a zip file that contains multiple members and want to read a
-specific member from the file, say C<"data1">, use the C<Name> option
+specific member from the file, say C<"data1">, use the C<Name> option
use strict ;
use warnings ;
@@ -1366,7 +1366,7 @@ uncompressed data to a buffer, C<$buffer>.
my $input = new IO::File "<file1.zip"
or die "Cannot open 'file1.zip': $!\n" ;
my $buffer ;
- unzip $input => \$buffer
+ unzip $input => \$buffer
or die "unzip failed: $UnzipError\n";
=head1 OO Interface
@@ -1406,7 +1406,7 @@ If the C<$input> parameter is a filehandle, the compressed data will be
read from it.
The string '-' can be used as an alias for standard input.
-=item A scalar reference
+=item A scalar reference
If C<$input> is a scalar reference, the compressed data will be read from
C<$$input>.
@@ -1429,7 +1429,7 @@ OPTS is a combination of the following options:
=item C<< Name => "membername" >>
-Open "membername" from the zip file for reading.
+Open "membername" from the zip file for reading.
=item C<< AutoClose => 0|1 >>
@@ -1484,7 +1484,7 @@ When present this option will limit the number of compressed bytes read
from the input file/buffer to C<$size>. This option can be used in the
situation where there is useful data directly after the compressed data
stream and you know beforehand the exact length of the compressed data
-stream.
+stream.
This option is mostly used when reading from a filehandle, in which case
the file pointer will be left pointing to the first byte directly after the
@@ -1518,7 +1518,7 @@ The default for this option is off.
TODO
-=head1 Methods
+=head1 Methods
=head2 read
@@ -1562,16 +1562,16 @@ Usage is
$line = $z->getline()
$line = <$z>
-Reads a single line.
+Reads a single line.
This method fully supports the use of the variable C<$/> (or
C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
determine what constitutes an end of line. Paragraph mode, record mode and
-file slurp mode are all supported.
+file slurp mode are all supported.
=head2 getc
-Usage is
+Usage is
$char = $z->getc()
@@ -1654,7 +1654,7 @@ This is a noop provided for completeness.
$z->opened()
-Returns true if the object currently refers to a opened file/buffer.
+Returns true if the object currently refers to a opened file/buffer.
=head2 autoflush
@@ -1701,7 +1701,7 @@ C<undef>.
$z->close() ;
close $z ;
-Closes the output file/buffer.
+Closes the output file/buffer.
For most versions of Perl this method will be automatically invoked if
the IO::Uncompress::Unzip object is destroyed (either explicitly or by the
@@ -1755,7 +1755,7 @@ end of the compressed data stream to the end of the buffer.
If the input is a filehandle, C<trailingData> will return the data that is
left in the filehandle input buffer once the end of the compressed data
stream has been reached. You can then use the filehandle to read the rest
-of the input file.
+of the input file.
Don't bother using C<trailingData> if the input is a filename.
@@ -1763,9 +1763,9 @@ If you know the length of the compressed data stream before you start
uncompressing, you can avoid having to use C<trailingData> by setting the
C<InputLength> option in the constructor.
-=head1 Importing
+=head1 Importing
-No symbolic constants are required by this IO::Uncompress::Unzip at present.
+No symbolic constants are required by this IO::Uncompress::Unzip at present.
=over 5
@@ -1830,7 +1830,7 @@ The script is available from L<https://gist.github.com/eqhmcow/5389877>
=head1 SEE ALSO
-L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
L<IO::Compress::FAQ|IO::Compress::FAQ>
@@ -1838,7 +1838,7 @@ L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
L<Archive::Tar|Archive::Tar>,
L<IO::Zlib|IO::Zlib>
-For RFC 1950, 1951 and 1952 see
+For RFC 1950, 1951 and 1952 see
L<http://www.faqs.org/rfcs/rfc1950.html>,
L<http://www.faqs.org/rfcs/rfc1951.html> and
L<http://www.faqs.org/rfcs/rfc1952.html>
@@ -1853,7 +1853,7 @@ The primary site for gzip is L<http://www.gzip.org>.
=head1 AUTHOR
-This module was written by Paul Marquess, C<pmqs@cpan.org>.
+This module was written by Paul Marquess, C<pmqs@cpan.org>.
=head1 MODIFICATION HISTORY
@@ -1861,7 +1861,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2017 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.