'IO-Compress' => {
'MAINTAINER' => 'pmqs',
- 'DISTRIBUTION' => 'PMQS/IO-Compress-2.057.tar.gz',
+ 'DISTRIBUTION' => 'PMQS/IO-Compress-2.058.tar.gz',
'FILES' => q[cpan/IO-Compress],
'EXCLUDED' => [qr{t/Test/}],
'UPSTREAM' => 'cpan',
CHANGES
-------
+ 2.058 12 November 2012
+
+ * RT# 81119: Latest IO::Compress 2.057 fails tests on 5.8.x
+
2.057 10 November 2012
* IO::Compress::Zip
use strict ;
require 5.006 ;
-$::VERSION = '2.057' ;
+$::VERSION = '2.058' ;
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
IO-Compress
- Version 2.057
+ Version 2.058
- 10th November 2012
+ 12th November 2012
Copyright (c) 1995-2012 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it
If you haven't installed IO-Compress then search IO::Compress::Gzip.pm
for a line like this:
- $VERSION = "2.057" ;
+ $VERSION = "2.058" ;
2. If you are having problems building IO-Compress, send me a
complete log of what happened. Start by unpacking the IO-Compress
use IO::Handle ;
use Scalar::Util qw(dualvar);
-use IO::Compress::Base::Common 2.057 ;
-use Compress::Raw::Zlib 2.057 ;
-use IO::Compress::Gzip 2.057 ;
-use IO::Uncompress::Gunzip 2.057 ;
+use IO::Compress::Base::Common 2.058 ;
+use Compress::Raw::Zlib 2.058 ;
+use IO::Compress::Gzip 2.058 ;
+use IO::Uncompress::Gunzip 2.058 ;
use strict ;
use warnings ;
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.057';
+$VERSION = '2.058';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
package Compress::Zlib ;
-use IO::Compress::Gzip::Constants 2.057 ;
+use IO::Compress::Gzip::Constants 2.058 ;
sub memGzip($)
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status);
+use IO::Compress::Base::Common 2.058 qw(:Status);
-use Compress::Raw::Bzip2 2.057 ;
+use Compress::Raw::Bzip2 2.058 ;
our ($VERSION);
-$VERSION = '2.057';
+$VERSION = '2.058';
sub mkCompObject
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status);
-use Compress::Raw::Zlib 2.057 qw( !crc32 !adler32 ) ;
+use IO::Compress::Base::Common 2.058 qw(:Status);
+use Compress::Raw::Zlib 2.058 qw( !crc32 !adler32 ) ;
require Exporter;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
-$VERSION = '2.057';
+$VERSION = '2.058';
@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.057 qw(:Status);
+use IO::Compress::Base::Common 2.058 qw(:Status);
our ($VERSION);
-$VERSION = '2.057';
+$VERSION = '2.058';
sub mkCompObject
{
use strict ;
use warnings;
-use IO::Compress::Base::Common 2.057 ;
+use IO::Compress::Base::Common 2.058 ;
use IO::File (); ;
use Scalar::Util ();
our (@ISA, $VERSION);
@ISA = qw(Exporter IO::File);
-$VERSION = '2.057';
+$VERSION = '2.058';
#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.
#if ($outType eq 'filename' && -e $outValue && ! -w _)
# { return $obj->saveErrorString(undef, "Output file '$outValue' is not writable" ) }
-
-
- if ($got->parsed('encode')) {
+ if ($got->getValue('encode')) {
my $want_encoding = $got->getValue('encode');
*$obj->{Encoding} = getEncoding($obj, $class, $want_encoding);
}
sub flush
-{
+{
my $self = shift ;
my $outBuffer='';
sub close
{
my $self = shift ;
-
return 1 if *$self->{Closed} || ! *$self->{Compress} ;
*$self->{Closed} = 1 ;
require Exporter;
our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
@ISA = qw(Exporter);
-$VERSION = '2.057';
+$VERSION = '2.058';
@EXPORT = qw( isaFilehandle isaFilename isaScalar
whatIsInput whatIsOutput
{
my $handle = shift ;
- binmode $handle
+ binmode $handle
if $needBinmode;
}
use bytes;
require Exporter ;
-use IO::Compress::Base 2.057 ;
+use IO::Compress::Base 2.058 ;
-use IO::Compress::Base::Common 2.057 qw();
-use IO::Compress::Adapter::Bzip2 2.057 ;
+use IO::Compress::Base::Common 2.058 qw();
+use IO::Compress::Adapter::Bzip2 2.058 ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
-$VERSION = '2.057';
+$VERSION = '2.058';
$Bzip2Error = '';
@ISA = qw(Exporter IO::Compress::Base);
{
my $self = shift ;
- use IO::Compress::Base::Common 2.057 qw(:Parse);
+ use IO::Compress::Base::Common 2.058 qw(:Parse);
return (
'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned, 1],
require Exporter ;
-use IO::Compress::RawDeflate 2.057 ();
-use IO::Compress::Adapter::Deflate 2.057 ;
+use IO::Compress::RawDeflate 2.058 ();
+use IO::Compress::Adapter::Deflate 2.058 ;
-use IO::Compress::Zlib::Constants 2.057 ;
-use IO::Compress::Base::Common 2.057 qw();
+use IO::Compress::Zlib::Constants 2.058 ;
+use IO::Compress::Base::Common 2.058 qw();
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$DeflateError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
require Exporter ;
-use IO::Compress::RawDeflate 2.057 () ;
-use IO::Compress::Adapter::Deflate 2.057 ;
+use IO::Compress::RawDeflate 2.058 () ;
+use IO::Compress::Adapter::Deflate 2.058 ;
-use IO::Compress::Base::Common 2.057 qw(:Status );
-use IO::Compress::Gzip::Constants 2.057 ;
-use IO::Compress::Zlib::Extra 2.057 ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
+use IO::Compress::Gzip::Constants 2.058 ;
+use IO::Compress::Zlib::Extra 2.058 ;
BEGIN
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$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.057';
+$VERSION = '2.058';
@ISA = qw(Exporter);
use warnings;
use bytes;
-use IO::Compress::Base 2.057 ;
-use IO::Compress::Base::Common 2.057 qw(:Status );
-use IO::Compress::Adapter::Deflate 2.057 ;
+use IO::Compress::Base 2.058 ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
+use IO::Compress::Adapter::Deflate 2.058 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$RawDeflateError = '';
@ISA = qw(Exporter IO::Compress::Base);
return getZlibParams();
}
-use IO::Compress::Base::Common 2.057 qw(:Parse);
-use Compress::Raw::Zlib 2.057 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+use IO::Compress::Base::Common 2.058 qw(:Parse);
+use Compress::Raw::Zlib 2.058 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.057 qw(:Status );
-use IO::Compress::RawDeflate 2.057 ();
-use IO::Compress::Adapter::Deflate 2.057 ;
-use IO::Compress::Adapter::Identity 2.057 ;
-use IO::Compress::Zlib::Extra 2.057 ;
-use IO::Compress::Zip::Constants 2.057 ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
+use IO::Compress::RawDeflate 2.058 ();
+use IO::Compress::Adapter::Deflate 2.058 ;
+use IO::Compress::Adapter::Identity 2.058 ;
+use IO::Compress::Zlib::Extra 2.058 ;
+use IO::Compress::Zip::Constants 2.058 ;
use File::Spec();
use Config;
-use Compress::Raw::Zlib 2.057 ();
+use Compress::Raw::Zlib 2.058 ();
BEGIN
{
eval { require IO::Compress::Adapter::Bzip2 ;
- import IO::Compress::Adapter::Bzip2 2.057 ;
+ import IO::Compress::Adapter::Bzip2 2.058 ;
require IO::Compress::Bzip2 ;
- import IO::Compress::Bzip2 2.057 ;
+ import IO::Compress::Bzip2 2.058 ;
} ;
eval { require IO::Compress::Adapter::Lzma ;
- import IO::Compress::Adapter::Lzma 2.057 ;
+ import IO::Compress::Adapter::Lzma 2.058 ;
require IO::Compress::Lzma ;
- import IO::Compress::Lzma 2.057 ;
+ import IO::Compress::Lzma 2.058 ;
} ;
}
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.057';
+$VERSION = '2.058';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.057';
+$VERSION = '2.058';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.057';
+$VERSION = '2.058';
-use IO::Compress::Gzip::Constants 2.057 ;
+use IO::Compress::Gzip::Constants 2.058 ;
sub ExtraFieldError
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status);
+use IO::Compress::Base::Common 2.058 qw(:Status);
-use Compress::Raw::Bzip2 2.057 ;
+use Compress::Raw::Bzip2 2.058 ;
our ($VERSION, @ISA);
-$VERSION = '2.057';
+$VERSION = '2.058';
sub mkUncompObject
{
use strict;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status);
+use IO::Compress::Base::Common 2.058 qw(:Status);
use IO::Compress::Zip::Constants ;
our ($VERSION);
-$VERSION = '2.057';
+$VERSION = '2.058';
-use Compress::Raw::Zlib 2.057 ();
+use Compress::Raw::Zlib 2.058 ();
sub mkUncompObject
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status);
-use Compress::Raw::Zlib 2.057 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common 2.058 qw(:Status);
+use Compress::Raw::Zlib 2.058 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
our ($VERSION);
-$VERSION = '2.057';
+$VERSION = '2.058';
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 ();
+use IO::Compress::Base::Common 2.058 ();
-use IO::Uncompress::Adapter::Inflate 2.057 ();
+use IO::Uncompress::Adapter::Inflate 2.058 ();
-use IO::Uncompress::Base 2.057 ;
-use IO::Uncompress::Gunzip 2.057 ;
-use IO::Uncompress::Inflate 2.057 ;
-use IO::Uncompress::RawInflate 2.057 ;
-use IO::Uncompress::Unzip 2.057 ;
+use IO::Uncompress::Base 2.058 ;
+use IO::Uncompress::Gunzip 2.058 ;
+use IO::Uncompress::Inflate 2.058 ;
+use IO::Uncompress::RawInflate 2.058 ;
+use IO::Uncompress::Unzip 2.058 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$AnyInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
sub getExtraParams
{
- use IO::Compress::Base::Common 2.057 qw(:Parse);
+ use IO::Compress::Base::Common 2.058 qw(:Parse);
return ( 'rawinflate' => [Parse_boolean, 0] ) ;
}
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 ();
+use IO::Compress::Base::Common 2.058 ();
-use IO::Uncompress::Base 2.057 ;
+use IO::Uncompress::Base 2.058 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$AnyUncompressError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
BEGIN
{
- eval ' use IO::Uncompress::Adapter::Inflate 2.057 ;';
- eval ' use IO::Uncompress::Adapter::Bunzip2 2.057 ;';
- eval ' use IO::Uncompress::Adapter::LZO 2.057 ;';
- eval ' use IO::Uncompress::Adapter::Lzf 2.057 ;';
- eval ' use IO::Uncompress::Adapter::UnLzma 2.057 ;';
- eval ' use IO::Uncompress::Adapter::UnXz 2.057 ;';
-
- eval ' use IO::Uncompress::Bunzip2 2.057 ;';
- eval ' use IO::Uncompress::UnLzop 2.057 ;';
- eval ' use IO::Uncompress::Gunzip 2.057 ;';
- eval ' use IO::Uncompress::Inflate 2.057 ;';
- eval ' use IO::Uncompress::RawInflate 2.057 ;';
- eval ' use IO::Uncompress::Unzip 2.057 ;';
- eval ' use IO::Uncompress::UnLzf 2.057 ;';
- eval ' use IO::Uncompress::UnLzma 2.057 ;';
- eval ' use IO::Uncompress::UnXz 2.057 ;';
+ eval ' use IO::Uncompress::Adapter::Inflate 2.058 ;';
+ eval ' use IO::Uncompress::Adapter::Bunzip2 2.058 ;';
+ eval ' use IO::Uncompress::Adapter::LZO 2.058 ;';
+ eval ' use IO::Uncompress::Adapter::Lzf 2.058 ;';
+ eval ' use IO::Uncompress::Adapter::UnLzma 2.058 ;';
+ eval ' use IO::Uncompress::Adapter::UnXz 2.058 ;';
+
+ eval ' use IO::Uncompress::Bunzip2 2.058 ;';
+ eval ' use IO::Uncompress::UnLzop 2.058 ;';
+ eval ' use IO::Uncompress::Gunzip 2.058 ;';
+ eval ' use IO::Uncompress::Inflate 2.058 ;';
+ eval ' use IO::Uncompress::RawInflate 2.058 ;';
+ eval ' use IO::Uncompress::Unzip 2.058 ;';
+ eval ' use IO::Uncompress::UnLzf 2.058 ;';
+ eval ' use IO::Uncompress::UnLzma 2.058 ;';
+ eval ' use IO::Uncompress::UnXz 2.058 ;';
}
sub new
@ISA = qw(Exporter IO::File);
-$VERSION = '2.057';
+$VERSION = '2.058';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
-use IO::Compress::Base::Common 2.057 ;
+use IO::Compress::Base::Common 2.058 ;
use IO::File ;
use Symbol;
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status );
+use IO::Compress::Base::Common 2.058 qw(:Status );
-use IO::Uncompress::Base 2.057 ;
-use IO::Uncompress::Adapter::Bunzip2 2.057 ;
+use IO::Uncompress::Base 2.058 ;
+use IO::Uncompress::Adapter::Bunzip2 2.058 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
-$VERSION = '2.057';
+$VERSION = '2.058';
$Bunzip2Error = '';
@ISA = qw( Exporter IO::Uncompress::Base );
use warnings;
use bytes;
-use IO::Uncompress::RawInflate 2.057 ;
+use IO::Uncompress::RawInflate 2.058 ;
-use Compress::Raw::Zlib 2.057 () ;
-use IO::Compress::Base::Common 2.057 qw(:Status );
-use IO::Compress::Gzip::Constants 2.057 ;
-use IO::Compress::Zlib::Extra 2.057 ;
+use Compress::Raw::Zlib 2.058 () ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
+use IO::Compress::Gzip::Constants 2.058 ;
+use IO::Compress::Zlib::Extra 2.058 ;
require Exporter ;
$GunzipError = '';
-$VERSION = '2.057';
+$VERSION = '2.058';
sub new
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.057 qw(:Status );
-use IO::Compress::Zlib::Constants 2.057 ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
+use IO::Compress::Zlib::Constants 2.058 ;
-use IO::Uncompress::RawInflate 2.057 ;
+use IO::Uncompress::RawInflate 2.058 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$InflateError = '';
@ISA = qw( Exporter IO::Uncompress::RawInflate );
use warnings;
use bytes;
-use Compress::Raw::Zlib 2.057 ;
-use IO::Compress::Base::Common 2.057 qw(:Status );
+use Compress::Raw::Zlib 2.058 ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
-use IO::Uncompress::Base 2.057 ;
-use IO::Uncompress::Adapter::Inflate 2.057 ;
+use IO::Uncompress::Base 2.058 ;
+use IO::Uncompress::Adapter::Inflate 2.058 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
-$VERSION = '2.057';
+$VERSION = '2.058';
$RawInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
use bytes;
use IO::File;
-use IO::Uncompress::RawInflate 2.057 ;
-use IO::Compress::Base::Common 2.057 qw(:Status );
-use IO::Uncompress::Adapter::Inflate 2.057 ;
-use IO::Uncompress::Adapter::Identity 2.057 ;
-use IO::Compress::Zlib::Extra 2.057 ;
-use IO::Compress::Zip::Constants 2.057 ;
+use IO::Uncompress::RawInflate 2.058 ;
+use IO::Compress::Base::Common 2.058 qw(:Status );
+use IO::Uncompress::Adapter::Inflate 2.058 ;
+use IO::Uncompress::Adapter::Identity 2.058 ;
+use IO::Compress::Zlib::Extra 2.058 ;
+use IO::Compress::Zip::Constants 2.058 ;
-use Compress::Raw::Zlib 2.057 () ;
+use Compress::Raw::Zlib 2.058 () ;
BEGIN
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.057';
+$VERSION = '2.058';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- my $VERSION = '2.057';
+ my $VERSION = '2.058';
my @NAMES = qw(
Compress::Raw::Bzip2
Compress::Raw::Zlib
{
use Config;
- skip 'readonly + threads', 1
+ skip 'readonly + threads', 2
if $Config{useithreads};
eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => 'abc') ; };
like $@, mkErr("Parameter 'fred' not writable"),
"wanted writable, got readonly";
+
+ eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => \'abc') ; };
+ like $@, mkErr("Parameter 'fred' not writable"),
+ "wanted writable, got readonly";
}
- eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => \'abc') ; };
- like $@, mkErr("Parameter 'fred' not writable"),
- "wanted writable, got readonly";
-
my @xx;
eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => \@xx) ; };
like $@, mkErr("Parameter 'fred' not a scalar reference"),