"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/IO/Uncompress/AnyUncompress.pm" between
IO-Compress-2.100.tar.gz and IO-Compress-2.101.tar.gz

About: IO-Compress is a Perl interface to the zlib compression library (contains Compress-Zlib, IO-Compress-Zlib, IO-Compress-Bzip2, IO-Compress-Base).

AnyUncompress.pm  (IO-Compress-2.100)	:	AnyUncompress.pm  (IO-Compress-2.101)
package IO::Uncompress::AnyUncompress ;		package IO::Uncompress::AnyUncompress ;
use strict;		use strict;
use warnings;		use warnings;
use bytes;		use bytes;
use IO::Compress::Base::Common 2.100 ();		use IO::Compress::Base::Common 2.101 ();
use IO::Uncompress::Base 2.100 ;		use IO::Uncompress::Base 2.101 ;
require Exporter ;		require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);		our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
$VERSION = '2.100';		$VERSION = '2.101';
$AnyUncompressError = '';		$AnyUncompressError = '';
@ISA = qw(IO::Uncompress::Base Exporter);		@ISA = qw(IO::Uncompress::Base Exporter);
@EXPORT_OK = qw( $AnyUncompressError anyuncompress ) ;		@EXPORT_OK = qw( $AnyUncompressError anyuncompress ) ;
%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS if keys %IO::Uncompress: :Base::DEFLATE_CONSTANTS;		%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS if keys %IO::Uncompress: :Base::DEFLATE_CONSTANTS;
push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;		push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
Exporter::export_ok_tags('all');		Exporter::export_ok_tags('all');
# TODO - allow the user to pick a set of the three formats to allow		# TODO - allow the user to pick a set of the three formats to allow
# or just assume want to auto-detect any of the three formats.		# or just assume want to auto-detect any of the three formats.
BEGIN		BEGIN
{		{
local @INC = @INC;		local @INC = @INC;
pop @INC if $INC[-1] eq '.';		pop @INC if $INC[-1] eq '.';
# Don't trigger any __DIE__ Hooks.		# Don't trigger any __DIE__ Hooks.
local $SIG{__DIE__};		local $SIG{__DIE__};
eval ' use IO::Uncompress::Adapter::Inflate 2.100 ;';		eval ' use IO::Uncompress::Adapter::Inflate 2.101 ;';
eval ' use IO::Uncompress::Adapter::Bunzip2 2.100 ;';		eval ' use IO::Uncompress::Adapter::Bunzip2 2.101 ;';
eval ' use IO::Uncompress::Adapter::LZO 2.100 ;';		eval ' use IO::Uncompress::Adapter::LZO 2.101 ;';
eval ' use IO::Uncompress::Adapter::Lzf 2.100 ;';		eval ' use IO::Uncompress::Adapter::Lzf 2.101 ;';
eval ' use IO::Uncompress::Adapter::UnLzma 2.100 ;';		eval ' use IO::Uncompress::Adapter::UnLzma 2.101 ;';
eval ' use IO::Uncompress::Adapter::UnXz 2.100 ;';		eval ' use IO::Uncompress::Adapter::UnXz 2.101 ;';
eval ' use IO::Uncompress::Adapter::UnZstd 2.100 ;';		eval ' use IO::Uncompress::Adapter::UnZstd 2.101 ;';
eval ' use IO::Uncompress::Adapter::UnLzip 2.100 ;';		eval ' use IO::Uncompress::Adapter::UnLzip 2.101 ;';
eval ' use IO::Uncompress::Bunzip2 2.100 ;';		eval ' use IO::Uncompress::Bunzip2 2.101 ;';
eval ' use IO::Uncompress::UnLzop 2.100 ;';		eval ' use IO::Uncompress::UnLzop 2.101 ;';
eval ' use IO::Uncompress::Gunzip 2.100 ;';		eval ' use IO::Uncompress::Gunzip 2.101 ;';
eval ' use IO::Uncompress::Inflate 2.100 ;';		eval ' use IO::Uncompress::Inflate 2.101 ;';
eval ' use IO::Uncompress::RawInflate 2.100 ;';		eval ' use IO::Uncompress::RawInflate 2.101 ;';
eval ' use IO::Uncompress::Unzip 2.100 ;';		eval ' use IO::Uncompress::Unzip 2.101 ;';
eval ' use IO::Uncompress::UnLzf 2.100 ;';		eval ' use IO::Uncompress::UnLzf 2.101 ;';
eval ' use IO::Uncompress::UnLzma 2.100 ;';		eval ' use IO::Uncompress::UnLzma 2.101 ;';
eval ' use IO::Uncompress::UnXz 2.100 ;';		eval ' use IO::Uncompress::UnXz 2.101 ;';
eval ' use IO::Uncompress::UnZstd 2.100 ;';		eval ' use IO::Uncompress::UnZstd 2.101 ;';
eval ' use IO::Uncompress::UnLzip 2.100 ;';		eval ' use IO::Uncompress::UnLzip 2.101 ;';
}		}
sub new		sub new
{		{
my $class = shift ;		my $class = shift ;
my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyUnco mpressError);		my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyUnco mpressError);
$obj->_create(undef, 0, @_);		$obj->_create(undef, 0, @_);
}		}
End of changes. 4 change blocks.
23 lines changed or deleted		23 lines changed or added

---