Identity.pm (IO-Compress-2.100) | : | Identity.pm (IO-Compress-2.101) | ||
---|---|---|---|---|
package IO::Uncompress::Adapter::Identity; | package IO::Uncompress::Adapter::Identity; | |||
use warnings; | use warnings; | |||
use strict; | use strict; | |||
use bytes; | use bytes; | |||
use IO::Compress::Base::Common 2.100 qw(:Status); | use IO::Compress::Base::Common 2.101 qw(:Status); | |||
use IO::Compress::Zip::Constants ; | use IO::Compress::Zip::Constants ; | |||
our ($VERSION); | our ($VERSION); | |||
$VERSION = '2.100'; | $VERSION = '2.101'; | |||
use Compress::Raw::Zlib 2.100 (); | use Compress::Raw::Zlib 2.101 (); | |||
sub mkUncompObject | sub mkUncompObject | |||
{ | { | |||
my $streaming = shift; | my $streaming = shift; | |||
my $zip64 = shift; | my $zip64 = shift; | |||
my $crc32 = 1; #shift ; | my $crc32 = 1; #shift ; | |||
my $adler32 = shift; | my $adler32 = shift; | |||
bless { 'CompSize' => U64->new(), # 0, | bless { 'CompSize' => U64->new(), # 0, | |||
End of changes. 3 change blocks. | ||||
3 lines changed or deleted | 3 lines changed or added |