Identity.pm (IO-Compress-2.100) | : | Identity.pm (IO-Compress-2.101) | ||
---|---|---|---|---|
package IO::Compress::Adapter::Identity ; | package IO::Compress::Adapter::Identity ; | |||
use strict; | use strict; | |||
use warnings; | use warnings; | |||
use bytes; | use bytes; | |||
use IO::Compress::Base::Common 2.100 qw(:Status); | use IO::Compress::Base::Common 2.101 qw(:Status); | |||
our ($VERSION); | our ($VERSION); | |||
$VERSION = '2.100'; | $VERSION = '2.101'; | |||
sub mkCompObject | sub mkCompObject | |||
{ | { | |||
my $level = shift ; | my $level = shift ; | |||
my $strategy = shift ; | my $strategy = shift ; | |||
return bless { | return bless { | |||
'CompSize' => 0, | 'CompSize' => 0, | |||
'UnCompSize' => 0, | 'UnCompSize' => 0, | |||
'Error' => '', | 'Error' => '', | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |