},
'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/},
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;
package Compress::Zlib ;
-use IO::Compress::Gzip::Constants 2.064 ;
+use IO::Compress::Gzip::Constants 2.066 ;
sub memGzip($)
{
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
{
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;
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
{
use strict ;
use warnings;
-use IO::Compress::Base::Common 2.064 ;
+use IO::Compress::Base::Common 2.066 ;
use IO::File (); ;
use Scalar::Util ();
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.
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
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);
{
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],
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);
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
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
-$VERSION = '2.064';
+$VERSION = '2.066';
$GzipError = '' ;
@ISA = qw(Exporter IO::Compress::RawDeflate);
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);
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);
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],
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 ;
} ;
}
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
-$VERSION = '2.064';
+$VERSION = '2.066';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.064';
+$VERSION = '2.066';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.064';
+$VERSION = '2.066';
@ISA = qw(Exporter);
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
{
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
{
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
{
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';
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 );
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] ) ;
}
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 );
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
@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;
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} } = '' ;
}
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 );
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 ;
$GunzipError = '';
-$VERSION = '2.064';
+$VERSION = '2.066';
sub new
{
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 );
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 );
#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
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.064';
+$VERSION = '2.066';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
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
$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)) ;
{
- # check setting $/
+ # check setting $\
my $CompFunc = getTopFuncRef($CompressClass);
my $UncompFunc = getTopFuncRef($UncompressClass);
}
+ 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;