Skip to content

Commit

Permalink
IO-Compress: sync with CPAN version 2.204
Browse files Browse the repository at this point in the history
From Changes:

* Update Gzip.pm
pmqs/IO-Compress#49

* Allow Z_NULL
pmqs/Compress-Raw-Zlib#17
  • Loading branch information
pmqs authored and pjacklam committed May 20, 2023
1 parent b48a889 commit 4b36374
Show file tree
Hide file tree
Showing 31 changed files with 146 additions and 144 deletions.
2 changes: 1 addition & 1 deletion Porting/Maintainers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -641,7 +641,7 @@ package Maintainers;
},

'IO-Compress' => {
'DISTRIBUTION' => 'PMQS/IO-Compress-2.201.tar.gz',
'DISTRIBUTION' => 'PMQS/IO-Compress-2.204.tar.gz',
'MAIN_MODULE' => 'IO::Compress::Base',
'FILES' => q[cpan/IO-Compress],
'EXCLUDED' => [
Expand Down
4 changes: 2 additions & 2 deletions cpan/IO-Compress/Makefile.PL
Original file line number Diff line number Diff line change
Expand Up @@ -3,8 +3,8 @@
use strict ;
require 5.006 ;

$::VERSION = '2.201' ;
$::DEP_VERSION = '2.201';
$::VERSION = '2.204' ;
$::DEP_VERSION = '2.204';

use lib '.';
use private::MakeUtil;
Expand Down
14 changes: 7 additions & 7 deletions cpan/IO-Compress/lib/Compress/Zlib.pm
Original file line number Diff line number Diff line change
Expand Up @@ -7,17 +7,17 @@ use Carp ;
use IO::Handle ;
use Scalar::Util qw(dualvar);

use IO::Compress::Base::Common 2.201 ;
use Compress::Raw::Zlib 2.201 ;
use IO::Compress::Gzip 2.201 ;
use IO::Uncompress::Gunzip 2.201 ;
use IO::Compress::Base::Common 2.204 ;
use Compress::Raw::Zlib 2.204 ;
use IO::Compress::Gzip 2.204 ;
use IO::Uncompress::Gunzip 2.204 ;

use strict ;
use warnings ;
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);

$VERSION = '2.201';
$VERSION = '2.204';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;

Expand Down Expand Up @@ -461,7 +461,7 @@ sub inflate

package Compress::Zlib ;

use IO::Compress::Gzip::Constants 2.201 ;
use IO::Compress::Gzip::Constants 2.204 ;

sub memGzip($)
{
Expand Down Expand Up @@ -1509,7 +1509,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 1995-2022 Paul Marquess. All rights reserved.
Copyright (c) 1995-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.
6 changes: 3 additions & 3 deletions cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,12 +4,12 @@ use strict;
use warnings;
use bytes;

use IO::Compress::Base::Common 2.201 qw(:Status);
use IO::Compress::Base::Common 2.204 qw(:Status);

use Compress::Raw::Bzip2 2.201 ;
use Compress::Raw::Bzip2 2.204 ;

our ($VERSION);
$VERSION = '2.201';
$VERSION = '2.204';

sub mkCompObject
{
Expand Down
6 changes: 3 additions & 3 deletions cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,13 +4,13 @@ use strict;
use warnings;
use bytes;

use IO::Compress::Base::Common 2.201 qw(:Status);
use Compress::Raw::Zlib 2.201 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.201';
$VERSION = '2.204';
@ISA = qw(Exporter);
@EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
%EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
Expand Down
4 changes: 2 additions & 2 deletions cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,10 +4,10 @@ use strict;
use warnings;
use bytes;

use IO::Compress::Base::Common 2.201 qw(:Status);
use IO::Compress::Base::Common 2.204 qw(:Status);
our ($VERSION);

$VERSION = '2.201';
$VERSION = '2.204';

sub mkCompObject
{
Expand Down
6 changes: 3 additions & 3 deletions cpan/IO-Compress/lib/IO/Compress/Base.pm
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@ require 5.006 ;
use strict ;
use warnings;

use IO::Compress::Base::Common 2.201 ;
use IO::Compress::Base::Common 2.204 ;

use IO::File (); ;
use Scalar::Util ();
Expand All @@ -20,7 +20,7 @@ use Symbol();
our (@ISA, $VERSION);
@ISA = qw(IO::File Exporter);

$VERSION = '2.201';
$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.

Expand Down Expand Up @@ -1051,7 +1051,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2022 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.
2 changes: 1 addition & 1 deletion cpan/IO-Compress/lib/IO/Compress/Base/Common.pm
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ use File::GlobMapper;
require Exporter;
our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
@ISA = qw(Exporter);
$VERSION = '2.201';
$VERSION = '2.204';

@EXPORT = qw( isaFilehandle isaFilename isaScalar
whatIsInput whatIsOutput
Expand Down
12 changes: 6 additions & 6 deletions cpan/IO-Compress/lib/IO/Compress/Bzip2.pm
Original file line number Diff line number Diff line change
Expand Up @@ -5,16 +5,16 @@ use warnings;
use bytes;
require Exporter ;

use IO::Compress::Base 2.201 ;
use IO::Compress::Base 2.204 ;

use IO::Compress::Base::Common 2.201 qw();
use IO::Compress::Adapter::Bzip2 2.201 ;
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.201';
$VERSION = '2.204';
$Bzip2Error = '';

@ISA = qw(IO::Compress::Base Exporter);
Expand Down Expand Up @@ -51,7 +51,7 @@ sub getExtraParams
{
my $self = shift ;

use IO::Compress::Base::Common 2.201 qw(:Parse);
use IO::Compress::Base::Common 2.204 qw(:Parse);

return (
'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned, 1],
Expand Down Expand Up @@ -818,7 +818,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2022 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.
12 changes: 6 additions & 6 deletions cpan/IO-Compress/lib/IO/Compress/Deflate.pm
Original file line number Diff line number Diff line change
Expand Up @@ -8,16 +8,16 @@ use bytes;

require Exporter ;

use IO::Compress::RawDeflate 2.201 ();
use IO::Compress::Adapter::Deflate 2.201 ;
use IO::Compress::RawDeflate 2.204 ();
use IO::Compress::Adapter::Deflate 2.204 ;

use IO::Compress::Zlib::Constants 2.201 ;
use IO::Compress::Base::Common 2.201 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.201';
$VERSION = '2.204';
$DeflateError = '';

@ISA = qw(IO::Compress::RawDeflate Exporter);
Expand Down Expand Up @@ -892,7 +892,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2022 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.
2 changes: 1 addition & 1 deletion cpan/IO-Compress/lib/IO/Compress/FAQ.pod
Original file line number Diff line number Diff line change
Expand Up @@ -682,7 +682,7 @@ See the Changes file.

=head1 COPYRIGHT AND LICENSE

Copyright (c) 2005-2022 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.
Expand Down
14 changes: 7 additions & 7 deletions cpan/IO-Compress/lib/IO/Compress/Gzip.pm
Original file line number Diff line number Diff line change
Expand Up @@ -8,12 +8,12 @@ use bytes;

require Exporter ;

use IO::Compress::RawDeflate 2.201 () ;
use IO::Compress::Adapter::Deflate 2.201 ;
use IO::Compress::RawDeflate 2.204 () ;
use IO::Compress::Adapter::Deflate 2.204 ;

use IO::Compress::Base::Common 2.201 qw(:Status );
use IO::Compress::Gzip::Constants 2.201 ;
use IO::Compress::Zlib::Extra 2.201 ;
use IO::Compress::Base::Common 2.204 qw(:Status );
use IO::Compress::Gzip::Constants 2.204 ;
use IO::Compress::Zlib::Extra 2.204 ;

BEGIN
{
Expand All @@ -25,7 +25,7 @@ BEGIN

our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);

$VERSION = '2.201';
$VERSION = '2.204';
$GzipError = '' ;

@ISA = qw(IO::Compress::RawDeflate Exporter);
Expand Down Expand Up @@ -1267,7 +1267,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2022 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.
2 changes: 1 addition & 1 deletion cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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.201';
$VERSION = '2.204';

@ISA = qw(Exporter);

Expand Down
12 changes: 6 additions & 6 deletions cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm
Original file line number Diff line number Diff line change
Expand Up @@ -6,16 +6,16 @@ use strict ;
use warnings;
use bytes;

use IO::Compress::Base 2.201 ;
use IO::Compress::Base::Common 2.201 qw(:Status :Parse);
use IO::Compress::Adapter::Deflate 2.201 ;
use Compress::Raw::Zlib 2.201 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.201';
$VERSION = '2.204';
$RawDeflateError = '';

@ISA = qw(IO::Compress::Base Exporter);
Expand Down Expand Up @@ -1010,7 +1010,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2022 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.
26 changes: 15 additions & 11 deletions cpan/IO-Compress/lib/IO/Compress/Zip.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,17 +4,17 @@ use strict ;
use warnings;
use bytes;

use IO::Compress::Base::Common 2.201 qw(:Status );
use IO::Compress::RawDeflate 2.201 ();
use IO::Compress::Adapter::Deflate 2.201 ;
use IO::Compress::Adapter::Identity 2.201 ;
use IO::Compress::Zlib::Extra 2.201 ;
use IO::Compress::Zip::Constants 2.201 ;
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.201 ();
use Compress::Raw::Zlib 2.204 ();

BEGIN
{
Expand Down Expand Up @@ -47,7 +47,7 @@ require Exporter ;

our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);

$VERSION = '2.201';
$VERSION = '2.204';
$ZipError = '';

@ISA = qw(IO::Compress::RawDeflate Exporter);
Expand Down Expand Up @@ -570,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)
Expand Down Expand Up @@ -642,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');

Expand All @@ -662,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) {
Expand All @@ -671,6 +673,7 @@ sub ckParams
if $bad ;

$got->setValue($name, $data) ;
*$self->{ZipData}{$name} = $data;
}
}

Expand Down Expand Up @@ -735,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],
Expand Down Expand Up @@ -2162,7 +2166,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2005-2022 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.
2 changes: 1 addition & 1 deletion cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ require Exporter;

our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);

$VERSION = '2.201';
$VERSION = '2.204';

@ISA = qw(Exporter);

Expand Down
Loading

0 comments on commit 4b36374

Please sign in to comment.