diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO')
38 files changed, 322 insertions, 300 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Bzip2.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Bzip2.pm index c157520f08..e19755123d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Bzip2.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Bzip2.pm @@ -4,12 +4,12 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status); +use IO::Compress::Base::Common 2.204 qw(:Status); -use Compress::Raw::Bzip2 2.101 ; +use Compress::Raw::Bzip2 2.204 ; our ($VERSION); -$VERSION = '2.102'; +$VERSION = '2.204'; sub mkCompObject { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Deflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Deflate.pm index 1048dbda82..54696ffd78 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Deflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Deflate.pm @@ -4,13 +4,13 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status); -use Compress::Raw::Zlib 2.101 qw( !crc32 !adler32 ) ; +use IO::Compress::Base::Common 2.204 qw(:Status); +use Compress::Raw::Zlib 2.204 qw( !crc32 !adler32 ) ; require Exporter; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS); -$VERSION = '2.102'; +$VERSION = '2.204'; @ISA = qw(Exporter); @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS; %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS; @@ -40,6 +40,29 @@ sub mkCompObject } ; } +sub mkCompObject1 +{ + my $crc32 = shift ; + my $adler32 = shift ; + my $level = shift ; + my $strategy = shift ; + + my ($def, $status) = Compress::Raw::Zlib::Deflate->new( + -AppendOutput => 1, + -CRC32 => $crc32, + -ADLER32 => $adler32, + -Level => $level, + -Strategy => $strategy, + -WindowBits => MAX_WBITS); + + return (undef, "Cannot create Deflate object: $status", $status) + if $status != Z_OK; + + return bless {'Def' => $def, + 'Error' => '', + } ; +} + sub compr { my $self = shift ; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Identity.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Identity.pm index 8b92a3cea6..5938d13697 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Identity.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Identity.pm @@ -4,10 +4,10 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status); +use IO::Compress::Base::Common 2.204 qw(:Status); our ($VERSION); -$VERSION = '2.102'; +$VERSION = '2.204'; sub mkCompObject { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base.pm index 269f10c7a4..37a0df94f3 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base.pm @@ -6,7 +6,7 @@ require 5.006 ; use strict ; use warnings; -use IO::Compress::Base::Common 2.101 ; +use IO::Compress::Base::Common 2.204 ; use IO::File (); ; use Scalar::Util (); @@ -20,7 +20,7 @@ use Symbol(); our (@ISA, $VERSION); @ISA = qw(IO::File Exporter); -$VERSION = '2.102'; +$VERSION = '2.204'; #Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16. @@ -1051,7 +1051,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm index 67882cf515..32c4aa3464 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Base/Common.pm @@ -11,7 +11,7 @@ use File::GlobMapper; require Exporter; our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE); @ISA = qw(Exporter); -$VERSION = '2.102'; +$VERSION = '2.204'; @EXPORT = qw( isaFilehandle isaFilename isaScalar whatIsInput whatIsOutput diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Bzip2.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Bzip2.pm index 2d333fd1e6..6aa0ddd4cb 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Bzip2.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Bzip2.pm @@ -5,16 +5,16 @@ use warnings; use bytes; require Exporter ; -use IO::Compress::Base 2.101 ; +use IO::Compress::Base 2.204 ; -use IO::Compress::Base::Common 2.101 qw(); -use IO::Compress::Adapter::Bzip2 2.101 ; +use IO::Compress::Base::Common 2.204 qw(); +use IO::Compress::Adapter::Bzip2 2.204 ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error); -$VERSION = '2.102'; +$VERSION = '2.204'; $Bzip2Error = ''; @ISA = qw(IO::Compress::Base Exporter); @@ -51,7 +51,7 @@ sub getExtraParams { my $self = shift ; - use IO::Compress::Base::Common 2.101 qw(:Parse); + use IO::Compress::Base::Common 2.204 qw(:Parse); return ( 'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned, 1], @@ -818,7 +818,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Deflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Deflate.pm index 9e71977df4..a34a6ba6e6 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Deflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Deflate.pm @@ -8,16 +8,16 @@ use bytes; require Exporter ; -use IO::Compress::RawDeflate 2.101 (); -use IO::Compress::Adapter::Deflate 2.101 ; +use IO::Compress::RawDeflate 2.204 (); +use IO::Compress::Adapter::Deflate 2.204 ; -use IO::Compress::Zlib::Constants 2.101 ; -use IO::Compress::Base::Common 2.101 qw(); +use IO::Compress::Zlib::Constants 2.204 ; +use IO::Compress::Base::Common 2.204 qw(); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError); -$VERSION = '2.102'; +$VERSION = '2.204'; $DeflateError = ''; @ISA = qw(IO::Compress::RawDeflate Exporter); @@ -42,92 +42,35 @@ sub deflate return $obj->_def(@_); } - -sub bitmask($$$$) -{ - my $into = shift ; - my $value = shift ; - my $offset = shift ; - my $mask = shift ; - - return $into | (($value & $mask) << $offset ) ; -} - -sub mkDeflateHdr($$$;$) -{ - my $method = shift ; - my $cinfo = shift; - my $level = shift; - my $fdict_adler = shift ; - - my $cmf = 0; - my $flg = 0; - my $fdict = 0; - $fdict = 1 if defined $fdict_adler; - - $cmf = bitmask($cmf, $method, ZLIB_CMF_CM_OFFSET, ZLIB_CMF_CM_BITS); - $cmf = bitmask($cmf, $cinfo, ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS); - - $flg = bitmask($flg, $fdict, ZLIB_FLG_FDICT_OFFSET, ZLIB_FLG_FDICT_BITS); - $flg = bitmask($flg, $level, ZLIB_FLG_LEVEL_OFFSET, ZLIB_FLG_LEVEL_BITS); - - my $fcheck = 31 - ($cmf * 256 + $flg) % 31 ; - $flg = bitmask($flg, $fcheck, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS); - - my $hdr = pack("CC", $cmf, $flg) ; - $hdr .= pack("N", $fdict_adler) if $fdict ; - - return $hdr; -} - -sub mkHeader +sub mkComp { my $self = shift ; - my $param = shift ; + my $got = shift ; - my $level = $param->getValue('level'); - my $strategy = $param->getValue('strategy'); + my ($obj, $errstr, $errno) = IO::Compress::Adapter::Deflate::mkCompObject1( + $got->getValue('crc32'), + $got->getValue('adler32'), + $got->getValue('level'), + $got->getValue('strategy') + ); - my $lflag ; - $level = 6 - if $level == Z_DEFAULT_COMPRESSION ; + return $self->saveErrorString(undef, $errstr, $errno) + if ! defined $obj; - if (ZLIB_VERNUM >= 0x1210) - { - if ($strategy >= Z_HUFFMAN_ONLY || $level < 2) - { $lflag = ZLIB_FLG_LEVEL_FASTEST } - elsif ($level < 6) - { $lflag = ZLIB_FLG_LEVEL_FAST } - elsif ($level == 6) - { $lflag = ZLIB_FLG_LEVEL_DEFAULT } - else - { $lflag = ZLIB_FLG_LEVEL_SLOWEST } - } - else - { - $lflag = ($level - 1) >> 1 ; - $lflag = 3 if $lflag > 3 ; - } - - #my $wbits = (MAX_WBITS - 8) << 4 ; - my $wbits = 7; - mkDeflateHdr(ZLIB_CMF_CM_DEFLATED, $wbits, $lflag); + return $obj; } -sub ckParams + +sub mkHeader { my $self = shift ; - my $got = shift; - - $got->setValue('adler32' => 1); - return 1 ; + return ''; } - sub mkTrailer { my $self = shift ; - return pack("N", *$self->{Compress}->adler32()) ; + return ''; } sub mkFinalTrailer @@ -135,12 +78,6 @@ sub mkFinalTrailer return ''; } -#sub newHeader -#{ -# my $self = shift ; -# return *$self->{Header}; -#} - sub getExtraParams { my $self = shift ; @@ -930,9 +867,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -940,6 +877,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -952,7 +892,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/FAQ.pod b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/FAQ.pod index 367468ec07..549ea2a7b4 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/FAQ.pod +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/FAQ.pod @@ -197,7 +197,7 @@ L<ftp://ftp.info-zip.org/pub/infozip/doc/> =head2 Gzip Resources The primary reference for gzip files is RFC 1952 -L<http://www.faqs.org/rfcs/rfc1952.html> +L<https://datatracker.ietf.org/doc/html/rfc1952> The primary site for gzip is L<http://www.gzip.org>. @@ -682,7 +682,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip.pm index 4111d07938..6b142d4521 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip.pm @@ -8,12 +8,12 @@ use bytes; require Exporter ; -use IO::Compress::RawDeflate 2.101 () ; -use IO::Compress::Adapter::Deflate 2.101 ; +use IO::Compress::RawDeflate 2.204 () ; +use IO::Compress::Adapter::Deflate 2.204 ; -use IO::Compress::Base::Common 2.101 qw(:Status ); -use IO::Compress::Gzip::Constants 2.101 ; -use IO::Compress::Zlib::Extra 2.101 ; +use IO::Compress::Base::Common 2.204 qw(:Status ); +use IO::Compress::Gzip::Constants 2.204 ; +use IO::Compress::Zlib::Extra 2.204 ; BEGIN { @@ -25,7 +25,7 @@ BEGIN our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError); -$VERSION = '2.102'; +$VERSION = '2.204'; $GzipError = '' ; @ISA = qw(IO::Compress::RawDeflate Exporter); @@ -1242,9 +1242,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -1252,6 +1252,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -1264,7 +1267,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip/Constants.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip/Constants.pm index a3d09e2e21..f56612d729 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip/Constants.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Gzip/Constants.pm @@ -9,7 +9,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names); our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE); -$VERSION = '2.102'; +$VERSION = '2.204'; @ISA = qw(Exporter); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/RawDeflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/RawDeflate.pm index 6a0ff6e0f3..75ee62ba48 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/RawDeflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/RawDeflate.pm @@ -6,16 +6,16 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base 2.101 ; -use IO::Compress::Base::Common 2.101 qw(:Status :Parse); -use IO::Compress::Adapter::Deflate 2.101 ; -use Compress::Raw::Zlib 2.101 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); +use IO::Compress::Base 2.204 ; +use IO::Compress::Base::Common 2.204 qw(:Status :Parse); +use IO::Compress::Adapter::Deflate 2.204 ; +use Compress::Raw::Zlib 2.204 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError); -$VERSION = '2.102'; +$VERSION = '2.204'; $RawDeflateError = ''; @ISA = qw(IO::Compress::Base Exporter); @@ -985,9 +985,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -995,6 +995,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -1007,7 +1010,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip.pm index fea487af67..856ae7b08a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip.pm @@ -4,41 +4,41 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status ); -use IO::Compress::RawDeflate 2.101 (); -use IO::Compress::Adapter::Deflate 2.101 ; -use IO::Compress::Adapter::Identity 2.101 ; -use IO::Compress::Zlib::Extra 2.101 ; -use IO::Compress::Zip::Constants 2.101 ; +use IO::Compress::Base::Common 2.204 qw(:Status ); +use IO::Compress::RawDeflate 2.204 (); +use IO::Compress::Adapter::Deflate 2.204 ; +use IO::Compress::Adapter::Identity 2.204 ; +use IO::Compress::Zlib::Extra 2.204 ; +use IO::Compress::Zip::Constants 2.204 ; use File::Spec(); use Config; -use Compress::Raw::Zlib 2.101 (); +use Compress::Raw::Zlib 2.204 (); BEGIN { eval { require IO::Compress::Adapter::Bzip2 ; - IO::Compress::Adapter::Bzip2->import( 2.101 ); + IO::Compress::Adapter::Bzip2->import( 2.201 ); require IO::Compress::Bzip2 ; - IO::Compress::Bzip2->import( 2.101 ); + IO::Compress::Bzip2->import( 2.201 ); } ; eval { require IO::Compress::Adapter::Lzma ; - IO::Compress::Adapter::Lzma->import( 2.101 ); + IO::Compress::Adapter::Lzma->import( 2.201 ); require IO::Compress::Lzma ; - IO::Compress::Lzma->import( 2.101 ); + IO::Compress::Lzma->import( 2.201 ); } ; eval { require IO::Compress::Adapter::Xz ; - IO::Compress::Adapter::Xz->import( 2.101 ); + IO::Compress::Adapter::Xz->import( 2.201 ); require IO::Compress::Xz ; - IO::Compress::Xz->import( 2.101 ); + IO::Compress::Xz->import( 2.201 ); } ; eval { require IO::Compress::Adapter::Zstd ; - IO::Compress::Adapter::Zstd->import( 2.101 ); + IO::Compress::Adapter::Zstd->import( 2.201 ); require IO::Compress::Zstd ; - IO::Compress::Zstd->import( 2.101 ); + IO::Compress::Zstd->import( 2.201 ); } ; } @@ -47,7 +47,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError); -$VERSION = '2.102'; +$VERSION = '2.204'; $ZipError = ''; @ISA = qw(IO::Compress::RawDeflate Exporter); @@ -85,20 +85,24 @@ sub isMethodAvailable if $method == ZIP_CM_STORE || $method == ZIP_CM_DEFLATE ; return 1 - if $method == ZIP_CM_BZIP2 and - defined $IO::Compress::Adapter::Bzip2::VERSION; + if $method == ZIP_CM_BZIP2 && + defined $IO::Compress::Adapter::Bzip2::VERSION && + defined &{ "IO::Compress::Adapter::Bzip2::mkRawZipCompObject" }; return 1 - if $method == ZIP_CM_LZMA and - defined $IO::Compress::Adapter::Lzma::VERSION; + if $method == ZIP_CM_LZMA && + defined $IO::Compress::Adapter::Lzma::VERSION && + defined &{ "IO::Compress::Adapter::Lzma::mkRawZipCompObject" }; return 1 - if $method == ZIP_CM_XZ and - defined $IO::Compress::Adapter::Xz::VERSION; + if $method == ZIP_CM_XZ && + defined $IO::Compress::Adapter::Xz::VERSION && + defined &{ "IO::Compress::Adapter::Xz::mkRawZipCompObject" }; return 1 - if $method == ZIP_CM_ZSTD and - defined $IO::Compress::Adapter::ZSTD::VERSION; + if $method == ZIP_CM_ZSTD && + defined $IO::Compress::Adapter::ZSTD::VERSION && + defined &{ "IO::Compress::Adapter::ZSTD::mkRawZipCompObject" }; return 0; } @@ -566,6 +570,8 @@ sub mkFinalTrailer $z64e .= U64::pack_V64 $entries ; # entries in central dir $z64e .= U64::pack_V64 $cd_len ; # size of central dir $z64e .= *$self->{ZipData}{Offset}->getPacked_V64() ; # offset to start central dir + $z64e .= *$self->{ZipData}{extrafieldzip64} # otional extra field + if defined *$self->{ZipData}{extrafieldzip64} ; $z64e = pack("V", ZIP64_END_CENTRAL_REC_HDR_SIG) # signature . U64::pack_V64(length $z64e) @@ -638,7 +644,7 @@ sub ckParams } *$self->{ZipData}{AnyZip64} = 1 - if $got->getValue('zip64'); + if $got->getValue('zip64') || $got->getValue('extrafieldzip64') ; *$self->{ZipData}{Zip64} = $got->getValue('zip64'); *$self->{ZipData}{Stream} = $got->getValue('stream'); @@ -658,7 +664,7 @@ sub ckParams *$self->{ZipData}{ZipComment} = $got->getValue('zipcomment') ; - for my $name (qw( extrafieldlocal extrafieldcentral )) + for my $name (qw( extrafieldlocal extrafieldcentral extrafieldzip64)) { my $data = $got->getValue($name) ; if (defined $data) { @@ -667,6 +673,7 @@ sub ckParams if $bad ; $got->setValue($name, $data) ; + *$self->{ZipData}{$name} = $data; } } @@ -731,6 +738,7 @@ our %PARAMS = ( 'textflag' => [IO::Compress::Base::Common::Parse_boolean, 0], 'extrafieldlocal' => [IO::Compress::Base::Common::Parse_any, undef], 'extrafieldcentral'=> [IO::Compress::Base::Common::Parse_any, undef], + 'extrafieldzip64' => [IO::Compress::Base::Common::Parse_any, undef], # Lzma 'preset' => [IO::Compress::Base::Common::Parse_unsigned, 6], @@ -1053,12 +1061,24 @@ See L<File::GlobMapper|File::GlobMapper> for more details. If the C<$input_filename_or_reference> parameter is any other type, C<undef> will be returned. -In addition, if C<$input_filename_or_reference> is a simple filename, -the default values for -the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options will be sourced from that file. +In addition, if C<$input_filename_or_reference> corresponds to a filename +from the filesystem, a number of zip file header fields will be populated by default +using the following attributes from the input file + +=over 5 + +=item * the full filename contained in C<$input_filename_or_reference> + +=item * the file protection attributes + +=item * the UID/GID for the file + +=item * the file timestamps + +=back If you do not want to use these defaults they can be overridden by -explicitly setting the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options or by setting the +explicitly setting one, or more, of the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options or by setting the C<Minimal> parameter. =head3 The C<$output_filename_or_reference> parameter @@ -2121,9 +2141,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -2131,6 +2151,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -2143,7 +2166,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip/Constants.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip/Constants.pm index 7982fc32f6..b6e0d35fed 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip/Constants.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zip/Constants.pm @@ -7,7 +7,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS); -$VERSION = '2.102'; +$VERSION = '2.204'; @ISA = qw(Exporter); @@ -20,6 +20,7 @@ $VERSION = '2.102'; ZIP_CM_PPMD ZIP_CM_XZ ZIP_CM_ZSTD + ZIP_CM_AES ZIP_LOCAL_HDR_SIG ZIP_DATA_HDR_SIG @@ -69,6 +70,7 @@ use constant ZIP_CM_LZMA => 14 ; use constant ZIP_CM_ZSTD => 93 ; use constant ZIP_CM_XZ => 95 ; use constant ZIP_CM_PPMD => 98 ; # Not Supported yet +use constant ZIP_CM_AES => 99 ; # General Purpose Flag use constant ZIP_GP_FLAG_ENCRYPTED_MASK => (1 << 0) ; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Constants.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Constants.pm index 937101e427..b0eb4cfcc3 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Constants.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Constants.pm @@ -9,7 +9,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT); -$VERSION = '2.102'; +$VERSION = '2.204'; @ISA = qw(Exporter); diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Extra.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Extra.pm index ab7446a464..9767fe1694 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Extra.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Zlib/Extra.pm @@ -8,9 +8,9 @@ use bytes; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.102'; +$VERSION = '2.204'; -use IO::Compress::Gzip::Constants 2.101 ; +use IO::Compress::Gzip::Constants 2.204 ; sub ExtraFieldError { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm index 3cfd5f3b48..72cbed3522 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Dir.pm @@ -18,7 +18,7 @@ use File::stat; use File::Spec; our @ISA = qw(Tie::Hash Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT_OK = qw(DIR_UNLINK); @@ -153,7 +153,7 @@ IO::Dir - supply object methods for directory handles =head1 SYNOPSIS use IO::Dir; - $d = IO::Dir->new("."); + my $d = IO::Dir->new("."); if (defined $d) { while (defined($_ = $d->read)) { something($_); } $d->rewind; @@ -161,7 +161,7 @@ IO::Dir - supply object methods for directory handles undef $d; } - tie %dir, 'IO::Dir', "."; + tie my %dir, 'IO::Dir', "."; foreach (keys %dir) { print $_, " " , $dir{$_}->size,"\n"; } @@ -236,7 +236,7 @@ L<File::stat> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm index e2accf7d2a..a3ff37af50 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/File.pm @@ -10,29 +10,29 @@ IO::File - supply object methods for filehandles use IO::File; - $fh = IO::File->new(); + my $fh = IO::File->new(); if ($fh->open("< file")) { print <$fh>; $fh->close; } - $fh = IO::File->new("> file"); + my $fh = IO::File->new("> file"); if (defined $fh) { print $fh "bar\n"; $fh->close; } - $fh = IO::File->new("file", "r"); + my $fh = IO::File->new("file", "r"); if (defined $fh) { print <$fh>; undef $fh; # automatically closes the file } - $fh = IO::File->new("file", O_WRONLY|O_APPEND); + my $fh = IO::File->new("file", O_WRONLY|O_APPEND); if (defined $fh) { print $fh "corge\n"; - $pos = $fh->getpos; + my $pos = $fh->getpos; $fh->setpos($pos); undef $fh; # automatically closes the file @@ -135,7 +135,7 @@ require Exporter; our @ISA = qw(IO::Handle IO::Seekable Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT = @IO::Seekable::EXPORT; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm index 2010bb831e..18fe7140c1 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Handle.pm @@ -8,20 +8,20 @@ IO::Handle - supply object methods for I/O handles use IO::Handle; - $io = IO::Handle->new(); + my $io = IO::Handle->new(); if ($io->fdopen(fileno(STDIN),"r")) { print $io->getline; $io->close; } - $io = IO::Handle->new(); + my $io = IO::Handle->new(); if ($io->fdopen(fileno(STDOUT),"w")) { $io->print("Some text\n"); } # setvbuf is not available by default on Perls 5.8.0 and later. use IO::Handle '_IOLBF'; - $io->setvbuf($buffer_var, _IOLBF, 1024); + $io->setvbuf(my $buffer_var, _IOLBF, 1024); undef $io; # automatically closes the file if it's open @@ -234,7 +234,7 @@ the taint-clean flag failed. (eg invalid handle) =head1 NOTE An C<IO::Handle> object is a reference to a symbol/GLOB reference (see -the C<Symbol> package). Some modules that +the L<Symbol> package). Some modules that inherit from C<IO::Handle> may want to keep object related variables in the hash table part of the GLOB. In an attempt to prevent modules trampling on each other I propose the that any such module should prefix @@ -270,7 +270,7 @@ use IO (); # Load the XS module require Exporter; our @ISA = qw(Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT_OK = qw( autoflush diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Pipe.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Pipe.pm index 7b195ca643..a99391edc4 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Pipe.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Pipe.pm @@ -13,7 +13,7 @@ use strict; use Carp; use Symbol; -our $VERSION = "1.46"; +our $VERSION = "1.52"; sub new { my $type = shift; @@ -203,7 +203,7 @@ processes. =item new ( [READER, WRITER] ) Creates an C<IO::Pipe>, which is a reference to a newly created symbol -(see the C<Symbol> package). C<IO::Pipe::new> optionally takes two +(see the L<Symbol> package). C<IO::Pipe::new> optionally takes two arguments, which should be objects blessed into C<IO::Handle>, or a subclass thereof. These two objects will be used for the system call to C<pipe>. If no arguments are given then method C<handles> is called @@ -245,7 +245,7 @@ L<IO::Handle> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Poll.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Poll.pm index 20f630bb73..091461f6d7 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Poll.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Poll.pm @@ -12,7 +12,7 @@ use IO::Handle; use Exporter (); our @ISA = qw(Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT = qw( POLLIN POLLOUT @@ -197,7 +197,7 @@ L<poll(2)>, L<IO::Handle>, L<IO::Select> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Seekable.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Seekable.pm index 5d44d7af07..c2a1b308b6 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Seekable.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Seekable.pm @@ -106,7 +106,7 @@ require Exporter; our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); our @ISA = qw(Exporter); -our $VERSION = "1.46"; +our $VERSION = "1.52"; sub seek { @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Select.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Select.pm index fe07f3b2e6..7eb99bd0ea 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Select.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Select.pm @@ -10,7 +10,7 @@ use strict; use warnings::register; require Exporter; -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @ISA = qw(Exporter); # This is only so we can do version checking @@ -68,7 +68,7 @@ sub _fileno # previously registered and has since been closed. ->remove still wants to # know what fileno it had foreach my $i ( FIRST_FD .. $#$self ) { - return $i - FIRST_FD if $self->[$i] == $f; + return $i - FIRST_FD if defined $self->[$i] && $self->[$i] == $f; } return undef; } @@ -405,7 +405,7 @@ listening for more connections on a listen socket =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket.pm index b7cdf06d3a..7c2540b35c 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket.pm @@ -23,7 +23,7 @@ require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian'); our @ISA = qw(IO::Handle); -our $VERSION = "1.46"; +our $VERSION = "1.52"; our @EXPORT_OK = qw(sockatmark); @@ -916,8 +916,8 @@ L<IO::Socket::IP> =head1 AUTHOR -Graham Barr. atmark() by Lincoln Stein. Currently maintained by the -Perl Porters. Please report all bugs to <perlbug@perl.org>. +Graham Barr. atmark() by Lincoln Stein. Currently maintained by the Perl 5 +Porters. Please report all bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm index 5b76c2e3f5..97d445043c 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/INET.pm @@ -14,7 +14,7 @@ use Exporter; use Errno; our @ISA = qw(IO::Socket); -our $VERSION = "1.46"; +our $VERSION = "1.52"; my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1; @@ -330,7 +330,7 @@ inherits all the methods defined by L<IO::Socket>. =item new ( [ARGS] ) Creates an C<IO::Socket::INET> object, which is a reference to a -newly created symbol (see the C<Symbol> package). C<new> +newly created symbol (see the L<Symbol> package). C<new> optionally takes arguments, these arguments are in key-value pairs. In addition to the key-value pairs accepted by L<IO::Socket>, @@ -401,7 +401,7 @@ Examples: $sock = IO::Socket::INET->new( PeerPort => 9999, PeerAddr => inet_ntoa(INADDR_BROADCAST), - Proto => udp, + Proto => 'udp', LocalAddr => 'localhost', Broadcast => 1 ) or die "Can't bind : $IO::Socket::errstr\n"; @@ -460,7 +460,7 @@ L<Socket>, L<IO::Socket> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm index 3158ef55ab..2601c716af 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/IP.pm @@ -12,7 +12,8 @@ use warnings; # $VERSION needs to be set before use base 'IO::Socket' # - https://rt.cpan.org/Ticket/Display.html?id=92107 BEGIN { - our $VERSION = '0.41'; + our $VERSION = '0.41_01'; + $VERSION = eval $VERSION; } use base qw( IO::Socket ); @@ -154,6 +155,12 @@ sub import die "Cannot socket(PF_INET6) - $!"; if( setsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY, 0 ) { + if ($^O eq "dragonfly") { + # dragonflybsd 6.4 lies about successfully turning this off + if (getsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY) { + return $can_disable_v6only = 0; + } + } return $can_disable_v6only = 1; } elsif( $! == EINVAL || $! == EOPNOTSUPP ) { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm index a93456c052..89deec2620 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Socket/UNIX.pm @@ -11,7 +11,7 @@ use IO::Socket; use Carp; our @ISA = qw(IO::Socket); -our $VERSION = "1.46"; +our $VERSION = "1.52"; IO::Socket::UNIX->register_domain( AF_UNIX ); @@ -111,7 +111,7 @@ inherits all the methods defined by L<IO::Socket>. =item new ( [ARGS] ) Creates an C<IO::Socket::UNIX> object, which is a reference to a -newly created symbol (see the C<Symbol> package). C<new> +newly created symbol (see the L<Symbol> package). C<new> optionally takes arguments, these arguments are in key-value pairs. In addition to the key-value pairs accepted by L<IO::Socket>, @@ -162,7 +162,7 @@ L<Socket>, L<IO::Socket> =head1 AUTHOR Graham Barr. Currently maintained by the Perl Porters. Please report all -bugs to <perlbug@perl.org>. +bugs at L<https://github.com/Perl/perl5/issues>. =head1 COPYRIGHT diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm index 2964125105..229f8fa470 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm @@ -4,12 +4,12 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status); +use IO::Compress::Base::Common 2.204 qw(:Status); -use Compress::Raw::Bzip2 2.101 ; +use Compress::Raw::Bzip2 2.204 ; our ($VERSION, @ISA); -$VERSION = '2.102'; +$VERSION = '2.204'; sub mkUncompObject { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm index 4fedcae46a..bf64a79c9f 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm @@ -4,14 +4,14 @@ use warnings; use strict; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status); +use IO::Compress::Base::Common 2.204 qw(:Status); use IO::Compress::Zip::Constants ; our ($VERSION); -$VERSION = '2.102'; +$VERSION = '2.204'; -use Compress::Raw::Zlib 2.101 (); +use Compress::Raw::Zlib 2.204 (); sub mkUncompObject { diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm index 315b0c32ce..7469c36a97 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm @@ -4,11 +4,11 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status); -use Compress::Raw::Zlib 2.101 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); +use IO::Compress::Base::Common 2.204 qw(:Status); +use Compress::Raw::Zlib 2.204 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); our ($VERSION); -$VERSION = '2.102'; +$VERSION = '2.204'; diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm index 6de82bae87..5c542957e7 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyInflate.pm @@ -6,22 +6,22 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Parse); +use IO::Compress::Base::Common 2.204 qw(:Parse); -use IO::Uncompress::Adapter::Inflate 2.101 (); +use IO::Uncompress::Adapter::Inflate 2.204 (); -use IO::Uncompress::Base 2.101 ; -use IO::Uncompress::Gunzip 2.101 ; -use IO::Uncompress::Inflate 2.101 ; -use IO::Uncompress::RawInflate 2.101 ; -use IO::Uncompress::Unzip 2.101 ; +use IO::Uncompress::Base 2.204 ; +use IO::Uncompress::Gunzip 2.204 ; +use IO::Uncompress::Inflate 2.204 ; +use IO::Uncompress::RawInflate 2.204 ; +use IO::Uncompress::Unzip 2.204 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); -$VERSION = '2.102'; +$VERSION = '2.204'; $AnyInflateError = ''; @ISA = qw(IO::Uncompress::Base Exporter); @@ -976,9 +976,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -986,6 +986,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -998,7 +1001,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm index c922220ac2..2e2d83c0f9 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/AnyUncompress.pm @@ -4,16 +4,16 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 (); +use IO::Compress::Base::Common 2.204 (); -use IO::Uncompress::Base 2.101 ; +use IO::Uncompress::Base 2.204 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); -$VERSION = '2.102'; +$VERSION = '2.204'; $AnyUncompressError = ''; @ISA = qw(IO::Uncompress::Base Exporter); @@ -33,26 +33,26 @@ BEGIN # Don't trigger any __DIE__ Hooks. local $SIG{__DIE__}; - eval ' use IO::Uncompress::Adapter::Inflate 2.101 ;'; - eval ' use IO::Uncompress::Adapter::Bunzip2 2.101 ;'; - eval ' use IO::Uncompress::Adapter::LZO 2.101 ;'; - eval ' use IO::Uncompress::Adapter::Lzf 2.101 ;'; - eval ' use IO::Uncompress::Adapter::UnLzma 2.101 ;'; - eval ' use IO::Uncompress::Adapter::UnXz 2.101 ;'; - eval ' use IO::Uncompress::Adapter::UnZstd 2.101 ;'; - eval ' use IO::Uncompress::Adapter::UnLzip 2.101 ;'; - - eval ' use IO::Uncompress::Bunzip2 2.101 ;'; - eval ' use IO::Uncompress::UnLzop 2.101 ;'; - eval ' use IO::Uncompress::Gunzip 2.101 ;'; - eval ' use IO::Uncompress::Inflate 2.101 ;'; - eval ' use IO::Uncompress::RawInflate 2.101 ;'; - eval ' use IO::Uncompress::Unzip 2.101 ;'; - eval ' use IO::Uncompress::UnLzf 2.101 ;'; - eval ' use IO::Uncompress::UnLzma 2.101 ;'; - eval ' use IO::Uncompress::UnXz 2.101 ;'; - eval ' use IO::Uncompress::UnZstd 2.101 ;'; - eval ' use IO::Uncompress::UnLzip 2.101 ;'; + eval ' use IO::Uncompress::Adapter::Inflate 2.204 ;'; + eval ' use IO::Uncompress::Adapter::Bunzip2 2.204 ;'; + eval ' use IO::Uncompress::Adapter::LZO 2.204 ;'; + eval ' use IO::Uncompress::Adapter::Lzf 2.204 ;'; + eval ' use IO::Uncompress::Adapter::UnLzma 2.204 ;'; + eval ' use IO::Uncompress::Adapter::UnXz 2.204 ;'; + eval ' use IO::Uncompress::Adapter::UnZstd 2.204 ;'; + eval ' use IO::Uncompress::Adapter::UnLzip 2.204 ;'; + + eval ' use IO::Uncompress::Bunzip2 2.204 ;'; + eval ' use IO::Uncompress::UnLzop 2.204 ;'; + eval ' use IO::Uncompress::Gunzip 2.204 ;'; + eval ' use IO::Uncompress::Inflate 2.204 ;'; + eval ' use IO::Uncompress::RawInflate 2.204 ;'; + eval ' use IO::Uncompress::Unzip 2.204 ;'; + eval ' use IO::Uncompress::UnLzf 2.204 ;'; + eval ' use IO::Uncompress::UnLzma 2.204 ;'; + eval ' use IO::Uncompress::UnXz 2.204 ;'; + eval ' use IO::Uncompress::UnZstd 2.204 ;'; + eval ' use IO::Uncompress::UnLzip 2.204 ;'; } @@ -1077,7 +1077,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm index 31a34eb3f0..2ad0a769c0 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm +++ b/systems/texlive/tlnet/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.102'; +$VERSION = '2.204'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; -use IO::Compress::Base::Common 2.101 ; +use IO::Compress::Base::Common 2.204 ; use IO::File ; use Symbol; @@ -1006,6 +1006,11 @@ sub nextStream { my $self = shift ; + # An uncompressed file cannot have a next stream, so + # return immediately. + return 0 + if *$self->{Plain} ; + my $status = $self->gotoNextStream(); $status == 1 or return $status ; @@ -1562,7 +1567,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm index 38fff645a3..d234c464ff 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm @@ -4,15 +4,15 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status ); +use IO::Compress::Base::Common 2.204 qw(:Status ); -use IO::Uncompress::Base 2.101 ; -use IO::Uncompress::Adapter::Bunzip2 2.101 ; +use IO::Uncompress::Base 2.204 ; +use IO::Uncompress::Adapter::Bunzip2 2.204 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error); -$VERSION = '2.102'; +$VERSION = '2.204'; $Bunzip2Error = ''; @ISA = qw(IO::Uncompress::Base Exporter); @@ -130,7 +130,9 @@ sub chkTrailer sub isBzip2Magic { my $buffer = shift ; - return $buffer =~ /^BZh\d$/; + + # ASCII: B Z h 0 9 + return $buffer =~ qr/^\x42\x5A\x68[\x30-\x39]$/; } 1 ; @@ -907,7 +909,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm index 54757132a6..eeadb214ff 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Gunzip.pm @@ -9,12 +9,12 @@ use strict ; use warnings; use bytes; -use IO::Uncompress::RawInflate 2.101 ; +use IO::Uncompress::RawInflate 2.204 ; -use Compress::Raw::Zlib 2.101 () ; -use IO::Compress::Base::Common 2.101 qw(:Status ); -use IO::Compress::Gzip::Constants 2.101 ; -use IO::Compress::Zlib::Extra 2.101 ; +use Compress::Raw::Zlib 2.204 () ; +use IO::Compress::Base::Common 2.204 qw(:Status ); +use IO::Compress::Gzip::Constants 2.204 ; +use IO::Compress::Zlib::Extra 2.204 ; require Exporter ; @@ -28,7 +28,7 @@ Exporter::export_ok_tags('all'); $GunzipError = ''; -$VERSION = '2.102'; +$VERSION = '2.204'; sub new { @@ -1100,9 +1100,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -1110,6 +1110,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -1122,7 +1125,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm index 26d2e38aca..1573ba3f42 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Inflate.pm @@ -5,15 +5,15 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.101 qw(:Status ); -use IO::Compress::Zlib::Constants 2.101 ; +use IO::Compress::Base::Common 2.204 qw(:Status ); +use IO::Compress::Zlib::Constants 2.204 ; -use IO::Uncompress::RawInflate 2.101 ; +use IO::Uncompress::RawInflate 2.204 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError); -$VERSION = '2.102'; +$VERSION = '2.204'; $InflateError = ''; @ISA = qw(IO::Uncompress::RawInflate Exporter); @@ -972,9 +972,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -982,6 +982,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -994,7 +997,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm index 5d7d2e0258..80ff3f198e 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/RawInflate.pm @@ -5,16 +5,16 @@ use strict ; use warnings; use bytes; -use Compress::Raw::Zlib 2.101 ; -use IO::Compress::Base::Common 2.101 qw(:Status ); +use Compress::Raw::Zlib 2.204 ; +use IO::Compress::Base::Common 2.204 qw(:Status ); -use IO::Uncompress::Base 2.101 ; -use IO::Uncompress::Adapter::Inflate 2.101 ; +use IO::Uncompress::Base 2.204 ; +use IO::Uncompress::Adapter::Inflate 2.204 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError); -$VERSION = '2.102'; +$VERSION = '2.204'; $RawInflateError = ''; @ISA = qw(IO::Uncompress::Base Exporter); @@ -1100,9 +1100,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -1110,6 +1110,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -1122,7 +1125,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm index 98fcea71a9..f1d806b4ac 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Unzip.pm @@ -9,14 +9,14 @@ use warnings; use bytes; use IO::File; -use IO::Uncompress::RawInflate 2.101 ; -use IO::Compress::Base::Common 2.101 qw(:Status ); -use IO::Uncompress::Adapter::Inflate 2.101 ; -use IO::Uncompress::Adapter::Identity 2.101 ; -use IO::Compress::Zlib::Extra 2.101 ; -use IO::Compress::Zip::Constants 2.101 ; +use IO::Uncompress::RawInflate 2.204 ; +use IO::Compress::Base::Common 2.204 qw(:Status ); +use IO::Uncompress::Adapter::Inflate 2.204 ; +use IO::Uncompress::Adapter::Identity 2.204 ; +use IO::Compress::Zlib::Extra 2.204 ; +use IO::Compress::Zip::Constants 2.204 ; -use Compress::Raw::Zlib 2.101 () ; +use Compress::Raw::Zlib 2.204 () ; BEGIN { @@ -38,11 +38,11 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup); -$VERSION = '2.102'; +$VERSION = '2.204'; $UnzipError = ''; @ISA = qw(IO::Uncompress::RawInflate Exporter); -@EXPORT_OK = qw( $UnzipError unzip ); +@EXPORT_OK = qw($UnzipError unzip ); %EXPORT_TAGS = %IO::Uncompress::RawInflate::EXPORT_TAGS ; push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ; Exporter::export_ok_tags('all'); @@ -812,12 +812,11 @@ sub _dosToUnixTime my $min = ( ( $dt >> 5 ) & 0x3f ); my $sec = ( ( $dt << 1 ) & 0x3e ); - - use POSIX 'mktime'; - - my $time_t = mktime( $sec, $min, $hour, $mday, $mon, $year, 0, 0, -1 ); + use Time::Local ; + my $time_t = Time::Local::timelocal( $sec, $min, $hour, $mday, $mon, $year); return 0 if ! defined $time_t; - return $time_t; + return $time_t; + } #sub scanCentralDirectory @@ -1943,9 +1942,9 @@ L<Archive::Tar|Archive::Tar>, L<IO::Zlib|IO::Zlib> 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> +L<https://datatracker.ietf.org/doc/html/rfc1950>, +L<https://datatracker.ietf.org/doc/html/rfc1951> and +L<https://datatracker.ietf.org/doc/html/rfc1952> The I<zlib> compression library was written by Jean-loup Gailly C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. @@ -1953,6 +1952,9 @@ C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>. The primary site for the I<zlib> compression library is L<http://www.zlib.org>. +The primary site for the I<zlib-ng> compression library is +L<https://github.com/zlib-ng/zlib-ng>. + The primary site for gzip is L<http://www.gzip.org>. =head1 AUTHOR @@ -1965,7 +1967,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2021 Paul Marquess. All rights reserved. +Copyright (c) 2005-2023 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/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Zlib.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Zlib.pm index 84aa5e428f..2c2e869ff8 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Zlib.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Zlib.pm @@ -291,7 +291,7 @@ use Fcntl qw(SEEK_SET); use Symbol; use Tie::Handle; -our $VERSION = "1.11"; +our $VERSION = "1.14"; our $AUTOLOAD; our @ISA = qw(Tie::Handle); |