use warnings;
use bytes;
-use IO::Compress::Base::Common 2.019 qw(:Status);
+use IO::Compress::Base::Common 2.020 qw(:Status);
-use Compress::Raw::Bzip2 2.019 ;
+use Compress::Raw::Bzip2 2.020 ;
our ($VERSION, @ISA);
-$VERSION = '2.019';
+$VERSION = '2.020';
sub mkUncompObject
{
return (undef, "Could not create Inflation object: $status", $status)
if $status != BZ_OK ;
- return bless {'Inf' => $inflate,
- 'CompSize' => 0,
- 'UnCompSize' => 0,
- 'Error' => '',
+ return bless {'Inf' => $inflate,
+ 'CompSize' => 0,
+ 'UnCompSize' => 0,
+ 'Error' => '',
+ 'ConsumesInput' => 1,
} ;
}