use strict;
use bytes;
-use IO::Compress::Base::Common 2.068 qw(:Status);
+use IO::Compress::Base::Common 2.096 qw(:Status);
use IO::Compress::Zip::Constants ;
our ($VERSION);
-$VERSION = '2.068';
+$VERSION = '2.096';
-use Compress::Raw::Zlib 2.068 ();
+use Compress::Raw::Zlib 2.096 ();
sub mkUncompObject
{
{
my $self = shift;
- $self->{CompSize} = 0;
+ $self->{CompSize}->reset();
$self->{UnCompSize} = 0;
$self->{CRC32} = Compress::Raw::Zlib::crc32('');
$self->{ADLER32} = Compress::Raw::Zlib::adler32('');