diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Compress')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Compress/Raw/Bzip2.pm | 12 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Compress/Raw/Zlib.pm | 18 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Compress/Zlib.pm | 29 |
3 files changed, 32 insertions, 27 deletions
diff --git a/Master/tlpkg/tlperl/lib/Compress/Raw/Bzip2.pm b/Master/tlpkg/tlperl/lib/Compress/Raw/Bzip2.pm index 48f82073355..9aadba333b0 100644 --- a/Master/tlpkg/tlperl/lib/Compress/Raw/Bzip2.pm +++ b/Master/tlpkg/tlperl/lib/Compress/Raw/Bzip2.pm @@ -12,7 +12,7 @@ use Carp ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD); -$VERSION = '2.024'; +$VERSION = '2.033'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -220,7 +220,7 @@ Returns C<BZ_STREAM_END> on success and a C<bzip2> error code on failure. =head1 Uncompression -=head2 ($z, $status) = new Compress::Raw::Bunzip2 $appendOutput, $consumeInput, $small, $limitOutput; +=head2 ($z, $status) = new Compress::Raw::Bunzip2 $appendOutput, $consumeInput, $small, $verbosity, $limitOutput; If successful, it will return the initialised uncompression object, C<$z> and a C<$status> of C<BZ_OK> in a list context. In scalar context it @@ -273,6 +273,12 @@ enabled. This option defaults to false. +=item B<$verbosity> + +This parameter is ignored. + +Defaults to 0. + =back =head2 $status = $z->bzinflate($input, $output); @@ -348,7 +354,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2010 Paul Marquess. All rights reserved. +Copyright (c) 2005-2011 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. diff --git a/Master/tlpkg/tlperl/lib/Compress/Raw/Zlib.pm b/Master/tlpkg/tlperl/lib/Compress/Raw/Zlib.pm index 79c96b76ccd..8b17dcc9f39 100644 --- a/Master/tlpkg/tlperl/lib/Compress/Raw/Zlib.pm +++ b/Master/tlpkg/tlperl/lib/Compress/Raw/Zlib.pm @@ -13,7 +13,7 @@ use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD); -$VERSION = '2.024'; +$VERSION = '2.033'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -60,6 +60,7 @@ $VERSION = eval $VERSION; Z_STREAM_END Z_STREAM_ERROR Z_SYNC_FLUSH + Z_TREES Z_UNKNOWN Z_VERSION_ERROR @@ -563,6 +564,7 @@ Compress::Raw::Zlib - Low-Level Interface to zlib compression library ($i, $status) = new Compress::Raw::Zlib::Inflate( [OPT] ) ; $status = $i->inflate($input, $output [, $eof]) ; $status = $i->inflateSync($input) ; + $i->inflateReset() ; $i->dict_adler() ; $d->crc32() ; $d->adler32() ; @@ -629,7 +631,7 @@ The default is C<Z_DEFAULT_COMPRESSION>. =item B<-Method> Defines the compression method. The only valid value at present (and -the default) is Z_DEFLATED. +the default) is C<Z_DEFLATED>. =item B<-WindowBits> @@ -659,7 +661,7 @@ Defines the strategy used to tune the compression. The valid values are C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED>, C<Z_RLE>, C<Z_FIXED> and C<Z_HUFFMAN_ONLY>. -The default is Z_DEFAULT_STRATEGY. +The default is C<Z_DEFAULT_STRATEGY>. =item B<-Dictionary> @@ -1100,6 +1102,14 @@ Note I<full flush points> are not present by default in compressed data streams. They must have been added explicitly when the data stream was created by calling C<Compress::Deflate::flush> with C<Z_FULL_FLUSH>. +=head2 B<$status = $i-E<gt>inflateReset() > + +This method will reset the inflation object C<$i>. It can be used when you +are uncompressing multiple data streams and want to use the same object to +uncompress each of them. + +Returns C<Z_OK> if successful. + =head2 B<$i-E<gt>dict_adler()> Returns the adler32 value for the dictionary. @@ -1412,7 +1422,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2010 Paul Marquess. All rights reserved. +Copyright (c) 2005-2011 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. diff --git a/Master/tlpkg/tlperl/lib/Compress/Zlib.pm b/Master/tlpkg/tlperl/lib/Compress/Zlib.pm index 9424df63b8b..db206366b51 100644 --- a/Master/tlpkg/tlperl/lib/Compress/Zlib.pm +++ b/Master/tlpkg/tlperl/lib/Compress/Zlib.pm @@ -3,22 +3,21 @@ package Compress::Zlib; require 5.004 ; require Exporter; -use AutoLoader; use Carp ; use IO::Handle ; use Scalar::Util qw(dualvar); -use IO::Compress::Base::Common 2.024 ; -use Compress::Raw::Zlib 2.024 ; -use IO::Compress::Gzip 2.024 ; -use IO::Uncompress::Gunzip 2.024 ; +use IO::Compress::Base::Common 2.033 ; +use Compress::Raw::Zlib 2.033 ; +use IO::Compress::Gzip 2.033 ; +use IO::Uncompress::Gunzip 2.033 ; use strict ; use warnings ; use bytes ; -our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD); +our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.024'; +$VERSION = '2.033'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -46,16 +45,6 @@ BEGIN *zlib_version = \&Compress::Raw::Zlib::zlib_version; } -sub AUTOLOAD { - my($constname); - ($constname = $AUTOLOAD) =~ s/.*:://; - my ($error, $val) = Compress::Raw::Zlib::constant($constname); - Carp::croak $error if $error; - no strict 'refs'; - *{$AUTOLOAD} = sub { $val }; - goto &{$AUTOLOAD}; -} - use constant FLAG_APPEND => 1 ; use constant FLAG_CRC => 2 ; use constant FLAG_ADLER => 4 ; @@ -462,7 +451,7 @@ sub inflate package Compress::Zlib ; -use IO::Compress::Gzip::Constants 2.024 ; +use IO::Compress::Gzip::Constants 2.033 ; sub memGzip($) { @@ -1018,7 +1007,7 @@ carry out in-memory gzip compression. This function is used to uncompress an in-memory gzip file. $dest = Compress::Zlib::memGunzip($buffer) - or die "Cannot uncomprss: $gzerrno\n"; + or die "Cannot uncompress: $gzerrno\n"; If successful, it returns the uncompressed gzip file. Otherwise it returns C<undef> and the C<$gzerrno> variable will store the zlib error @@ -1487,7 +1476,7 @@ See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 1995-2010 Paul Marquess. All rights reserved. +Copyright (c) 1995-2011 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. |