diff options
Diffstat (limited to 'ext/IO_Compress_Base/lib/IO/Uncompress')
-rw-r--r-- | ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm | 33 | ||||
-rw-r--r-- | ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm | 9 |
2 files changed, 21 insertions, 21 deletions
diff --git a/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm b/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm index 3b8402cea2..8888577a04 100644 --- a/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm +++ b/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm @@ -4,16 +4,16 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.010 qw(createSelfTiedObject); +use IO::Compress::Base::Common 2.011 qw(createSelfTiedObject); -use IO::Uncompress::Base 2.010 ; +use IO::Uncompress::Base 2.011 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); -$VERSION = '2.010'; +$VERSION = '2.011'; $AnyUncompressError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -27,18 +27,18 @@ Exporter::export_ok_tags('all'); BEGIN { - eval ' use IO::Uncompress::Adapter::Inflate 2.010 ;'; - eval ' use IO::Uncompress::Adapter::Bunzip2 2.010 ;'; - eval ' use IO::Uncompress::Adapter::LZO 2.010 ;'; - eval ' use IO::Uncompress::Adapter::Lzf 2.010 ;'; - - eval ' use IO::Uncompress::Bunzip2 2.010 ;'; - eval ' use IO::Uncompress::UnLzop 2.010 ;'; - eval ' use IO::Uncompress::Gunzip 2.010 ;'; - eval ' use IO::Uncompress::Inflate 2.010 ;'; - eval ' use IO::Uncompress::RawInflate 2.010 ;'; - eval ' use IO::Uncompress::Unzip 2.010 ;'; - eval ' use IO::Uncompress::UnLzf 2.010 ;'; + eval ' use IO::Uncompress::Adapter::Inflate 2.011 ;'; + eval ' use IO::Uncompress::Adapter::Bunzip2 2.011 ;'; + eval ' use IO::Uncompress::Adapter::LZO 2.011 ;'; + eval ' use IO::Uncompress::Adapter::Lzf 2.011 ;'; + + eval ' use IO::Uncompress::Bunzip2 2.011 ;'; + eval ' use IO::Uncompress::UnLzop 2.011 ;'; + eval ' use IO::Uncompress::Gunzip 2.011 ;'; + eval ' use IO::Uncompress::Inflate 2.011 ;'; + eval ' use IO::Uncompress::RawInflate 2.011 ;'; + eval ' use IO::Uncompress::Unzip 2.011 ;'; + eval ' use IO::Uncompress::UnLzf 2.011 ;'; } sub new @@ -56,7 +56,7 @@ sub anyuncompress sub getExtraParams { - use IO::Compress::Base::Common 2.010 qw(:Parse); + use IO::Compress::Base::Common 2.011 qw(:Parse); return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ; } @@ -75,7 +75,6 @@ sub ckParams sub mkUncomp { my $self = shift ; - my $class = shift ; my $got = shift ; my $magic ; diff --git a/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm b/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm index adb54c6285..4493042d5a 100644 --- a/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm +++ b/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm @@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter IO::File); -$VERSION = '2.010'; +$VERSION = '2.011'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; -use IO::Compress::Base::Common 2.010 ; +use IO::Compress::Base::Common 2.011 ; #use Parse::Parameters ; use IO::File ; @@ -468,7 +468,7 @@ sub _create return $obj } - my $status = $obj->mkUncomp($class, $got); + my $status = $obj->mkUncomp($got); return undef unless defined $status; @@ -533,7 +533,7 @@ sub _inf my $output = shift ; - my $x = new Validator($class, *$obj->{Error}, $name, $input, $output) + my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output) or return undef ; push @_, $output if $haveOut && $x->{Hash}; @@ -1451,3 +1451,4 @@ Copyright (c) 2005-2008 Paul Marquess. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. + |