"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/IO/Uncompress/AnyInflate.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).

AnyInflate.pm  (IO-Compress-2.092):AnyInflate.pm  (IO-Compress-2.093)
package IO::Uncompress::AnyInflate ; package IO::Uncompress::AnyInflate ;
# for RFC1950, RFC1951 or RFC1952 # for RFC1950, RFC1951 or RFC1952
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::Adapter::Inflate 2.092 (); use IO::Uncompress::Adapter::Inflate 2.093 ();
use IO::Uncompress::Base 2.092 ; use IO::Uncompress::Base 2.093 ;
use IO::Uncompress::Gunzip 2.092 ; use IO::Uncompress::Gunzip 2.093 ;
use IO::Uncompress::Inflate 2.092 ; use IO::Uncompress::Inflate 2.093 ;
use IO::Uncompress::RawInflate 2.092 ; use IO::Uncompress::RawInflate 2.093 ;
use IO::Uncompress::Unzip 2.092 ; use IO::Uncompress::Unzip 2.093 ;
require Exporter ; require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
$VERSION = '2.092'; $VERSION = '2.093';
$AnyInflateError = ''; $AnyInflateError = '';
@ISA = qw(IO::Uncompress::Base Exporter); @ISA = qw(IO::Uncompress::Base Exporter);
@EXPORT_OK = qw( $AnyInflateError anyinflate ) ; @EXPORT_OK = qw( $AnyInflateError anyinflate ) ;
%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.
skipping to change at line 50 skipping to change at line 50
} }
sub anyinflate sub anyinflate
{ {
my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyInfla teError); my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyInfla teError);
return $obj->_inf(@_) ; return $obj->_inf(@_) ;
} }
sub getExtraParams sub getExtraParams
{ {
use IO::Compress::Base::Common 2.092 qw(:Parse); use IO::Compress::Base::Common 2.093 qw(:Parse);
return ( 'rawinflate' => [Parse_boolean, 0] ) ; return ( 'rawinflate' => [Parse_boolean, 0] ) ;
} }
sub ckParams sub ckParams
{ {
my $self = shift ; my $self = shift ;
my $got = shift ; my $got = shift ;
# any always needs both crc32 and adler32 # any always needs both crc32 and adler32
$got->setValue('crc32' => 1); $got->setValue('crc32' => 1);
skipping to change at line 226 skipping to change at line 226
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. 6 change blocks. 
10 lines changed or deleted 10 lines changed or added

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