summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-04-04 03:14:42 +0000
committerNorbert Preining <norbert@preining.info>2022-04-04 03:14:42 +0000
commit7548e4d37c2aaefd32fe0a9bcd83f8e71326dde1 (patch)
treed335b608e63e9b3c37d7ba0e567c63e77250e171 /systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter
parent506de1e2d3515161cdbc7018b4ccc9e49d7f86e8 (diff)
CTAN sync 202204040314
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Bunzip2.pm23
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Identity.pm14
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Adapter/Inflate.pm27
3 files changed, 31 insertions, 33 deletions
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 3fc176e500..2964125105 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,19 +4,19 @@ use strict;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.093 qw(:Status);
+use IO::Compress::Base::Common 2.101 qw(:Status);
-use Compress::Raw::Bzip2 2.093 ;
+use Compress::Raw::Bzip2 2.101 ;
our ($VERSION, @ISA);
-$VERSION = '2.093';
+$VERSION = '2.102';
sub mkUncompObject
{
my $small = shift || 0;
my $verbosity = shift || 0;
- my ($inflate, $status) = new Compress::Raw::Bunzip2(1, 1, $small, $verbosity, 1);
+ my ($inflate, $status) = Compress::Raw::Bunzip2->new(1, 1, $small, $verbosity, 1);
return (undef, "Could not create Inflation object: $status", $status)
if $status != BZ_OK ;
@@ -26,8 +26,8 @@ sub mkUncompObject
'UnCompSize' => 0,
'Error' => '',
'ConsumesInput' => 1,
- } ;
-
+ } ;
+
}
sub uncompr
@@ -48,7 +48,7 @@ sub uncompr
return STATUS_ERROR;
}
-
+
return STATUS_OK if $status == BZ_OK ;
return STATUS_ENDSTREAM if $status == BZ_STREAM_END ;
return STATUS_ERROR ;
@@ -59,12 +59,12 @@ sub reset
{
my $self = shift ;
- my ($inf, $status) = new Compress::Raw::Bunzip2();
+ my ($inf, $status) = Compress::Raw::Bunzip2->new();
$self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
if ($status != BZ_OK)
{
- $self->{Error} = "Cannot create Inflate object: $status";
+ $self->{Error} = "Cannot create Inflate object: $status";
return STATUS_ERROR;
}
@@ -100,8 +100,8 @@ sub adler32
sub sync
{
my $self = shift ;
- #( $self->{Inf}->inflateSync(@_) == BZ_OK)
- # ? STATUS_OK
+ #( $self->{Inf}->inflateSync(@_) == BZ_OK)
+ # ? STATUS_OK
# : STATUS_ERROR ;
}
@@ -109,4 +109,3 @@ sub sync
1;
__END__
-
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 c8622a5913..4fedcae46a 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.093 qw(:Status);
+use IO::Compress::Base::Common 2.101 qw(:Status);
use IO::Compress::Zip::Constants ;
our ($VERSION);
-$VERSION = '2.093';
+$VERSION = '2.102';
-use Compress::Raw::Zlib 2.093 ();
+use Compress::Raw::Zlib 2.101 ();
sub mkUncompObject
{
@@ -21,7 +21,7 @@ sub mkUncompObject
my $crc32 = 1; #shift ;
my $adler32 = shift;
- bless { 'CompSize' => new U64 , # 0,
+ bless { 'CompSize' => U64->new(), # 0,
'UnCompSize' => 0,
'wantCRC32' => $crc32,
'CRC32' => Compress::Raw::Zlib::crc32(''),
@@ -70,7 +70,7 @@ sub uncompr
$ind = $len - 1 ;
}
}
-
+
if ($ind >= 0) {
$remainder = substr($$in, $ind) ;
substr($$in, $ind) = '' ;
@@ -94,7 +94,7 @@ sub uncompr
$l1 = U64::newUnpack_V32(substr($remainder, 8));
$l2 = U64::newUnpack_V32(substr($remainder, 12));
}
-
+
my $newLen = $self->{CompSize}->clone();
$newLen->add(length $$in);
if ($l1->equal($l2) && $l1->equal($newLen) ) {
@@ -142,7 +142,7 @@ sub reset
$self->{CompSize}->reset();
$self->{UnCompSize} = 0;
$self->{CRC32} = Compress::Raw::Zlib::crc32('');
- $self->{ADLER32} = Compress::Raw::Zlib::adler32('');
+ $self->{ADLER32} = Compress::Raw::Zlib::adler32('');
return STATUS_OK ;
}
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 a27af5ba8e..315b0c32ce 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.093 qw(:Status);
-use Compress::Raw::Zlib 2.093 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+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);
our ($VERSION);
-$VERSION = '2.093';
+$VERSION = '2.102';
@@ -23,23 +23,23 @@ sub mkUncompObject
if ($scan)
{
- ($inflate, $status) = new Compress::Raw::Zlib::InflateScan
+ ($inflate, $status) = Compress::Raw::Zlib::InflateScan->new(
#LimitOutput => 1,
CRC32 => $crc32,
ADLER32 => $adler32,
- WindowBits => - MAX_WBITS ;
+ WindowBits => - MAX_WBITS );
}
else
{
- ($inflate, $status) = new Compress::Raw::Zlib::Inflate
+ ($inflate, $status) = Compress::Raw::Zlib::Inflate->new(
AppendOutput => 1,
LimitOutput => 1,
CRC32 => $crc32,
ADLER32 => $adler32,
- WindowBits => - MAX_WBITS ;
+ WindowBits => - MAX_WBITS );
}
- return (undef, "Could not create Inflation object: $status", $status)
+ return (undef, "Could not create Inflation object: $status", $status)
if $status != Z_OK ;
return bless {'Inf' => $inflate,
@@ -47,8 +47,8 @@ sub mkUncompObject
'UnCompSize' => 0,
'Error' => '',
'ConsumesInput' => 1,
- } ;
-
+ } ;
+
}
sub uncompr
@@ -67,7 +67,7 @@ sub uncompr
$self->{Error} = "Inflation Error: $status";
return STATUS_ERROR;
}
-
+
return STATUS_OK if $status == Z_BUF_ERROR ; # ???
return STATUS_OK if $status == Z_OK ;
return STATUS_ENDSTREAM if $status == Z_STREAM_END ;
@@ -115,8 +115,8 @@ sub adler32
sub sync
{
my $self = shift ;
- ( $self->{Inf}->inflateSync(@_) == Z_OK)
- ? STATUS_OK
+ ( $self->{Inf}->inflateSync(@_) == Z_OK)
+ ? STATUS_OK
: STATUS_ERROR ;
}
@@ -154,4 +154,3 @@ sub createDeflateStream
__END__
-