In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6625b4731a37f834cd655039c5b8c19bbed23dba?hp=990354b1ba61c58cc5a3821ce3dea16ac4c1b2c8>
- Log ----------------------------------------------------------------- commit 6625b4731a37f834cd655039c5b8c19bbed23dba Author: Chris 'BinGOs' Williams <[email protected]> Date: Sat Sep 27 13:04:58 2014 +0100 Update IO-Compress to CPAN version 2.066 [DELTA] 2.066 21 Sept 2014 * IO::Uncompress::Gzip Documentation of ExtraFlags stated the XFL values for BEST_COMPRESSION and BEST_SPEED use the values 2 & 4 respectively. They should be 4 & 2. Code for setting XFL was correct. * RT #95494: IO::Uncompress::Gunzip: Can no longer gunzip to in-memory file handle M Porting/Maintainers.pl 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/oneshot.pl commit 1590a3458ab2c49f1dba9e6ba74cd6da22a1cc72 Author: Chris 'BinGOs' Williams <[email protected]> Date: Sat Sep 27 13:03:48 2014 +0100 Update Compress-Raw-Zlib to CPAN version 2.066 [DELTA] 2.066 21 Sept 2014 * Another COW violation [#98069] * misleading nesting/indentation (found by Coverity) [#95405] M Porting/Maintainers.pl M cpan/Compress-Raw-Zlib/Zlib.xs M cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm commit 3ca1f72da58beb39364bbf2a99094f7b7f3de9fd Author: Chris 'BinGOs' Williams <[email protected]> Date: Sat Sep 27 13:01:06 2014 +0100 Update Compress-Raw-Bzip2 to CPAN version 2.066 [DELTA] 2.066 21 Sept 2014 * No Changes M Porting/Maintainers.pl M cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm M cpan/Compress-Raw-Bzip2/t/000prereq.t ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 6 ++-- cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm | 2 +- cpan/Compress-Raw-Bzip2/t/000prereq.t | 2 +- cpan/Compress-Raw-Zlib/Zlib.xs | 6 ++-- cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm | 2 +- 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 | 24 +++++++------- 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 | 38 +++++++++++----------- cpan/IO-Compress/lib/IO/Uncompress/Base.pm | 7 ++-- cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm | 8 ++--- cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm | 12 +++---- 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 | 16 ++++----- cpan/IO-Compress/t/000prereq.t | 2 +- cpan/IO-Compress/t/compress/oneshot.pl | 27 +++++++++++++-- 33 files changed, 159 insertions(+), 135 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 62fd1d6..34d7bb6 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -204,7 +204,7 @@ use File::Glob qw(:case); }, 'Compress::Raw::Bzip2' => { - 'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.064.tar.gz', + 'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.066.tar.gz', 'FILES' => q[cpan/Compress-Raw-Bzip2], 'EXCLUDED' => [ qr{^t/Test/}, @@ -213,7 +213,7 @@ use File::Glob qw(:case); }, 'Compress::Raw::Zlib' => { - 'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.065.tar.gz', + 'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.066.tar.gz', 'FILES' => q[cpan/Compress-Raw-Zlib], 'EXCLUDED' => [ @@ -631,7 +631,7 @@ use File::Glob qw(:case); }, 'IO-Compress' => { - 'DISTRIBUTION' => 'PMQS/IO-Compress-2.064.tar.gz', + 'DISTRIBUTION' => 'PMQS/IO-Compress-2.066.tar.gz', 'FILES' => q[cpan/IO-Compress], 'EXCLUDED' => [ qr{^examples/}, diff --git a/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm b/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm index 037ba43..2d48ded 100644 --- a/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm +++ b/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm @@ -11,7 +11,7 @@ use Carp ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD); -$VERSION = '2.064'; +$VERSION = '2.066'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/Compress-Raw-Bzip2/t/000prereq.t b/cpan/Compress-Raw-Bzip2/t/000prereq.t index df43d67..8c3055c 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.064'; + my $VERSION = '2.066'; my @NAMES = qw( ); diff --git a/cpan/Compress-Raw-Zlib/Zlib.xs b/cpan/Compress-Raw-Zlib/Zlib.xs index 46d4af3..2eb78c0 100644 --- a/cpan/Compress-Raw-Zlib/Zlib.xs +++ b/cpan/Compress-Raw-Zlib/Zlib.xs @@ -1755,7 +1755,7 @@ scan(s, buf, out=NULL, eof=FALSE) croak("Wide character in Compress::Raw::Zlib::InflateScan::scan input parameter"); #endif /* initialise the input buffer */ - s->stream.next_in = (Bytef*)SvPV_nomg_nolen(buf) ; + s->stream.next_in = (Bytef*)SvPV_force_nomg_nolen(buf) ; s->stream.avail_in = SvCUR(buf) ; start_len = s->stream.avail_in ; s->bytesInflated = 0 ; @@ -1841,8 +1841,8 @@ scan(s, buf, out=NULL, eof=FALSE) SvCUR_set(buf, in) ; if (in) Move(s->stream.next_in, SvPVX(buf), in, char) ; - *SvEND(buf) = '\0'; - SvSETMAGIC(buf); + *SvEND(buf) = '\0'; + SvSETMAGIC(buf); } } #endif diff --git a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm index ae71128..4a4ad1d 100644 --- a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm +++ b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm @@ -10,7 +10,7 @@ use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS); -$VERSION = '2.065'; +$VERSION = '2.066'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/IO-Compress/lib/Compress/Zlib.pm b/cpan/IO-Compress/lib/Compress/Zlib.pm index 57e74a8..eaf7080 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.064 ; -use Compress::Raw::Zlib 2.064 ; -use IO::Compress::Gzip 2.064 ; -use IO::Uncompress::Gunzip 2.064 ; +use IO::Compress::Base::Common 2.066 ; +use Compress::Raw::Zlib 2.066 ; +use IO::Compress::Gzip 2.066 ; +use IO::Uncompress::Gunzip 2.066 ; use strict ; use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.064'; +$VERSION = '2.066'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -461,7 +461,7 @@ sub inflate package Compress::Zlib ; -use IO::Compress::Gzip::Constants 2.064 ; +use IO::Compress::Gzip::Constants 2.066 ; 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 c77e06b..e803ccc 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm @@ -4,12 +4,12 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.064 qw(:Status); +use IO::Compress::Base::Common 2.066 qw(:Status); -use Compress::Raw::Bzip2 2.064 ; +use Compress::Raw::Bzip2 2.066 ; our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.066'; 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 c8fdf2a..74ae846 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm @@ -4,13 +4,13 @@ use strict; use warnings; use bytes; -use IO::Compress::Base::Common 2.064 qw(:Status); -use Compress::Raw::Zlib 2.064 qw( !crc32 !adler32 ) ; +use IO::Compress::Base::Common 2.066 qw(:Status); +use Compress::Raw::Zlib 2.066 qw( !crc32 !adler32 ) ; require Exporter; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS); -$VERSION = '2.064'; +$VERSION = '2.066'; @ISA = qw(Exporter); @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS; %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS; diff --git a/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm b/cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm index b612de0..70bb54b 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.064 qw(:Status); +use IO::Compress::Base::Common 2.066 qw(:Status); our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.066'; sub mkCompObject { diff --git a/cpan/IO-Compress/lib/IO/Compress/Base.pm b/cpan/IO-Compress/lib/IO/Compress/Base.pm index 6dc7917..223996c 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.006 ; use strict ; use warnings; -use IO::Compress::Base::Common 2.064 ; +use IO::Compress::Base::Common 2.066 ; use IO::File (); ; use Scalar::Util (); @@ -20,7 +20,7 @@ use Symbol(); our (@ISA, $VERSION); @ISA = qw(Exporter IO::File); -$VERSION = '2.064'; +$VERSION = '2.066'; #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 aa61c79..ea9d366 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.064'; +$VERSION = '2.066'; @EXPORT = qw( isaFilehandle isaFilename isaScalar whatIsInput whatIsOutput diff --git a/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm b/cpan/IO-Compress/lib/IO/Compress/Bzip2.pm index fc62b4f..646a9da 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.064 ; +use IO::Compress::Base 2.066 ; -use IO::Compress::Base::Common 2.064 qw(); -use IO::Compress::Adapter::Bzip2 2.064 ; +use IO::Compress::Base::Common 2.066 qw(); +use IO::Compress::Adapter::Bzip2 2.066 ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error); -$VERSION = '2.064'; +$VERSION = '2.066'; $Bzip2Error = ''; @ISA = qw(Exporter IO::Compress::Base); @@ -51,7 +51,7 @@ sub getExtraParams { my $self = shift ; - use IO::Compress::Base::Common 2.064 qw(:Parse); + use IO::Compress::Base::Common 2.066 qw(:Parse); return ( 'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned, 1], diff --git a/cpan/IO-Compress/lib/IO/Compress/Deflate.pm b/cpan/IO-Compress/lib/IO/Compress/Deflate.pm index d8848d7..c7be4ae 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Deflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Deflate.pm @@ -8,16 +8,16 @@ use bytes; require Exporter ; -use IO::Compress::RawDeflate 2.064 (); -use IO::Compress::Adapter::Deflate 2.064 ; +use IO::Compress::RawDeflate 2.066 (); +use IO::Compress::Adapter::Deflate 2.066 ; -use IO::Compress::Zlib::Constants 2.064 ; -use IO::Compress::Base::Common 2.064 qw(); +use IO::Compress::Zlib::Constants 2.066 ; +use IO::Compress::Base::Common 2.066 qw(); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError); -$VERSION = '2.064'; +$VERSION = '2.066'; $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 febeea6..e7b2f4d 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Gzip.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Gzip.pm @@ -8,12 +8,12 @@ use bytes; require Exporter ; -use IO::Compress::RawDeflate 2.064 () ; -use IO::Compress::Adapter::Deflate 2.064 ; +use IO::Compress::RawDeflate 2.066 () ; +use IO::Compress::Adapter::Deflate 2.066 ; -use IO::Compress::Base::Common 2.064 qw(:Status ); -use IO::Compress::Gzip::Constants 2.064 ; -use IO::Compress::Zlib::Extra 2.064 ; +use IO::Compress::Base::Common 2.066 qw(:Status ); +use IO::Compress::Gzip::Constants 2.066 ; +use IO::Compress::Zlib::Extra 2.066 ; BEGIN { @@ -25,7 +25,7 @@ BEGIN our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError); -$VERSION = '2.064'; +$VERSION = '2.066'; $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 f6c15c7..30e03b3 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.064'; +$VERSION = '2.066'; @ISA = qw(Exporter); diff --git a/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm b/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm index 38f7f7d..7ab6872 100644 --- a/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm +++ b/cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm @@ -6,15 +6,15 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base 2.064 ; -use IO::Compress::Base::Common 2.064 qw(:Status ); -use IO::Compress::Adapter::Deflate 2.064 ; +use IO::Compress::Base 2.066 ; +use IO::Compress::Base::Common 2.066 qw(:Status ); +use IO::Compress::Adapter::Deflate 2.066 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError); -$VERSION = '2.064'; +$VERSION = '2.066'; $RawDeflateError = ''; @ISA = qw(Exporter IO::Compress::Base); @@ -116,8 +116,8 @@ sub getExtraParams return getZlibParams(); } -use IO::Compress::Base::Common 2.064 qw(:Parse); -use Compress::Raw::Zlib 2.064 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); +use IO::Compress::Base::Common 2.066 qw(:Parse); +use Compress::Raw::Zlib 2.066 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); our %PARAMS = ( #'method' => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFLATED], 'level' => [IO::Compress::Base::Common::Parse_signed, Z_DEFAULT_COMPRESSION], diff --git a/cpan/IO-Compress/lib/IO/Compress/Zip.pm b/cpan/IO-Compress/lib/IO/Compress/Zip.pm index a8645b3..3aa774a 100644 --- a/cpan/IO-Compress/lib/IO/Compress/Zip.pm +++ b/cpan/IO-Compress/lib/IO/Compress/Zip.pm @@ -4,30 +4,30 @@ use strict ; use warnings; use bytes; -use IO::Compress::Base::Common 2.064 qw(:Status ); -use IO::Compress::RawDeflate 2.064 (); -use IO::Compress::Adapter::Deflate 2.064 ; -use IO::Compress::Adapter::Identity 2.064 ; -use IO::Compress::Zlib::Extra 2.064 ; -use IO::Compress::Zip::Constants 2.064 ; +use IO::Compress::Base::Common 2.066 qw(:Status ); +use IO::Compress::RawDeflate 2.066 (); +use IO::Compress::Adapter::Deflate 2.066 ; +use IO::Compress::Adapter::Identity 2.066 ; +use IO::Compress::Zlib::Extra 2.066 ; +use IO::Compress::Zip::Constants 2.066 ; use File::Spec(); use Config; -use Compress::Raw::Zlib 2.064 (); +use Compress::Raw::Zlib 2.066 (); BEGIN { eval { require IO::Compress::Adapter::Bzip2 ; - import IO::Compress::Adapter::Bzip2 2.064 ; + import IO::Compress::Adapter::Bzip2 2.066 ; require IO::Compress::Bzip2 ; - import IO::Compress::Bzip2 2.064 ; + import IO::Compress::Bzip2 2.066 ; } ; eval { require IO::Compress::Adapter::Lzma ; - import IO::Compress::Adapter::Lzma 2.064 ; + import IO::Compress::Adapter::Lzma 2.066 ; require IO::Compress::Lzma ; - import IO::Compress::Lzma 2.064 ; + import IO::Compress::Lzma 2.066 ; } ; } @@ -36,7 +36,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError); -$VERSION = '2.064'; +$VERSION = '2.066'; $ZipError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff --git a/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm b/cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm index 02609b9..1caa1cb 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.064'; +$VERSION = '2.066'; @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 7dd1622..e011b46 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.064'; +$VERSION = '2.066'; @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 ca92b5f..1c19665 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.064'; +$VERSION = '2.066'; -use IO::Compress::Gzip::Constants 2.064 ; +use IO::Compress::Gzip::Constants 2.066 ; 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 53b8ef1..f252843 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.064 qw(:Status); +use IO::Compress::Base::Common 2.066 qw(:Status); -use Compress::Raw::Bzip2 2.064 ; +use Compress::Raw::Bzip2 2.066 ; our ($VERSION, @ISA); -$VERSION = '2.064'; +$VERSION = '2.066'; 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 812f3f8..8414ef7 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm @@ -4,14 +4,14 @@ use warnings; use strict; use bytes; -use IO::Compress::Base::Common 2.064 qw(:Status); +use IO::Compress::Base::Common 2.066 qw(:Status); use IO::Compress::Zip::Constants ; our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.066'; -use Compress::Raw::Zlib 2.064 (); +use Compress::Raw::Zlib 2.066 (); 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 68beea1..6dcebbe 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.064 qw(:Status); -use Compress::Raw::Zlib 2.064 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); +use IO::Compress::Base::Common 2.066 qw(:Status); +use Compress::Raw::Zlib 2.066 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); our ($VERSION); -$VERSION = '2.064'; +$VERSION = '2.066'; diff --git a/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm index cdf229a..a42a24c 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.064 (); +use IO::Compress::Base::Common 2.066 (); -use IO::Uncompress::Adapter::Inflate 2.064 (); +use IO::Uncompress::Adapter::Inflate 2.066 (); -use IO::Uncompress::Base 2.064 ; -use IO::Uncompress::Gunzip 2.064 ; -use IO::Uncompress::Inflate 2.064 ; -use IO::Uncompress::RawInflate 2.064 ; -use IO::Uncompress::Unzip 2.064 ; +use IO::Uncompress::Base 2.066 ; +use IO::Uncompress::Gunzip 2.066 ; +use IO::Uncompress::Inflate 2.066 ; +use IO::Uncompress::RawInflate 2.066 ; +use IO::Uncompress::Unzip 2.066 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); -$VERSION = '2.064'; +$VERSION = '2.066'; $AnyInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -48,7 +48,7 @@ sub anyinflate sub getExtraParams { - use IO::Compress::Base::Common 2.064 qw(:Parse); + use IO::Compress::Base::Common 2.066 qw(:Parse); return ( 'rawinflate' => [Parse_boolean, 0] ) ; } diff --git a/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm b/cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm index e2b104d..fc98cf2 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.064 (); +use IO::Compress::Base::Common 2.066 (); -use IO::Uncompress::Base 2.064 ; +use IO::Uncompress::Base 2.066 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError); -$VERSION = '2.064'; +$VERSION = '2.066'; $AnyUncompressError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -27,22 +27,22 @@ Exporter::export_ok_tags('all'); BEGIN { - eval ' use IO::Uncompress::Adapter::Inflate 2.064 ;'; - eval ' use IO::Uncompress::Adapter::Bunzip2 2.064 ;'; - eval ' use IO::Uncompress::Adapter::LZO 2.064 ;'; - eval ' use IO::Uncompress::Adapter::Lzf 2.064 ;'; - eval ' use IO::Uncompress::Adapter::UnLzma 2.064 ;'; - eval ' use IO::Uncompress::Adapter::UnXz 2.064 ;'; - - eval ' use IO::Uncompress::Bunzip2 2.064 ;'; - eval ' use IO::Uncompress::UnLzop 2.064 ;'; - eval ' use IO::Uncompress::Gunzip 2.064 ;'; - eval ' use IO::Uncompress::Inflate 2.064 ;'; - eval ' use IO::Uncompress::RawInflate 2.064 ;'; - eval ' use IO::Uncompress::Unzip 2.064 ;'; - eval ' use IO::Uncompress::UnLzf 2.064 ;'; - eval ' use IO::Uncompress::UnLzma 2.064 ;'; - eval ' use IO::Uncompress::UnXz 2.064 ;'; + eval ' use IO::Uncompress::Adapter::Inflate 2.066 ;'; + eval ' use IO::Uncompress::Adapter::Bunzip2 2.066 ;'; + eval ' use IO::Uncompress::Adapter::LZO 2.066 ;'; + eval ' use IO::Uncompress::Adapter::Lzf 2.066 ;'; + eval ' use IO::Uncompress::Adapter::UnLzma 2.066 ;'; + eval ' use IO::Uncompress::Adapter::UnXz 2.066 ;'; + + eval ' use IO::Uncompress::Bunzip2 2.066 ;'; + eval ' use IO::Uncompress::UnLzop 2.066 ;'; + eval ' use IO::Uncompress::Gunzip 2.066 ;'; + eval ' use IO::Uncompress::Inflate 2.066 ;'; + eval ' use IO::Uncompress::RawInflate 2.066 ;'; + eval ' use IO::Uncompress::Unzip 2.066 ;'; + eval ' use IO::Uncompress::UnLzf 2.066 ;'; + eval ' use IO::Uncompress::UnLzma 2.066 ;'; + eval ' use IO::Uncompress::UnXz 2.066 ;'; } sub new diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm b/cpan/IO-Compress/lib/IO/Uncompress/Base.pm index 4d1b780..306229e 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.064'; +$VERSION = '2.066'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; -use IO::Compress::Base::Common 2.064 ; +use IO::Compress::Base::Common 2.066 ; use IO::File ; use Symbol; @@ -756,7 +756,8 @@ sub _rd2 while (($status = $z->read($x->{buff})) > 0) { if ($fh) { - syswrite $fh, ${ $x->{buff} } + local $\; + print $fh ${ $x->{buff} } or return $z->saveErrorString(undef, "Error writing to output file: $!", $!); ${ $x->{buff} } = '' ; } diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm b/cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm index aad835f..5f77ae2 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.064 qw(:Status ); +use IO::Compress::Base::Common 2.066 qw(:Status ); -use IO::Uncompress::Base 2.064 ; -use IO::Uncompress::Adapter::Bunzip2 2.064 ; +use IO::Uncompress::Base 2.066 ; +use IO::Uncompress::Adapter::Bunzip2 2.066 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error); -$VERSION = '2.064'; +$VERSION = '2.066'; $Bunzip2Error = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm b/cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm index b8012d0..5781ac7 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.064 ; +use IO::Uncompress::RawInflate 2.066 ; -use Compress::Raw::Zlib 2.064 () ; -use IO::Compress::Base::Common 2.064 qw(:Status ); -use IO::Compress::Gzip::Constants 2.064 ; -use IO::Compress::Zlib::Extra 2.064 ; +use Compress::Raw::Zlib 2.066 () ; +use IO::Compress::Base::Common 2.066 qw(:Status ); +use IO::Compress::Gzip::Constants 2.066 ; +use IO::Compress::Zlib::Extra 2.066 ; require Exporter ; @@ -28,7 +28,7 @@ Exporter::export_ok_tags('all'); $GunzipError = ''; -$VERSION = '2.064'; +$VERSION = '2.066'; sub new { diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm b/cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm index a5df2ea..2be8ec5 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.064 qw(:Status ); -use IO::Compress::Zlib::Constants 2.064 ; +use IO::Compress::Base::Common 2.066 qw(:Status ); +use IO::Compress::Zlib::Constants 2.066 ; -use IO::Uncompress::RawInflate 2.064 ; +use IO::Uncompress::RawInflate 2.066 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError); -$VERSION = '2.064'; +$VERSION = '2.066'; $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 b0259f3..b36ebbf 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.064 ; -use IO::Compress::Base::Common 2.064 qw(:Status ); +use Compress::Raw::Zlib 2.066 ; +use IO::Compress::Base::Common 2.066 qw(:Status ); -use IO::Uncompress::Base 2.064 ; -use IO::Uncompress::Adapter::Inflate 2.064 ; +use IO::Uncompress::Base 2.066 ; +use IO::Uncompress::Adapter::Inflate 2.066 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError); -$VERSION = '2.064'; +$VERSION = '2.066'; $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 3b36f83..dcabc83 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm @@ -9,14 +9,14 @@ use warnings; #use bytes; use IO::File; -use IO::Uncompress::RawInflate 2.064 ; -use IO::Compress::Base::Common 2.064 qw(:Status ); -use IO::Uncompress::Adapter::Inflate 2.064 ; -use IO::Uncompress::Adapter::Identity 2.064 ; -use IO::Compress::Zlib::Extra 2.064 ; -use IO::Compress::Zip::Constants 2.064 ; +use IO::Uncompress::RawInflate 2.066 ; +use IO::Compress::Base::Common 2.066 qw(:Status ); +use IO::Uncompress::Adapter::Inflate 2.066 ; +use IO::Uncompress::Adapter::Identity 2.066 ; +use IO::Compress::Zlib::Extra 2.066 ; +use IO::Compress::Zip::Constants 2.066 ; -use Compress::Raw::Zlib 2.064 () ; +use Compress::Raw::Zlib 2.066 () ; BEGIN { @@ -31,7 +31,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup); -$VERSION = '2.064'; +$VERSION = '2.066'; $UnzipError = ''; @ISA = qw(Exporter IO::Uncompress::RawInflate); diff --git a/cpan/IO-Compress/t/000prereq.t b/cpan/IO-Compress/t/000prereq.t index 4aca4a0..39d7e49 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.064'; + my $VERSION = '2.066'; my @NAMES = qw( Compress::Raw::Bzip2 Compress::Raw::Zlib diff --git a/cpan/IO-Compress/t/compress/oneshot.pl b/cpan/IO-Compress/t/compress/oneshot.pl index 1e56b56..43d9c02 100644 --- a/cpan/IO-Compress/t/compress/oneshot.pl +++ b/cpan/IO-Compress/t/compress/oneshot.pl @@ -16,7 +16,7 @@ BEGIN { $extra = 1 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - plan tests => 995 + $extra ; + plan tests => 1002 + $extra ; use_ok('IO::Uncompress::AnyUncompress', qw(anyuncompress $AnyUncompressError)) ; @@ -1583,7 +1583,7 @@ sub run { - # check setting $/ + # check setting $\ my $CompFunc = getTopFuncRef($CompressClass); my $UncompFunc = getTopFuncRef($UncompressClass); @@ -1600,7 +1600,30 @@ sub run } + SKIP: + { + #95494: IO::Uncompress::Gunzip: Can no longer gunzip to in-memory file handle + + skip "open filehandle to buffer not supported in Perl $]", 7 + if $] < 5.008 ; + my $CompFunc = getTopFuncRef($CompressClass); + my $UncompFunc = getTopFuncRef($UncompressClass); + + my $input = "hello world"; + my $compressed ; + ok open my $fh_in1, '<', \$input ; + ok open my $fh_out1, '>', \$compressed ; + ok &$CompFunc($fh_in1 => $fh_out1), ' Compressed ok' ; + + my $output; + ok open my $fh_in2, '<', \$compressed ; + ok open my $fh_out2, '>', \$output ; + + ok &$UncompFunc($fh_in2 => $fh_out2), ' UnCompressed ok' ; + is $output, $input, "round trip ok" ; + } } + # TODO add more error cases 1; -- Perl5 Master Repository
