In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/97613388b7d972090c4b9a1c3802e0f75992ee70?hp=439cdf38ae50bdfe6ca11c86ccc3917d6b56ec45>
- Log ----------------------------------------------------------------- commit 97613388b7d972090c4b9a1c3802e0f75992ee70 Author: Florian Ragwitz <[email protected]> Date: Sat Jul 24 17:24:49 2010 +0200 perldelta up to a095c4ee M pod/perl5134delta.pod commit a095c4ee7f3ca11523fa42c70fde0791ffa0dbbb Author: Florian Ragwitz <[email protected]> Date: Sat Jul 24 16:55:58 2010 +0200 Update Maintainers.pl for the Compress modules M Porting/Maintainers.pl commit 315f9eeab4f1bbcc1f1b259d80d5db3a05952456 Author: Paul <p...@paul-desktop.(none)> Date: Sat Jul 24 13:07:29 2010 +0100 Compress 2.030 M cpan/Compress-Raw-Bzip2/Changes M cpan/Compress-Raw-Bzip2/README M cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm M cpan/Compress-Raw-Bzip2/pod/FAQ.pod M cpan/Compress-Raw-Bzip2/t/000prereq.t M cpan/Compress-Raw-Zlib/Changes M cpan/Compress-Raw-Zlib/Makefile.PL M cpan/Compress-Raw-Zlib/README M cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm M cpan/Compress-Raw-Zlib/pod/FAQ.pod M cpan/IO-Compress/Changes M cpan/IO-Compress/Makefile.PL M cpan/IO-Compress/README M cpan/IO-Compress/lib/Compress/Zlib.pm M cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm M cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm M cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm M cpan/IO-Compress/lib/IO/Compress/Base.pm M cpan/IO-Compress/lib/IO/Compress/Base/Common.pm M cpan/IO-Compress/lib/IO/Compress/Bzip2.pm M cpan/IO-Compress/lib/IO/Compress/Deflate.pm M cpan/IO-Compress/lib/IO/Compress/Gzip.pm M cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm M cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm M cpan/IO-Compress/lib/IO/Compress/Zip.pm M cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm M cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm M cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm M cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm M cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm M cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm M cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm M cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm M cpan/IO-Compress/lib/IO/Uncompress/Base.pm M cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm M cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm M cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm M cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm M cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm M cpan/IO-Compress/t/000prereq.t M cpan/IO-Compress/t/compress/multi.pl ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 6 +- cpan/Compress-Raw-Bzip2/Changes | 4 + cpan/Compress-Raw-Bzip2/README | 6 +- cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm | 2 +- cpan/Compress-Raw-Bzip2/pod/FAQ.pod | 2 +- cpan/Compress-Raw-Bzip2/t/000prereq.t | 2 +- cpan/Compress-Raw-Zlib/Changes | 8 ++ cpan/Compress-Raw-Zlib/Makefile.PL | 2 +- cpan/Compress-Raw-Zlib/README | 6 +- cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm | 2 +- cpan/Compress-Raw-Zlib/pod/FAQ.pod | 2 +- cpan/IO-Compress/Changes | 13 +++ cpan/IO-Compress/Makefile.PL | 2 +- cpan/IO-Compress/README | 6 +- cpan/IO-Compress/lib/Compress/Zlib.pm | 12 +- cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm | 6 +- .../IO-Compress/lib/IO/Compress/Adapter/Deflate.pm | 6 +- .../lib/IO/Compress/Adapter/Identity.pm | 4 +- cpan/IO-Compress/lib/IO/Compress/Base.pm | 4 +- cpan/IO-Compress/lib/IO/Compress/Base/Common.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Bzip2.pm | 10 +- cpan/IO-Compress/lib/IO/Compress/Deflate.pm | 10 +- cpan/IO-Compress/lib/IO/Compress/Gzip.pm | 12 +- cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm | 12 +- cpan/IO-Compress/lib/IO/Compress/Zip.pm | 44 +++++---- cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm | 2 +- cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm | 4 +- .../lib/IO/Uncompress/Adapter/Bunzip2.pm | 6 +- .../lib/IO/Uncompress/Adapter/Identity.pm | 6 +- .../lib/IO/Uncompress/Adapter/Inflate.pm | 6 +- cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm | 18 ++-- .../IO-Compress/lib/IO/Uncompress/AnyUncompress.pm | 34 ++++---- cpan/IO-Compress/lib/IO/Uncompress/Base.pm | 6 +- cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm | 10 +- cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm | 14 ++-- cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm | 8 +- cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm | 10 +- cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm | 100 ++++++++++++++------ cpan/IO-Compress/t/000prereq.t | 2 +- cpan/IO-Compress/t/compress/multi.pl | 9 +- pod/perl5134delta.pod | 17 +++- 43 files changed, 262 insertions(+), 179 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 09a2408..2c26d3d 100644 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -316,7 +316,7 @@ use File::Glob qw(:case); 'Compress::Raw::Bzip2' => { 'MAINTAINER' => 'pmqs', - 'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.027.tar.gz', + 'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.030.tar.gz', 'FILES' => q[cpan/Compress-Raw-Bzip2], 'EXCLUDED' => [ qr{^t/Test/}, qw( bzip2-src/bzip2-cpp.patch @@ -328,7 +328,7 @@ use File::Glob qw(:case); 'Compress::Raw::Zlib' => { 'MAINTAINER' => 'pmqs', - 'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.027.tar.gz', + 'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.030.tar.gz', 'FILES' => q[cpan/Compress-Raw-Zlib], 'EXCLUDED' => [ qr{^t/Test/}, @@ -745,7 +745,7 @@ use File::Glob qw(:case); 'IO-Compress' => { 'MAINTAINER' => 'pmqs', - 'DISTRIBUTION' => 'PMQS/IO-Compress-2.027.tar.gz', + 'DISTRIBUTION' => 'PMQS/IO-Compress-2.030.tar.gz', 'FILES' => q[cpan/IO-Compress], 'EXCLUDED' => [ qr{t/Test/} ], 'UPSTREAM' => 'cpan', diff --git a/cpan/Compress-Raw-Bzip2/Changes b/cpan/Compress-Raw-Bzip2/Changes index e4d1f18..6965224 100644 --- a/cpan/Compress-Raw-Bzip2/Changes +++ b/cpan/Compress-Raw-Bzip2/Changes @@ -1,6 +1,10 @@ CHANGES ------- + 2.030 22 July 2010 + + * No Changes + 2.027 24 April 2010 * No Changes diff --git a/cpan/Compress-Raw-Bzip2/README b/cpan/Compress-Raw-Bzip2/README index 3f2d8ab..a8a5c3b 100644 --- a/cpan/Compress-Raw-Bzip2/README +++ b/cpan/Compress-Raw-Bzip2/README @@ -1,9 +1,9 @@ Compress-Raw-Bzip2 - Version 2.027 + Version 2.030 - 7th April 2010 + 22nd July 2010 Copyright (c) 2005-2010 Paul Marquess. All rights reserved. This program is free software; you can redistribute it @@ -164,7 +164,7 @@ To help me help you, I need all of the following information: If you haven't installed Compress-Raw-Bzip2 then search Compress::Raw::Bzip2.pm for a line like this: - $VERSION = "2.027" ; + $VERSION = "2.030" ; c. The version of bzip2 you have used. If you have successfully installed Compress-Raw-Bzip2, this one-liner diff --git a/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm b/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm index 29f2a0b..8797075 100644 --- a/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm +++ b/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm @@ -12,7 +12,7 @@ use Carp ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD); -$VERSION = '2.027'; +$VERSION = '2.030'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/Compress-Raw-Bzip2/pod/FAQ.pod b/cpan/Compress-Raw-Bzip2/pod/FAQ.pod index 6bfd5f8..3c7e9e5 100644 --- a/cpan/Compress-Raw-Bzip2/pod/FAQ.pod +++ b/cpan/Compress-Raw-Bzip2/pod/FAQ.pod @@ -39,7 +39,7 @@ available See previous FAQ item. -If the C<Archive::Tar> module is installed and either the C<uncompress> or +If the C<Archive::Tar> module is instaled and either the C<uncompress> or C<gunzip> programs are available, you can use one of these workarounds to read C<.tar.Z> files. diff --git a/cpan/Compress-Raw-Bzip2/t/000prereq.t b/cpan/Compress-Raw-Bzip2/t/000prereq.t index 6c659b3..a6c05bd 100644 --- a/cpan/Compress-Raw-Bzip2/t/000prereq.t +++ b/cpan/Compress-Raw-Bzip2/t/000prereq.t @@ -19,7 +19,7 @@ BEGIN if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - my $VERSION = '2.027'; + my $VERSION = '2.030'; my @NAMES = qw( ); diff --git a/cpan/Compress-Raw-Zlib/Changes b/cpan/Compress-Raw-Zlib/Changes index 8c51b10..74e1da6 100644 --- a/cpan/Compress-Raw-Zlib/Changes +++ b/cpan/Compress-Raw-Zlib/Changes @@ -1,6 +1,14 @@ CHANGES ------- + 2.030 22 July 2010 + + * Ran the zlib2ansi script against the files in zlib-src. + Thanks to Nicholas Clark for the reminder. + + * Added "-DNO_VIZ" to DEFINE in Makefile.PL + [RT #65293] + 2.027 24 April 2010 * Updated to include zlib 1.2.5 diff --git a/cpan/Compress-Raw-Zlib/Makefile.PL b/cpan/Compress-Raw-Zlib/Makefile.PL index aa6f5c0..d999cb4 100644 --- a/cpan/Compress-Raw-Zlib/Makefile.PL +++ b/cpan/Compress-Raw-Zlib/Makefile.PL @@ -66,7 +66,7 @@ WriteMakefile( NAME => 'Compress::Raw::Zlib', VERSION_FROM => 'lib/Compress/Raw/Zlib.pm', INC => "-I$ZLIB_INCLUDE" , - DEFINE => "$OLD_ZLIB $WALL -DGZIP_OS_CODE=$GZIP_OS_CODE $USE_PPPORT_H" , + DEFINE => "-DNO_VIZ $OLD_ZLIB $WALL -DGZIP_OS_CODE=$GZIP_OS_CODE $USE_PPPORT_H" , XS => { 'Zlib.xs' => 'Zlib.c'}, 'depend' => { 'Makefile' => 'config.in' }, 'clean' => { FILES => '*.c constants.h constants.xs' }, diff --git a/cpan/Compress-Raw-Zlib/README b/cpan/Compress-Raw-Zlib/README index 0762956..5c1f5ae 100644 --- a/cpan/Compress-Raw-Zlib/README +++ b/cpan/Compress-Raw-Zlib/README @@ -1,9 +1,9 @@ Compress-Raw-Zlib - Version 2.027 + Version 2.030 - 7th April 2010 + 22nd July 2010 Copyright (c) 2005-2010 Paul Marquess. All rights reserved. This program is free software; you can redistribute it @@ -355,7 +355,7 @@ To help me help you, I need all of the following information: If you haven't installed Compress-Raw-Zlib then search Compress::Raw::Zlib.pm for a line like this: - $VERSION = "2.027" ; + $VERSION = "2.030" ; c. The version of zlib you have used. If you have successfully installed Compress-Raw-Zlib, this one-liner diff --git a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm index e9bf39d..e6e15c9 100644 --- a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm +++ b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm @@ -13,7 +13,7 @@ use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD); -$VERSION = '2.027_01'; +$VERSION = '2.030'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/Compress-Raw-Zlib/pod/FAQ.pod b/cpan/Compress-Raw-Zlib/pod/FAQ.pod index 267e6f3..716ddb7 100644 --- a/cpan/Compress-Raw-Zlib/pod/FAQ.pod +++ b/cpan/Compress-Raw-Zlib/pod/FAQ.pod @@ -39,7 +39,7 @@ available See previous FAQ item. -If the C<Archive::Tar> module is installed and either the C<uncompress> or +If the C<Archive::Tar> module is instaled and either the C<uncompress> or C<gunzip> programs are available, you can use one of these workarounds to read C<.tar.Z> files. diff --git a/cpan/IO-Compress/Changes b/cpan/IO-Compress/Changes index 719eab8..f61463a 100644 --- a/cpan/IO-Compress/Changes +++ b/cpan/IO-Compress/Changes @@ -1,6 +1,19 @@ CHANGES ------- + 2.030 22 July 2010 + + * IO::Compress::Zip + - Updates to documentation. + - Changes default value for ExtAttr on Unix to 0100644 + + * IO::Uncompress::Unzip + Reworked the "Name" option and examples in the pod. + + * IO::Uncompress::Base + Fixed problem with nextStream not returning 0 when there is no + next stream and Transparent is false. + 2.027 24 April 2010 * Compress::Zlib diff --git a/cpan/IO-Compress/Makefile.PL b/cpan/IO-Compress/Makefile.PL index d82addd..e18869a 100644 --- a/cpan/IO-Compress/Makefile.PL +++ b/cpan/IO-Compress/Makefile.PL @@ -3,7 +3,7 @@ use strict ; require 5.004 ; -$::VERSION = '2.027' ; +$::VERSION = '2.030' ; use private::MakeUtil; use ExtUtils::MakeMaker 5.16 ; diff --git a/cpan/IO-Compress/README b/cpan/IO-Compress/README index f4ee4c3..4b1612f 100644 --- a/cpan/IO-Compress/README +++ b/cpan/IO-Compress/README @@ -1,9 +1,9 @@ IO-Compress - Version 2.027 + Version 2.030 - 7th April 2010 + 22nd July 2010 Copyright (c) 1995-2010 Paul Marquess. All rights reserved. This program is free software; you can redistribute it @@ -89,7 +89,7 @@ To help me help you, I need all of the following information: If you haven't installed IO-Compress then search IO::Compress::Gzip.pm for a line like this: - $VERSION = "2.027" ; + $VERSION = "2.030" ; 2. If you are having problems building IO-Compress, send me a complete log of what happened. Start by unpacking the IO-Compress diff --git a/cpan/IO-Compress/lib/Compress/Zlib.pm b/cpan/IO-Compress/lib/Compress/Zlib.pm index 0f3e4bc..d4a5650 100644 --- a/cpan/IO-Compress/lib/Compress/Zlib.pm +++ b/cpan/IO-Compress/lib/Compress/Zlib.pm @@ -7,17 +7,17 @@ use Carp ; use IO::Handle ; use Scalar::Util qw(dualvar); -use IO::Compress::Base::Common 2.027 ; -use Compress::Raw::Zlib 2.027 ; -use IO::Compress::Gzip 2.027 ; -use IO::Uncompress::Gunzip 2.027 ; +use IO::Compress::Base::Common 2.030 ; +use Compress::Raw::Zlib 2.030 ; +use IO::Compress::Gzip 2.030 ; +use IO::Uncompress::Gunzip 2.030 ; use strict ; use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.027'; +$VERSION = '2.030'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -451,7 +451,7 @@ sub inflate package Compress::Zlib ; -use IO::Compress::Gzip::Constants 2.027 ; +use IO::Compress::Gzip::Constants 2.030 ; sub memGzip($) { diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm index 4cc9697..7f13b15 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm @@ -4,13 +4,13 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status); +use IO::Compress::Base::Common 2.030 qw(:Status); #use Compress::Bzip2 ; -use Compress::Raw::Bzip2 2.027 ; +use Compress::Raw::Bzip2 2.030 ; our ($VERSION); -$VERSION = '2.027'; +$VERSION = '2.030'; sub mkCompObject { diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm index 36a5dcd..f586a6e 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm @@ -4,12 +4,12 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status); +use IO::Compress::Base::Common 2.030 qw(:Status); -use Compress::Raw::Zlib 2.027 qw(Z_OK Z_FINISH MAX_WBITS) ; +use Compress::Raw::Zlib 2.030 qw(Z_OK Z_FINISH MAX_WBITS) ; our ($VERSION); -$VERSION = '2.027'; +$VERSION = '2.030'; sub mkCompObject { diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm index e6d589e..e08ed49 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm @@ -4,10 +4,10 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status); +use IO::Compress::Base::Common 2.030 qw(:Status); our ($VERSION); -$VERSION = '2.027'; +$VERSION = '2.030'; sub mkCompObject { diff --git a/cpan/IO-Compress/lib/IO/Compress/Base.pm b/cpan/IO-Compress/lib/IO/Compress/Base.pm index e47bdba..ed9997d 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Base.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Base.pm @@ -6,7 +6,7 @@ require 5.004 ; use strict ; use warnings; -use IO::Compress::Base::Common 2.027 ; +use IO::Compress::Base::Common 2.030 ; use IO::File ; use Scalar::Util qw(blessed readonly); @@ -20,7 +20,7 @@ use bytes; our (@ISA, $VERSION); @ISA = qw(Exporter IO::File); -$VERSION = '2.027'; +$VERSION = '2.030'; #Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16. diff --git a/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm b/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm index 5c776bb..56f3741 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Base/Common.pm @@ -11,7 +11,7 @@ use File::GlobMapper; require Exporter; our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE); @ISA = qw(Exporter); -$VERSION = '2.027'; +$VERSION = '2.030'; @EXPORT = qw( isaFilehandle isaFilename whatIsInput whatIsOutput isaFileGlobString cleanFileGlobString oneTarget diff --git a/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm b/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm index 829e0de..2a4e041 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm @@ -5,16 +5,16 @@ use warnings; use bytes; require Exporter ; -use IO::Compress::Base 2.027 ; +use IO::Compress::Base 2.030 ; -use IO::Compress::Base::Common 2.027 qw(createSelfTiedObject); -use IO::Compress::Adapter::Bzip2 2.027 ; +use IO::Compress::Base::Common 2.030 qw(createSelfTiedObject); +use IO::Compress::Adapter::Bzip2 2.030 ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error); -$VERSION = '2.027'; +$VERSION = '2.030'; $Bzip2Error = ''; @ISA = qw(Exporter IO::Compress::Base); @@ -51,7 +51,7 @@ sub getExtraParams { my $self = shift ; - use IO::Compress::Base::Common 2.027 qw(:Parse); + use IO::Compress::Base::Common 2.030 qw(:Parse); return ( 'BlockSize100K' => [0, 1, Parse_unsigned, 1], diff --git a/cpan/IO-Compress/lib/IO/Compress/Deflate.pm b/cpan/IO-Compress/lib/IO/Compress/Deflate.pm index be29fb1..58b61ab 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Deflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Deflate.pm @@ -6,16 +6,16 @@ use bytes; require Exporter ; -use IO::Compress::RawDeflate 2.027 ; +use IO::Compress::RawDeflate 2.030 ; -use Compress::Raw::Zlib 2.027 ; -use IO::Compress::Zlib::Constants 2.027 ; -use IO::Compress::Base::Common 2.027 qw(createSelfTiedObject); +use Compress::Raw::Zlib 2.030 ; +use IO::Compress::Zlib::Constants 2.030 ; +use IO::Compress::Base::Common 2.030 qw(createSelfTiedObject); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError); -$VERSION = '2.027'; +$VERSION = '2.030'; $DeflateError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/cpan/IO-Compress/lib/IO/Compress/Gzip.pm b/cpan/IO-Compress/lib/IO/Compress/Gzip.pm index 01d4b14..0e6ea99 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Gzip.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Gzip.pm @@ -8,12 +8,12 @@ use warnings; use bytes; -use IO::Compress::RawDeflate 2.027 ; +use IO::Compress::RawDeflate 2.030 ; -use Compress::Raw::Zlib 2.027 ; -use IO::Compress::Base::Common 2.027 qw(:Status :Parse createSelfTiedObject); -use IO::Compress::Gzip::Constants 2.027 ; -use IO::Compress::Zlib::Extra 2.027 ; +use Compress::Raw::Zlib 2.030 ; +use IO::Compress::Base::Common 2.030 qw(:Status :Parse createSelfTiedObject); +use IO::Compress::Gzip::Constants 2.030 ; +use IO::Compress::Zlib::Extra 2.030 ; BEGIN { @@ -27,7 +27,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError); -$VERSION = '2.027'; +$VERSION = '2.030'; $GzipError = '' ; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm index 0d57db6..335b7d9 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm @@ -9,7 +9,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names); our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE); -$VERSION = '2.027'; +$VERSION = '2.030'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm b/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm index 0acf43d..bec40e0 100644 --- a/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm @@ -7,16 +7,16 @@ use warnings; use bytes; -use IO::Compress::Base 2.027 ; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); -use IO::Compress::Adapter::Deflate 2.027 ; +use IO::Compress::Base 2.030 ; +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); +use IO::Compress::Adapter::Deflate 2.030 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError); -$VERSION = '2.027'; +$VERSION = '2.030'; $RawDeflateError = ''; @ISA = qw(Exporter IO::Compress::Base); @@ -142,8 +142,8 @@ sub getZlibParams { my $self = shift ; - use IO::Compress::Base::Common 2.027 qw(:Parse); - use Compress::Raw::Zlib 2.027 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); + use IO::Compress::Base::Common 2.030 qw(:Parse); + use Compress::Raw::Zlib 2.030 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); return ( diff --git a/cpan/IO-Compress/lib/IO/Compress/Zip.pm b/cpan/IO-Compress/lib/IO/Compress/Zip.pm index b235f7f..00f4ed9 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zip.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zip.pm @@ -4,26 +4,26 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); -use IO::Compress::RawDeflate 2.027 ; -use IO::Compress::Adapter::Deflate 2.027 ; -use IO::Compress::Adapter::Identity 2.027 ; -use IO::Compress::Zlib::Extra 2.027 ; -use IO::Compress::Zip::Constants 2.027 ; +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); +use IO::Compress::RawDeflate 2.030 ; +use IO::Compress::Adapter::Deflate 2.030 ; +use IO::Compress::Adapter::Identity 2.030 ; +use IO::Compress::Zlib::Extra 2.030 ; +use IO::Compress::Zip::Constants 2.030 ; -use Compress::Raw::Zlib 2.027 qw(crc32) ; +use Compress::Raw::Zlib 2.030 qw(crc32) ; BEGIN { eval { require IO::Compress::Adapter::Bzip2 ; - import IO::Compress::Adapter::Bzip2 2.027 ; + import IO::Compress::Adapter::Bzip2 2.030 ; require IO::Compress::Bzip2 ; - import IO::Compress::Bzip2 2.027 ; + import IO::Compress::Bzip2 2.030 ; } ; # eval { require IO::Compress::Adapter::Lzma ; # import IO::Compress::Adapter::Lzma 2.020 ; # require IO::Compress::Lzma ; -# import IO::Compress::Lzma 2.027 ; +# import IO::Compress::Lzma 2.030 ; # } ; } @@ -32,7 +32,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError); -$VERSION = '2.027'; +$VERSION = '2.030'; $ZipError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); @@ -156,7 +156,7 @@ sub mkHeader my $extFileAttr = 0 ; # This code assumes Unix. - $extFileAttr = 0666 << 16 + $extFileAttr = 0100644 << 16 if $osCode == ZIP_OS_CODE_UNIX ; if (*$self->{ZipData}{Zip64}) { @@ -513,8 +513,8 @@ sub getExtraParams { my $self = shift ; - use IO::Compress::Base::Common 2.027 qw(:Parse); - use Compress::Raw::Zlib 2.027 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); + use IO::Compress::Base::Common 2.030 qw(:Parse); + use Compress::Raw::Zlib 2.030 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); my @Bzip2 = (); @@ -540,7 +540,7 @@ sub getExtraParams 'exUnix2' => [0, 1, Parse_any, undef], 'ExtAttr' => [0, 1, Parse_any, $Compress::Raw::Zlib::gzip_os_code == 3 - ? 0666 << 16 + ? 0100644 << 16 : 0], 'OS_Code' => [0, 1, Parse_unsigned, $Compress::Raw::Zlib::gzip_os_code], @@ -1058,15 +1058,21 @@ This parameter defaults to 0. =item C<< Name => $string >> -Stores the contents of C<$string> in the zip filename header field. If -C<Name> is not specified, no zip filename field will be created. +Stores the contents of C<$string> in the zip filename header field. + +If C<Name> is not specified and the C<$input> parameter is a filename that +will be used for the zip filename header field. + +If C<Name> is not specified and the C<$input> parameter is not a filename, +no zip filename field will be created. =item C<< Time => $number >> Sets the last modified time field in the zip header to $number. This field defaults to the time the C<IO::Compress::Zip> object was created -if this option is not specified. +if this option is not specified and the C<$input> parameter is not a +filename. =item C<< ExtAttr => $attr >> @@ -1075,7 +1081,7 @@ header of the zip file. This is a 4 byte field. If you are running a Unix derivative this value defaults to - 0666 << 16 + 0100644 << 16 This should allow read/write access to any files that are extracted from the zip file/buffer. diff --git a/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm index 2166fb1..e843c59 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm @@ -7,7 +7,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS); -$VERSION = '2.027'; +$VERSION = '2.030'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm index bc98dff..af5aee5 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm @@ -9,7 +9,7 @@ require Exporter; our ($VERSION, @ISA, @EXPORT); -$VERSION = '2.027'; +$VERSION = '2.030'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm b/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm index f36c86f..0c21887 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm @@ -8,9 +8,9 @@ use bytes; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.027'; +$VERSION = '2.030'; -use IO::Compress::Gzip::Constants 2.027 ; +use IO::Compress::Gzip::Constants 2.030 ; sub ExtraFieldError { diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm index a325365..913a0a7 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm @@ -4,12 +4,12 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status); +use IO::Compress::Base::Common 2.030 qw(:Status); -use Compress::Raw::Bzip2 2.027 ; +use Compress::Raw::Bzip2 2.030 ; our ($VERSION, @ISA); -$VERSION = '2.027'; +$VERSION = '2.030'; sub mkUncompObject { diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm index 2ba1a62..c4671dc 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm @@ -4,13 +4,13 @@ use warnings; use strict; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status); +use IO::Compress::Base::Common 2.030 qw(:Status); our ($VERSION); -$VERSION = '2.027'; +$VERSION = '2.030'; -use Compress::Raw::Zlib 2.027 (); +use Compress::Raw::Zlib 2.030 (); sub mkUncompObject { diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm index 4dffd66..1978852 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm @@ -4,11 +4,11 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status); -use Compress::Raw::Zlib 2.027 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); +use IO::Compress::Base::Common 2.030 qw(:Status); +use Compress::Raw::Zlib 2.030 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); our ($VERSION); -$VERSION = '2.027'; +$VERSION = '2.030'; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm index 0d01f7b..37d2b16 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm @@ -6,22 +6,22 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(createSelfTiedObject); +use IO::Compress::Base::Common 2.030 qw(createSelfTiedObject); -use IO::Uncompress::Adapter::Inflate 2.027 (); +use IO::Uncompress::Adapter::Inflate 2.030 (); -use IO::Uncompress::Base 2.027 ; -use IO::Uncompress::Gunzip 2.027 ; -use IO::Uncompress::Inflate 2.027 ; -use IO::Uncompress::RawInflate 2.027 ; -use IO::Uncompress::Unzip 2.027 ; +use IO::Uncompress::Base 2.030 ; +use IO::Uncompress::Gunzip 2.030 ; +use IO::Uncompress::Inflate 2.030 ; +use IO::Uncompress::RawInflate 2.030 ; +use IO::Uncompress::Unzip 2.030 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); -$VERSION = '2.027'; +$VERSION = '2.030'; $AnyInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -48,7 +48,7 @@ sub anyinflate sub getExtraParams { - use IO::Compress::Base::Common 2.027 qw(:Parse); + use IO::Compress::Base::Common 2.030 qw(:Parse); return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ; } diff --git a/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm b/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm index 206a0ed..c7d5031 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm @@ -4,16 +4,16 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(createSelfTiedObject); +use IO::Compress::Base::Common 2.030 qw(createSelfTiedObject); -use IO::Uncompress::Base 2.027 ; +use IO::Uncompress::Base 2.030 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); -$VERSION = '2.027'; +$VERSION = '2.030'; $AnyUncompressError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -27,22 +27,22 @@ Exporter::export_ok_tags('all'); BEGIN { - eval ' use IO::Uncompress::Adapter::Inflate 2.027 ;'; - eval ' use IO::Uncompress::Adapter::Bunzip2 2.027 ;'; - eval ' use IO::Uncompress::Adapter::LZO 2.027 ;'; - eval ' use IO::Uncompress::Adapter::Lzf 2.027 ;'; + eval ' use IO::Uncompress::Adapter::Inflate 2.030 ;'; + eval ' use IO::Uncompress::Adapter::Bunzip2 2.030 ;'; + eval ' use IO::Uncompress::Adapter::LZO 2.030 ;'; + eval ' use IO::Uncompress::Adapter::Lzf 2.030 ;'; eval ' use IO::Uncompress::Adapter::UnLzma 2.020 ;'; eval ' use IO::Uncompress::Adapter::UnXz 2.020 ;'; - eval ' use IO::Uncompress::Bunzip2 2.027 ;'; - eval ' use IO::Uncompress::UnLzop 2.027 ;'; - eval ' use IO::Uncompress::Gunzip 2.027 ;'; - eval ' use IO::Uncompress::Inflate 2.027 ;'; - eval ' use IO::Uncompress::RawInflate 2.027 ;'; - eval ' use IO::Uncompress::Unzip 2.027 ;'; - eval ' use IO::Uncompress::UnLzf 2.027 ;'; - eval ' use IO::Uncompress::UnLzma 2.027 ;'; - eval ' use IO::Uncompress::UnXz 2.027 ;'; + eval ' use IO::Uncompress::Bunzip2 2.030 ;'; + eval ' use IO::Uncompress::UnLzop 2.030 ;'; + eval ' use IO::Uncompress::Gunzip 2.030 ;'; + eval ' use IO::Uncompress::Inflate 2.030 ;'; + eval ' use IO::Uncompress::RawInflate 2.030 ;'; + eval ' use IO::Uncompress::Unzip 2.030 ;'; + eval ' use IO::Uncompress::UnLzf 2.030 ;'; + eval ' use IO::Uncompress::UnLzma 2.030 ;'; + eval ' use IO::Uncompress::UnXz 2.030 ;'; } sub new @@ -60,7 +60,7 @@ sub anyuncompress sub getExtraParams { - use IO::Compress::Base::Common 2.027 qw(:Parse); + use IO::Compress::Base::Common 2.030 qw(:Parse); return ( 'RawInflate' => [1, 1, Parse_boolean, 0] , 'UnLzma' => [1, 1, Parse_boolean, 0] ) ; } diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm b/cpan/IO-Compress/lib/IO/Uncompress/Base.pm index e73bb9d..2814163 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Base.pm @@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter IO::File); -$VERSION = '2.027'; +$VERSION = '2.030'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; -use IO::Compress::Base::Common 2.027 ; +use IO::Compress::Base::Common 2.030 ; #use Parse::Parameters ; use IO::File ; @@ -980,7 +980,7 @@ sub gotoNextStream #*$self->{EndStream} = 0 ; if ( ! defined $magic) { - if (! *$self->{Transparent} ) + if (! *$self->{Transparent} || $self->eof()) { *$self->{EndStream} = 1 ; return 0; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm b/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm index a96c023..288ead1 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm @@ -4,15 +4,15 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); -use IO::Uncompress::Base 2.027 ; -use IO::Uncompress::Adapter::Bunzip2 2.027 ; +use IO::Uncompress::Base 2.030 ; +use IO::Uncompress::Adapter::Bunzip2 2.030 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error); -$VERSION = '2.027'; +$VERSION = '2.030'; $Bunzip2Error = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -40,7 +40,7 @@ sub getExtraParams { my $self = shift ; - use IO::Compress::Base::Common 2.027 qw(:Parse); + use IO::Compress::Base::Common 2.030 qw(:Parse); return ( 'Verbosity' => [1, 1, Parse_boolean, 0], diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm b/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm index d135141..4b10f4b 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm @@ -9,12 +9,12 @@ use strict ; use warnings; use bytes; -use IO::Uncompress::RawInflate 2.027 ; +use IO::Uncompress::RawInflate 2.030 ; -use Compress::Raw::Zlib 2.027 qw( crc32 ) ; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); -use IO::Compress::Gzip::Constants 2.027 ; -use IO::Compress::Zlib::Extra 2.027 ; +use Compress::Raw::Zlib 2.030 qw( crc32 ) ; +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); +use IO::Compress::Gzip::Constants 2.030 ; +use IO::Compress::Zlib::Extra 2.030 ; require Exporter ; @@ -28,7 +28,7 @@ Exporter::export_ok_tags('all'); $GunzipError = ''; -$VERSION = '2.027'; +$VERSION = '2.030'; sub new { @@ -47,7 +47,7 @@ sub gunzip sub getExtraParams { - use IO::Compress::Base::Common 2.027 qw(:Parse); + use IO::Compress::Base::Common 2.030 qw(:Parse); return ( 'ParseExtra' => [1, 1, Parse_boolean, 0] ) ; } diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm index 86abb50..27c1d85 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm @@ -5,15 +5,15 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); -use IO::Compress::Zlib::Constants 2.027 ; +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); +use IO::Compress::Zlib::Constants 2.030 ; -use IO::Uncompress::RawInflate 2.027 ; +use IO::Uncompress::RawInflate 2.030 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError); -$VERSION = '2.027'; +$VERSION = '2.030'; $InflateError = ''; @ISA = qw( Exporter IO::Uncompress::RawInflate ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm index 609928f..12e915b 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm @@ -5,16 +5,16 @@ use strict ; use warnings; use bytes; -use Compress::Raw::Zlib 2.027 ; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); +use Compress::Raw::Zlib 2.030 ; +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); -use IO::Uncompress::Base 2.027 ; -use IO::Uncompress::Adapter::Inflate 2.027 ; +use IO::Uncompress::Base 2.030 ; +use IO::Uncompress::Adapter::Inflate 2.030 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError); -$VERSION = '2.027'; +$VERSION = '2.030'; $RawInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm b/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm index 17cc78d..fe75213 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm @@ -8,14 +8,14 @@ use strict ; use warnings; use bytes; -use IO::Uncompress::RawInflate 2.027 ; -use IO::Compress::Base::Common 2.027 qw(:Status createSelfTiedObject); -use IO::Uncompress::Adapter::Inflate 2.027 ; -use IO::Uncompress::Adapter::Identity 2.027 ; -use IO::Compress::Zlib::Extra 2.027 ; -use IO::Compress::Zip::Constants 2.027 ; +use IO::Uncompress::RawInflate 2.030 ; +use IO::Compress::Base::Common 2.030 qw(:Status createSelfTiedObject); +use IO::Uncompress::Adapter::Inflate 2.030 ; +use IO::Uncompress::Adapter::Identity 2.030 ; +use IO::Compress::Zlib::Extra 2.030 ; +use IO::Compress::Zip::Constants 2.030 ; -use Compress::Raw::Zlib 2.027 qw(crc32) ; +use Compress::Raw::Zlib 2.030 qw(crc32) ; BEGIN { @@ -30,7 +30,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup); -$VERSION = '2.027'; +$VERSION = '2.030'; $UnzipError = ''; @ISA = qw(Exporter IO::Uncompress::RawInflate); @@ -63,7 +63,7 @@ sub unzip sub getExtraParams { - use IO::Compress::Base::Common 2.027 qw(:Parse); + use IO::Compress::Base::Common 2.030 qw(:Parse); return ( @@ -1056,54 +1056,57 @@ C<InputLength> option. =head2 Examples -To read the contents of the file C<file1.txt.zip> and write the -uncompressed data to the file C<file1.txt>. +Say you have a zip file, C<file1.zip>, that only contains a +single member, you can read it and write the uncompressed data to the +file C<file1.txt> like this. use strict ; use warnings ; use IO::Uncompress::Unzip qw(unzip $UnzipError) ; - my $input = "file1.txt.zip"; + my $input = "file1.zip"; my $output = "file1.txt"; unzip $input => $output or die "unzip failed: $UnzipError\n"; -To read from an existing Perl filehandle, C<$input>, and write the -uncompressed data to a buffer, C<$buffer>. +If you have a zip file that contains multiple members and want to read a +specific member from the file, say C<"data1">, use the C<Name> option use strict ; use warnings ; use IO::Uncompress::Unzip qw(unzip $UnzipError) ; - use IO::File ; - my $input = new IO::File "<file1.txt.zip" - or die "Cannot open 'file1.txt.zip': $!\n" ; - my $buffer ; - unzip $input => \$buffer + my $input = "file1.zip"; + my $output = "file1.txt"; + unzip $input => $output, Name => "data1" or die "unzip failed: $UnzipError\n"; -To uncompress all files in the directory "/my/home" that match "*.txt.zip" and store the compressed data in the same directory +Alternatively, if you want to read the C<"data1"> member into memory, use +a scalar reference for the C<output> partameter. use strict ; use warnings ; use IO::Uncompress::Unzip qw(unzip $UnzipError) ; - unzip '</my/home/*.txt.zip>' => '</my/home/#1.txt>' + my $input = "file1.zip"; + my $output ; + unzip $input => \$output, Name => "data1" or die "unzip failed: $UnzipError\n"; + # $output now contains the uncompressed data -and if you want to compress each file one at a time, this will do the trick +To read from an existing Perl filehandle, C<$input>, and write the +uncompressed data to a buffer, C<$buffer>. use strict ; use warnings ; use IO::Uncompress::Unzip qw(unzip $UnzipError) ; + use IO::File ; - for my $input ( glob "/my/home/*.txt.zip" ) - { - my $output = $input; - $output =~ s/.zip// ; - unzip $input => $output - or die "Error compressing '$input': $UnzipError\n"; - } + my $input = new IO::File "<file1.zip" + or die "Cannot open 'file1.zip': $!\n" ; + my $buffer ; + unzip $input => \$buffer + or die "unzip failed: $UnzipError\n"; =head1 OO Interface @@ -1165,7 +1168,7 @@ OPTS is a combination of the following options: =item C<< Name => "membername" >> -Create "membername" in the zip file. +Open "membername" from the zip file for reading. =item C<< AutoClose => 0|1 >> @@ -1513,6 +1516,43 @@ Same as doing this See L<IO::Uncompress::Unzip::FAQ|IO::Uncompress::Unzip::FAQ/"Compressed files and Net::FTP"> +=head2 Walking through a zip file + +The code below can be used to traverse a zip file, one compressed data +stream at a time. + + use IO::Uncompress::Unzip qw($UnzipError); + + my $zipfile = "somefile.zip"; + my $u = new IO::Uncompress::Unzip $zipfile + or die "Cannot open $zipfile: $UnzipError"; + + my $status; + for ($status = 1; ! $u->eof(); $status = $u->nextStream()) + { + + my $name = $u->getHeaderInfo()->{Name}; + warn "Processing member $name\n" ; + + my $buff; + while (($status = $u->read($buff)) > 0) { + # Do something here + } + + last if $status < 0; + } + + die "Error processing $zipfile: $!\n" + if $status < 0 ; + +Each individual compressed data stream is read until the logical +end-of-file is reached. Then C<nextStream> is called. This will skip to the +start of the next compressed data stream and clear the end-of-file flag. + +It is also worth noting that C<nextStream> can be called at any time -- you +don't have to wait until you have exhausted a compressed data stream before +skipping to the next one. + =head1 SEE ALSO L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress:: ... [293 chars truncated] diff --git a/cpan/IO-Compress/t/000prereq.t b/cpan/IO-Compress/t/000prereq.t index cfc7e2e..e98673b 100644 --- a/cpan/IO-Compress/t/000prereq.t +++ b/cpan/IO-Compress/t/000prereq.t @@ -25,7 +25,7 @@ BEGIN if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - my $VERSION = '2.027'; + my $VERSION = '2.030'; my @NAMES = qw( Compress::Raw::Bzip2 Compress::Raw::Zlib diff --git a/cpan/IO-Compress/t/compress/multi.pl b/cpan/IO-Compress/t/compress/multi.pl index 3e9bbfd..c6501f8 100644 --- a/cpan/IO-Compress/t/compress/multi.pl +++ b/cpan/IO-Compress/t/compress/multi.pl @@ -13,7 +13,7 @@ BEGIN { $extra = 1 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - plan tests => 1324 + $extra ; + plan tests => 1828 + $extra ; use_ok('IO::Uncompress::AnyUncompress', qw($AnyUncompressError)) ; @@ -179,7 +179,9 @@ EOM } foreach my $unc ($UncompressClass, 'IO::Uncompress::AnyUncompress') { - title " Testing $CompressClass with $unc nextStream and $i streams, from $fb"; + + foreach my $trans (0, 1) { + title " Testing $CompressClass with $unc nextStream and $i streams, from $fb, Transparent => $trans"; $cc = $output ; if ($fb eq 'filehandle') { @@ -194,7 +196,7 @@ EOM AutoClose => 1, Append => 1, MultiStream => 0, - Transparent => 0) + Transparent => $trans) or diag $$UnError; isa_ok $gz, $UncompressClass, ' $gz' ; @@ -248,6 +250,7 @@ EOM or diag "Stream count is " . $gz->streamCount(); } + } } } } diff --git a/pod/perl5134delta.pod b/pod/perl5134delta.pod index a5283ce..f710e8b 100644 --- a/pod/perl5134delta.pod +++ b/pod/perl5134delta.pod @@ -1,11 +1,8 @@ =encoding utf8 =for rafl -changelogged up to commit 2ea2ea91 +changelogged up to commit a095c4ee * PERL_STATIC_INLINE might want to be mentioned -* perl5db.pl -** what's with the one change but many changelog entries? -** why a new version in the changelog but no version bump? =head1 NAME @@ -109,12 +106,24 @@ L<Carp> now detects incomplete L<caller()|perlfunc/"caller EXPR"> overrides and avoids using bogus C<@DB::args>. This fixes certain cases of C<Bizarre copy of ARRAY> caused by modules overriding C<caller()> incorrectly. +=item C<Compress::Raw::Bzip2> + +Upgraded from version 2.027 to 2.030. + +=item C<Compress::Raw::Zlib> + +Upgraded from version 2.027 to 2.030. + =item C<File::Spec> Upgraded from version 3.31 to 3.31_01. Various issues in L<File::Spec::VMS> have been fixed. +=item C<IO::Compress> + +Upgraded from version 2.027 to 2.030. + =back =head2 Removed Modules and Pragmata -- Perl5 Master Repository
