'IO-Compress' =>
{
'MAINTAINER' => 'pmqs',
- 'DISTRIBUTION' => 'PMQS/IO-Compress-2.042.tar.gz',
+ 'DISTRIBUTION' => 'PMQS/IO-Compress-2.043.tar.gz',
'FILES' => q[cpan/IO-Compress],
'EXCLUDED' => [ qr{t/Test/} ],
'UPSTREAM' => 'cpan',
CHANGES
-------
+ 2.043 20 November 2011
+
+ * IO::Compress::Base
+ - Fixed issue that with handling of Zip files with two (or more)
+ entries that were STORED. Symptom is the first is uncompressed
+ ok, but the next will terminate early if the size of the file is
+ greater than BlockSize.
+ Regression test added to t/006zip.t
+ [RT# 72548]
+
2.042 17 November 2011
* IO::Compress::Zip
use strict ;
require 5.004 ;
-$::VERSION = '2.042' ;
+$::VERSION = '2.043' ;
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
IO-Compress
- Version 2.042
+ Version 2.043
- 17th November 2011
+ 20th November 2011
Copyright (c) 1995-2011 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.042" ;
+ $VERSION = "2.043" ;
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.042 ;
-use Compress::Raw::Zlib 2.042 ;
-use IO::Compress::Gzip 2.042 ;
-use IO::Uncompress::Gunzip 2.042 ;
+use IO::Compress::Base::Common 2.043 ;
+use Compress::Raw::Zlib 2.043 ;
+use IO::Compress::Gzip 2.043 ;
+use IO::Uncompress::Gunzip 2.043 ;
use strict ;
use warnings ;
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.042';
+$VERSION = '2.043';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
package Compress::Zlib ;
-use IO::Compress::Gzip::Constants 2.042 ;
+use IO::Compress::Gzip::Constants 2.043 ;
sub memGzip($)
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status);
+use IO::Compress::Base::Common 2.043 qw(:Status);
#use Compress::Bzip2 ;
-use Compress::Raw::Bzip2 2.042 ;
+use Compress::Raw::Bzip2 2.043 ;
our ($VERSION);
-$VERSION = '2.042';
+$VERSION = '2.043';
sub mkCompObject
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status);
+use IO::Compress::Base::Common 2.043 qw(:Status);
-use Compress::Raw::Zlib 2.042 qw(Z_OK Z_FINISH MAX_WBITS) ;
+use Compress::Raw::Zlib 2.043 qw(Z_OK Z_FINISH MAX_WBITS) ;
our ($VERSION);
-$VERSION = '2.042';
+$VERSION = '2.043';
sub mkCompObject
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status);
+use IO::Compress::Base::Common 2.043 qw(:Status);
our ($VERSION);
-$VERSION = '2.042';
+$VERSION = '2.043';
sub mkCompObject
{
use strict ;
use warnings;
-use IO::Compress::Base::Common 2.042 ;
+use IO::Compress::Base::Common 2.043 ;
use IO::File qw(SEEK_SET SEEK_END); ;
use Scalar::Util qw(blessed readonly);
our (@ISA, $VERSION);
@ISA = qw(Exporter IO::File);
-$VERSION = '2.042';
+$VERSION = '2.043';
#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.042';
+$VERSION = '2.043';
@EXPORT = qw( isaFilehandle isaFilename whatIsInput whatIsOutput
isaFileGlobString cleanFileGlobString oneTarget
use bytes;
require Exporter ;
-use IO::Compress::Base 2.042 ;
+use IO::Compress::Base 2.043 ;
-use IO::Compress::Base::Common 2.042 qw(createSelfTiedObject);
-use IO::Compress::Adapter::Bzip2 2.042 ;
+use IO::Compress::Base::Common 2.043 qw(createSelfTiedObject);
+use IO::Compress::Adapter::Bzip2 2.043 ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
-$VERSION = '2.042';
+$VERSION = '2.043';
$Bzip2Error = '';
@ISA = qw(Exporter IO::Compress::Base);
{
my $self = shift ;
- use IO::Compress::Base::Common 2.042 qw(:Parse);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
return (
'BlockSize100K' => [0, 1, Parse_unsigned, 1],
require Exporter ;
-use IO::Compress::RawDeflate 2.042 ;
+use IO::Compress::RawDeflate 2.043 ;
-use Compress::Raw::Zlib 2.042 ;
-use IO::Compress::Zlib::Constants 2.042 ;
-use IO::Compress::Base::Common 2.042 qw(createSelfTiedObject);
+use Compress::Raw::Zlib 2.043 ;
+use IO::Compress::Zlib::Constants 2.043 ;
+use IO::Compress::Base::Common 2.043 qw(createSelfTiedObject);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$DeflateError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
use bytes;
-use IO::Compress::RawDeflate 2.042 ;
+use IO::Compress::RawDeflate 2.043 ;
-use Compress::Raw::Zlib 2.042 ;
-use IO::Compress::Base::Common 2.042 qw(:Status :Parse createSelfTiedObject);
-use IO::Compress::Gzip::Constants 2.042 ;
-use IO::Compress::Zlib::Extra 2.042 ;
+use Compress::Raw::Zlib 2.043 ;
+use IO::Compress::Base::Common 2.043 qw(:Status :Parse createSelfTiedObject);
+use IO::Compress::Gzip::Constants 2.043 ;
+use IO::Compress::Zlib::Extra 2.043 ;
BEGIN
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$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.042';
+$VERSION = '2.043';
@ISA = qw(Exporter);
use bytes;
-use IO::Compress::Base 2.042 ;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
-use IO::Compress::Adapter::Deflate 2.042 ;
+use IO::Compress::Base 2.043 ;
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
+use IO::Compress::Adapter::Deflate 2.043 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$RawDeflateError = '';
@ISA = qw(Exporter IO::Compress::Base);
{
my $self = shift ;
- use IO::Compress::Base::Common 2.042 qw(:Parse);
- use Compress::Raw::Zlib 2.042 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
+ use Compress::Raw::Zlib 2.043 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
return (
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
-use IO::Compress::RawDeflate 2.042 ;
-use IO::Compress::Adapter::Deflate 2.042 ;
-use IO::Compress::Adapter::Identity 2.042 ;
-use IO::Compress::Zlib::Extra 2.042 ;
-use IO::Compress::Zip::Constants 2.042 ;
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
+use IO::Compress::RawDeflate 2.043 ;
+use IO::Compress::Adapter::Deflate 2.043 ;
+use IO::Compress::Adapter::Identity 2.043 ;
+use IO::Compress::Zlib::Extra 2.043 ;
+use IO::Compress::Zip::Constants 2.043 ;
use File::Spec();
use Config;
-use Compress::Raw::Zlib 2.042 qw(crc32) ;
+use Compress::Raw::Zlib 2.043 qw(crc32) ;
BEGIN
{
eval { require IO::Compress::Adapter::Bzip2 ;
- import IO::Compress::Adapter::Bzip2 2.042 ;
+ import IO::Compress::Adapter::Bzip2 2.043 ;
require IO::Compress::Bzip2 ;
- import IO::Compress::Bzip2 2.042 ;
+ import IO::Compress::Bzip2 2.043 ;
} ;
eval { require IO::Compress::Adapter::Lzma ;
- import IO::Compress::Adapter::Lzma 2.042 ;
+ import IO::Compress::Adapter::Lzma 2.043 ;
require IO::Compress::Lzma ;
- import IO::Compress::Lzma 2.042 ;
+ import IO::Compress::Lzma 2.043 ;
} ;
}
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
{
my $self = shift ;
- use IO::Compress::Base::Common 2.042 qw(:Parse);
- use Compress::Raw::Zlib 2.042 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
+ use Compress::Raw::Zlib 2.043 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
my @Bzip2 = ();
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.042';
+$VERSION = '2.043';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.042';
+$VERSION = '2.043';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.042';
+$VERSION = '2.043';
-use IO::Compress::Gzip::Constants 2.042 ;
+use IO::Compress::Gzip::Constants 2.043 ;
sub ExtraFieldError
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status);
+use IO::Compress::Base::Common 2.043 qw(:Status);
-use Compress::Raw::Bzip2 2.042 ;
+use Compress::Raw::Bzip2 2.043 ;
our ($VERSION, @ISA);
-$VERSION = '2.042';
+$VERSION = '2.043';
sub mkUncompObject
{
use strict;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status);
+use IO::Compress::Base::Common 2.043 qw(:Status);
use IO::Compress::Zip::Constants ;
our ($VERSION);
-$VERSION = '2.042';
+$VERSION = '2.043';
-use Compress::Raw::Zlib 2.042 ();
+use Compress::Raw::Zlib 2.043 ();
sub mkUncompObject
{
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status);
-use Compress::Raw::Zlib 2.042 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common 2.043 qw(:Status);
+use Compress::Raw::Zlib 2.043 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
our ($VERSION);
-$VERSION = '2.042';
+$VERSION = '2.043';
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(createSelfTiedObject);
+use IO::Compress::Base::Common 2.043 qw(createSelfTiedObject);
-use IO::Uncompress::Adapter::Inflate 2.042 ();
+use IO::Uncompress::Adapter::Inflate 2.043 ();
-use IO::Uncompress::Base 2.042 ;
-use IO::Uncompress::Gunzip 2.042 ;
-use IO::Uncompress::Inflate 2.042 ;
-use IO::Uncompress::RawInflate 2.042 ;
-use IO::Uncompress::Unzip 2.042 ;
+use IO::Uncompress::Base 2.043 ;
+use IO::Uncompress::Gunzip 2.043 ;
+use IO::Uncompress::Inflate 2.043 ;
+use IO::Uncompress::RawInflate 2.043 ;
+use IO::Uncompress::Unzip 2.043 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$AnyInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
sub getExtraParams
{
- use IO::Compress::Base::Common 2.042 qw(:Parse);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ;
}
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(createSelfTiedObject);
+use IO::Compress::Base::Common 2.043 qw(createSelfTiedObject);
-use IO::Uncompress::Base 2.042 ;
+use IO::Uncompress::Base 2.043 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$AnyUncompressError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
BEGIN
{
- eval ' use IO::Uncompress::Adapter::Inflate 2.042 ;';
- eval ' use IO::Uncompress::Adapter::Bunzip2 2.042 ;';
- eval ' use IO::Uncompress::Adapter::LZO 2.042 ;';
- eval ' use IO::Uncompress::Adapter::Lzf 2.042 ;';
- eval ' use IO::Uncompress::Adapter::UnLzma 2.042 ;';
- eval ' use IO::Uncompress::Adapter::UnXz 2.042 ;';
-
- eval ' use IO::Uncompress::Bunzip2 2.042 ;';
- eval ' use IO::Uncompress::UnLzop 2.042 ;';
- eval ' use IO::Uncompress::Gunzip 2.042 ;';
- eval ' use IO::Uncompress::Inflate 2.042 ;';
- eval ' use IO::Uncompress::RawInflate 2.042 ;';
- eval ' use IO::Uncompress::Unzip 2.042 ;';
- eval ' use IO::Uncompress::UnLzf 2.042 ;';
- eval ' use IO::Uncompress::UnLzma 2.042 ;';
- eval ' use IO::Uncompress::UnXz 2.042 ;';
+ eval ' use IO::Uncompress::Adapter::Inflate 2.043 ;';
+ eval ' use IO::Uncompress::Adapter::Bunzip2 2.043 ;';
+ eval ' use IO::Uncompress::Adapter::LZO 2.043 ;';
+ eval ' use IO::Uncompress::Adapter::Lzf 2.043 ;';
+ eval ' use IO::Uncompress::Adapter::UnLzma 2.043 ;';
+ eval ' use IO::Uncompress::Adapter::UnXz 2.043 ;';
+
+ eval ' use IO::Uncompress::Bunzip2 2.043 ;';
+ eval ' use IO::Uncompress::UnLzop 2.043 ;';
+ eval ' use IO::Uncompress::Gunzip 2.043 ;';
+ eval ' use IO::Uncompress::Inflate 2.043 ;';
+ eval ' use IO::Uncompress::RawInflate 2.043 ;';
+ eval ' use IO::Uncompress::Unzip 2.043 ;';
+ eval ' use IO::Uncompress::UnLzf 2.043 ;';
+ eval ' use IO::Uncompress::UnLzma 2.043 ;';
+ eval ' use IO::Uncompress::UnXz 2.043 ;';
}
sub new
sub getExtraParams
{
- use IO::Compress::Base::Common 2.042 qw(:Parse);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ,
'UnLzma' => [1, 1, Parse_boolean, 0] ) ;
}
@ISA = qw(Exporter IO::File);
-$VERSION = '2.042';
+$VERSION = '2.043';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
-use IO::Compress::Base::Common 2.042 ;
+use IO::Compress::Base::Common 2.043 ;
use IO::File ;
use Symbol;
*$self->{NewStream} = 0 ;
*$self->{EndStream} = 0 ;
+ *$self->{CompressedInputLengthDone} = undef ;
+ *$self->{CompressedInputLength} = undef ;
$self->reset();
*$self->{UnCompSize}->reset();
*$self->{CompSize}->reset();
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
-use IO::Uncompress::Base 2.042 ;
-use IO::Uncompress::Adapter::Bunzip2 2.042 ;
+use IO::Uncompress::Base 2.043 ;
+use IO::Uncompress::Adapter::Bunzip2 2.043 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
-$VERSION = '2.042';
+$VERSION = '2.043';
$Bunzip2Error = '';
@ISA = qw( Exporter IO::Uncompress::Base );
{
my $self = shift ;
- use IO::Compress::Base::Common 2.042 qw(:Parse);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
return (
'Verbosity' => [1, 1, Parse_boolean, 0],
use warnings;
use bytes;
-use IO::Uncompress::RawInflate 2.042 ;
+use IO::Uncompress::RawInflate 2.043 ;
-use Compress::Raw::Zlib 2.042 qw( crc32 ) ;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
-use IO::Compress::Gzip::Constants 2.042 ;
-use IO::Compress::Zlib::Extra 2.042 ;
+use Compress::Raw::Zlib 2.043 qw( crc32 ) ;
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
+use IO::Compress::Gzip::Constants 2.043 ;
+use IO::Compress::Zlib::Extra 2.043 ;
require Exporter ;
$GunzipError = '';
-$VERSION = '2.042';
+$VERSION = '2.043';
sub new
{
sub getExtraParams
{
- use IO::Compress::Base::Common 2.042 qw(:Parse);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
return ( 'ParseExtra' => [1, 1, Parse_boolean, 0] ) ;
}
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
-use IO::Compress::Zlib::Constants 2.042 ;
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
+use IO::Compress::Zlib::Constants 2.043 ;
-use IO::Uncompress::RawInflate 2.042 ;
+use IO::Uncompress::RawInflate 2.043 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$InflateError = '';
@ISA = qw( Exporter IO::Uncompress::RawInflate );
use warnings;
use bytes;
-use Compress::Raw::Zlib 2.042 ;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
+use Compress::Raw::Zlib 2.043 ;
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
-use IO::Uncompress::Base 2.042 ;
-use IO::Uncompress::Adapter::Inflate 2.042 ;
+use IO::Uncompress::Base 2.043 ;
+use IO::Uncompress::Adapter::Inflate 2.043 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
-$VERSION = '2.042';
+$VERSION = '2.043';
$RawInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
use bytes;
use IO::File;
-use IO::Uncompress::RawInflate 2.042 ;
-use IO::Compress::Base::Common 2.042 qw(:Status createSelfTiedObject);
-use IO::Uncompress::Adapter::Inflate 2.042 ;
-use IO::Uncompress::Adapter::Identity 2.042 ;
-use IO::Compress::Zlib::Extra 2.042 ;
-use IO::Compress::Zip::Constants 2.042 ;
+use IO::Uncompress::RawInflate 2.043 ;
+use IO::Compress::Base::Common 2.043 qw(:Status createSelfTiedObject);
+use IO::Uncompress::Adapter::Inflate 2.043 ;
+use IO::Uncompress::Adapter::Identity 2.043 ;
+use IO::Compress::Zlib::Extra 2.043 ;
+use IO::Compress::Zip::Constants 2.043 ;
-use Compress::Raw::Zlib 2.042 qw(crc32) ;
+use Compress::Raw::Zlib 2.043 qw(crc32) ;
BEGIN
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.042';
+$VERSION = '2.043';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
sub getExtraParams
{
- use IO::Compress::Base::Common 2.042 qw(:Parse);
+ use IO::Compress::Base::Common 2.043 qw(:Parse);
return (
my $LzmaPropertyData;
$self->smartReadExact(\$LzmaPropertyData, $LzmaPropertiesSize)
or return $self->saveErrorString(undef, "Truncated file");
- #my $LzmaInfo = unpack ("C", substr($LzmaPropertyData, 0, 1));
- #my $LzmaDictSize = unpack ("V", substr($LzmaPropertyData, 1, 4));
-
- # Create an LZMA_Alone header
- #$self->pushBack($LzmaPropertyData .
- # $uncompressedLength->getPacked_V64());
if (! $streamingMode) {
*$self->{ZipData}{CompressedLen}->subtract(4 + $LzmaPropertiesSize) ;
}
elsif ($compressedMethod == ZIP_CM_STORE)
{
- # TODO -- add support for reading uncompressed
-
*$self->{Type} = 'zip-stored';
my $obj =
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- my $VERSION = '2.042';
+ my $VERSION = '2.043';
my @NAMES = qw(
Compress::Raw::Bzip2
Compress::Raw::Zlib
$extra = 1
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- plan tests => 77 + $extra ;
+ plan tests => 85 + $extra ;
use_ok('IO::Compress::Zip', qw(:all)) ;
use_ok('IO::Uncompress::Unzip', qw(unzip $UnzipError)) ;
{
my $filename = shift;
- my $u = new IO::Uncompress::Unzip $filename, Append => 1
+ my $u = new IO::Uncompress::Unzip $filename, Append => 1, @_
or die "Cannot open $filename: $UnzipError";
isa_ok $u, "IO::Uncompress::Unzip";
is $got[2], $content[2], "Got 3nd entry";
}
+{
+ title "RT #72548";
+
+ my $lex = new LexFile my $file1;
+
+ my $blockSize = 1024 * 16;
+
+ my @content = (
+ 'hello',
+ "x" x ($blockSize + 1)
+ );
+
+ my $zip = new IO::Compress::Zip $file1,
+ Name => "one", Method => ZIP_CM_STORE, Stream => 0;
+ isa_ok $zip, "IO::Compress::Zip";
+
+ is $zip->write($content[0]), length($content[0]), "write";
+
+ $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
+ is $zip->write($content[1]), length($content[1]), "write";
+
+ ok $zip->close(), "closed";
+
+ my @got = getContent($file1, BlockSize => $blockSize);
+
+ is $got[0], $content[0], "Got 1st entry";
+ is $got[1], $content[1], "Got 2nd entry";
+}
SKIP:
for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
L<Compress::Raw::Bzip2> has been upgraded from version 2.042 to version 2.043.
+=item *
+
+L<IO::Compress::Base> has been upgraded from version 2.042 to version 2.043.
+
=back
=head2 Removed Modules and Pragmata
projects / platform / upstream / perl.git / commitdiff