From 300c1eb6d37d46078d448d6d58938d5a80cd68ff Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 23 Apr 2014 21:46:20 +0000 Subject: (tl)perl 5.18.2 for windows from siep git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm') diff --git a/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm b/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm index f53513a7e48..ccfb69b2bd8 100644 --- a/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm +++ b/Master/tlpkg/tlperl/lib/IO/Uncompress/Bunzip2.pm @@ -4,15 +4,15 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.048 qw(:Status createSelfTiedObject); +use IO::Compress::Base::Common 2.060 qw(:Status ); -use IO::Uncompress::Base 2.048 ; -use IO::Uncompress::Adapter::Bunzip2 2.048 ; +use IO::Uncompress::Base 2.060 ; +use IO::Uncompress::Adapter::Bunzip2 2.060 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error); -$VERSION = '2.048'; +$VERSION = '2.060'; $Bunzip2Error = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -25,26 +25,22 @@ push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ; sub new { my $class = shift ; - my $obj = createSelfTiedObject($class, \$Bunzip2Error); + my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$Bunzip2Error); $obj->_create(undef, 0, @_); } sub bunzip2 { - my $obj = createSelfTiedObject(undef, \$Bunzip2Error); + my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$Bunzip2Error); return $obj->_inf(@_); } sub getExtraParams { - my $self = shift ; - - use IO::Compress::Base::Common 2.048 qw(:Parse); - return ( - 'Verbosity' => [1, 1, Parse_boolean, 0], - 'Small' => [1, 1, Parse_boolean, 0], + 'verbosity' => [IO::Compress::Base::Common::Parse_boolean, 0], + 'small' => [IO::Compress::Base::Common::Parse_boolean, 0], ); } @@ -68,8 +64,8 @@ sub mkUncomp *$self->{Info} = $self->readHeader($magic) or return undef ; - my $Small = $got->value('Small'); - my $Verbosity = $got->value('Verbosity'); + my $Small = $got->getValue('small'); + my $Verbosity = $got->getValue('verbosity'); my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Bunzip2::mkUncompObject( $Small, $Verbosity); -- cgit v1.2.3