summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/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/Compress/Adapter
parent506de1e2d3515161cdbc7018b4ccc9e49d7f86e8 (diff)
CTAN sync 202204040314
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Bzip2.pm33
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Deflate.pm39
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Compress/Adapter/Identity.pm19
3 files changed, 44 insertions, 47 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 a8a7762ce7..c157520f08 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.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);
-$VERSION = '2.093';
+$VERSION = '2.102';
sub mkCompObject
{
@@ -21,7 +21,7 @@ sub mkCompObject
$WorkFactor = 0 if ! defined $WorkFactor ;
$Verbosity = 0 if ! defined $Verbosity ;
- my ($def, $status) = new Compress::Raw::Bzip2(1, $BlockSize100K,
+ my ($def, $status) = Compress::Raw::Bzip2->new(1, $BlockSize100K,
$WorkFactor, $Verbosity);
return (undef, "Could not create Deflate object: $status", $status)
@@ -30,7 +30,7 @@ sub mkCompObject
return bless {'Def' => $def,
'Error' => '',
'ErrorNo' => 0,
- } ;
+ } ;
}
sub compr
@@ -44,11 +44,11 @@ sub compr
if ($status != BZ_RUN_OK)
{
- $self->{Error} = "Deflate Error: $status";
+ $self->{Error} = "Deflate Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
+ return STATUS_OK;
}
sub flush
@@ -62,12 +62,12 @@ sub flush
if ($status != BZ_RUN_OK)
{
- $self->{Error} = "Deflate Error: $status";
+ $self->{Error} = "Deflate Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
-
+ return STATUS_OK;
+
}
sub close
@@ -81,12 +81,12 @@ sub close
if ($status != BZ_STREAM_END)
{
- $self->{Error} = "Deflate Error: $status";
+ $self->{Error} = "Deflate Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
-
+ return STATUS_OK;
+
}
@@ -96,18 +96,18 @@ sub reset
my $outer = $self->{Outer};
- my ($def, $status) = new Compress::Raw::Bzip2();
+ my ($def, $status) = Compress::Raw::Bzip2->new();
$self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
if ($status != BZ_OK)
{
- $self->{Error} = "Cannot create Deflate object: $status";
+ $self->{Error} = "Cannot create Deflate object: $status";
return STATUS_ERROR;
}
$self->{Def} = $def;
- return STATUS_OK;
+ return STATUS_OK;
}
sub compressedBytes
@@ -151,4 +151,3 @@ sub uncompressedBytes
1;
__END__
-
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 140d29ff29..1048dbda82 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.093 qw(:Status);
-use Compress::Raw::Zlib 2.093 qw( !crc32 !adler32 ) ;
-
-require Exporter;
+use IO::Compress::Base::Common 2.101 qw(:Status);
+use Compress::Raw::Zlib 2.101 qw( !crc32 !adler32 ) ;
+
+require Exporter;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
-$VERSION = '2.093';
+$VERSION = '2.102';
@ISA = qw(Exporter);
@EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
%EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
@@ -24,20 +24,20 @@ sub mkCompObject
my $level = shift ;
my $strategy = shift ;
- my ($def, $status) = new Compress::Raw::Zlib::Deflate
+ my ($def, $status) = Compress::Raw::Zlib::Deflate->new(
-AppendOutput => 1,
-CRC32 => $crc32,
-ADLER32 => $adler32,
-Level => $level,
-Strategy => $strategy,
- -WindowBits => - MAX_WBITS;
+ -WindowBits => - MAX_WBITS);
- return (undef, "Cannot create Deflate object: $status", $status)
- if $status != Z_OK;
+ return (undef, "Cannot create Deflate object: $status", $status)
+ if $status != Z_OK;
return bless {'Def' => $def,
'Error' => '',
- } ;
+ } ;
}
sub compr
@@ -51,11 +51,11 @@ sub compr
if ($status != Z_OK)
{
- $self->{Error} = "Deflate Error: $status";
+ $self->{Error} = "Deflate Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
+ return STATUS_OK;
}
sub flush
@@ -70,11 +70,11 @@ sub flush
if ($status != Z_OK)
{
- $self->{Error} = "Deflate Error: $status";
+ $self->{Error} = "Deflate Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
+ return STATUS_OK;
}
sub close
@@ -97,14 +97,14 @@ sub reset
$self->{ErrorNo} = $status;
if ($status != Z_OK)
{
- $self->{Error} = "Deflate Error: $status";
+ $self->{Error} = "Deflate Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
+ return STATUS_OK;
}
-sub deflateParams
+sub deflateParams
{
my $self = shift ;
@@ -114,11 +114,11 @@ sub deflateParams
$self->{ErrorNo} = $status;
if ($status != Z_OK)
{
- $self->{Error} = "deflateParams Error: $status";
+ $self->{Error} = "deflateParams Error: $status";
return STATUS_ERROR;
}
- return STATUS_OK;
+ return STATUS_OK;
}
@@ -167,4 +167,3 @@ sub adler32
1;
__END__
-
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 487cfa7b47..8b92a3cea6 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.093 qw(:Status);
+use IO::Compress::Base::Common 2.101 qw(:Status);
our ($VERSION);
-$VERSION = '2.093';
+$VERSION = '2.102';
sub mkCompObject
{
@@ -19,7 +19,7 @@ sub mkCompObject
'UnCompSize' => 0,
'Error' => '',
'ErrorNo' => 0,
- } ;
+ } ;
}
sub compr
@@ -30,7 +30,7 @@ sub compr
$self->{CompSize} += length ${ $_[0] } ;
$self->{UnCompSize} = $self->{CompSize} ;
- if ( ref $_[1] )
+ if ( ref $_[1] )
{ ${ $_[1] } .= ${ $_[0] } }
else
{ $_[1] .= ${ $_[0] } }
@@ -43,14 +43,14 @@ sub flush
{
my $self = shift ;
- return STATUS_OK;
+ return STATUS_OK;
}
sub close
{
my $self = shift ;
- return STATUS_OK;
+ return STATUS_OK;
}
sub reset
@@ -60,14 +60,14 @@ sub reset
$self->{CompSize} = 0;
$self->{UnCompSize} = 0;
- return STATUS_OK;
+ return STATUS_OK;
}
-sub deflateParams
+sub deflateParams
{
my $self = shift ;
- return STATUS_OK;
+ return STATUS_OK;
}
#sub total_out
@@ -98,4 +98,3 @@ sub uncompressedBytes
__END__
-