"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/IO/Uncompress/AnyUncompress.pm" between
IO-Compress-2.092.tar.gz and IO-Compress-2.093.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.092):AnyUncompress.pm  (IO-Compress-2.093)
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.092 (); use IO::Compress::Base::Common 2.093 ();
use IO::Uncompress::Base 2.092 ; use IO::Uncompress::Base 2.093 ;
require Exporter ; require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
$VERSION = '2.092'; $VERSION = '2.093';
$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 ; %EXPORT_TAGS = %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.092 ;'; eval ' use IO::Uncompress::Adapter::Inflate 2.093 ;';
eval ' use IO::Uncompress::Adapter::Bunzip2 2.092 ;'; eval ' use IO::Uncompress::Adapter::Bunzip2 2.093 ;';
eval ' use IO::Uncompress::Adapter::LZO 2.092 ;'; eval ' use IO::Uncompress::Adapter::LZO 2.093 ;';
eval ' use IO::Uncompress::Adapter::Lzf 2.092 ;'; eval ' use IO::Uncompress::Adapter::Lzf 2.093 ;';
eval ' use IO::Uncompress::Adapter::UnLzma 2.092 ;'; eval ' use IO::Uncompress::Adapter::UnLzma 2.093 ;';
eval ' use IO::Uncompress::Adapter::UnXz 2.092 ;'; eval ' use IO::Uncompress::Adapter::UnXz 2.093 ;';
eval ' use IO::Uncompress::Adapter::UnZstd 2.083 ;'; eval ' use IO::Uncompress::Adapter::UnZstd 2.083 ;';
eval ' use IO::Uncompress::Adapter::UnLzip 2.092 ;'; eval ' use IO::Uncompress::Adapter::UnLzip 2.093 ;';
eval ' use IO::Uncompress::Bunzip2 2.092 ;'; eval ' use IO::Uncompress::Bunzip2 2.093 ;';
eval ' use IO::Uncompress::UnLzop 2.092 ;'; eval ' use IO::Uncompress::UnLzop 2.093 ;';
eval ' use IO::Uncompress::Gunzip 2.092 ;'; eval ' use IO::Uncompress::Gunzip 2.093 ;';
eval ' use IO::Uncompress::Inflate 2.092 ;'; eval ' use IO::Uncompress::Inflate 2.093 ;';
eval ' use IO::Uncompress::RawInflate 2.092 ;'; eval ' use IO::Uncompress::RawInflate 2.093 ;';
eval ' use IO::Uncompress::Unzip 2.092 ;'; eval ' use IO::Uncompress::Unzip 2.093 ;';
eval ' use IO::Uncompress::UnLzf 2.092 ;'; eval ' use IO::Uncompress::UnLzf 2.093 ;';
eval ' use IO::Uncompress::UnLzma 2.092 ;'; eval ' use IO::Uncompress::UnLzma 2.093 ;';
eval ' use IO::Uncompress::UnXz 2.092 ;'; eval ' use IO::Uncompress::UnXz 2.093 ;';
eval ' use IO::Uncompress::UnZstd 2.092 ;'; eval ' use IO::Uncompress::UnZstd 2.093 ;';
eval ' use IO::Uncompress::UnLzip 2.092 ;'; eval ' use IO::Uncompress::UnLzip 2.093 ;';
} }
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, @_);
} }
skipping to change at line 379 skipping to change at line 379
The parameter, C<$input_filename_or_reference>, is used to define the The parameter, C<$input_filename_or_reference>, is used to define the
source of the compressed data. source of the compressed data.
It can take one of the following forms: It can take one of the following forms:
=over 5 =over 5
=item A filename =item A filename
If the <$input_filename_or_reference> parameter is a simple scalar, it is If the C<$input_filename_or_reference> parameter is a simple scalar, it is
assumed to be a filename. This file will be opened for reading and the assumed to be a filename. This file will be opened for reading and the
input data will be read from it. input data will be read from it.
=item A filehandle =item A filehandle
If the C<$input_filename_or_reference> parameter is a filehandle, the input If the C<$input_filename_or_reference> parameter is a filehandle, the input
data will be read from it. The string '-' can be used as an alias for data will be read from it. The string '-' can be used as an alias for
standard input. standard input.
=item A scalar reference =item A scalar reference
 End of changes. 7 change blocks. 
22 lines changed or deleted 22 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)