Update IO-Compress to CPAN version 2.087
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 12 Aug 2019 18:48:50 +0000 (19:48 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 12 Aug 2019 18:48:50 +0000 (19:48 +0100)
  [DELTA]

  2.087 10 August 2019

      * IO::Uncompress::Unzip
        nextStream not updating filehandle correctly
        https://github.com/pmqs/IO-Compress/issues/3
        25152f04f5b1bd9341502e42a5877c72eac3f291

      * Added travis & appveyor files for CI in GitHub

31 files changed:
Porting/Maintainers.pl
cpan/IO-Compress/Makefile.PL
cpan/IO-Compress/lib/Compress/Zlib.pm
cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm
cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm
cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm
cpan/IO-Compress/lib/IO/Compress/Base.pm
cpan/IO-Compress/lib/IO/Compress/Base/Common.pm
cpan/IO-Compress/lib/IO/Compress/Bzip2.pm
cpan/IO-Compress/lib/IO/Compress/Deflate.pm
cpan/IO-Compress/lib/IO/Compress/Gzip.pm
cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm
cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm
cpan/IO-Compress/lib/IO/Compress/Zip.pm
cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm
cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm
cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm
cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm
cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm
cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm
cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm
cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm
cpan/IO-Compress/lib/IO/Uncompress/Base.pm
cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm
cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm
cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm
cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm
cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm
cpan/IO-Compress/t/000prereq.t
cpan/IO-Compress/t/006zip.t
cpan/IO-Compress/t/compress/multi.pl

index 713f7e7..64c6e10 100755 (executable)
@@ -618,7 +618,7 @@ use File::Glob qw(:case);
     },
 
     'IO-Compress' => {
-        'DISTRIBUTION' => 'PMQS/IO-Compress-2.086.tar.gz',
+        'DISTRIBUTION' => 'PMQS/IO-Compress-2.087.tar.gz',
         'FILES'        => q[cpan/IO-Compress],
         'EXCLUDED'     => [
             qr{^examples/},
index f716e08..093b17a 100644 (file)
@@ -3,7 +3,7 @@
 use strict ;
 require 5.006 ;
 
-$::VERSION = '2.086' ;
+$::VERSION = '2.087' ;
 
 use lib '.';
 use private::MakeUtil;
index 70396fe..9884cea 100644 (file)
@@ -7,17 +7,17 @@ use Carp ;
 use IO::Handle ;
 use Scalar::Util qw(dualvar);
 
-use IO::Compress::Base::Common 2.086 ;
-use Compress::Raw::Zlib 2.086 ;
-use IO::Compress::Gzip 2.086 ;
-use IO::Uncompress::Gunzip 2.086 ;
+use IO::Compress::Base::Common 2.087 ;
+use Compress::Raw::Zlib 2.087 ;
+use IO::Compress::Gzip 2.087 ;
+use IO::Uncompress::Gunzip 2.087 ;
 
 use strict ;
 use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
@@ -461,7 +461,7 @@ sub inflate
 
 package Compress::Zlib ;
 
-use IO::Compress::Gzip::Constants 2.086 ;
+use IO::Compress::Gzip::Constants 2.087 ;
 
 sub memGzip($)
 {
index efc3e32..78a8170 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status);
+use IO::Compress::Base::Common  2.087 qw(:Status);
 
-use Compress::Raw::Bzip2  2.086 ;
+use Compress::Raw::Bzip2  2.087 ;
 
 our ($VERSION);
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 sub mkCompObject
 {
index d495e98..39d84d9 100644 (file)
@@ -4,13 +4,13 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.086 qw(:Status);
-use Compress::Raw::Zlib  2.086 qw( !crc32 !adler32 ) ;
+use IO::Compress::Base::Common 2.087 qw(:Status);
+use Compress::Raw::Zlib  2.087 qw( !crc32 !adler32 ) ;
                                   
 require Exporter;                                     
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 @ISA = qw(Exporter);
 @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
 %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
index 7ff2ed5..12db1ff 100644 (file)
@@ -4,10 +4,10 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status);
+use IO::Compress::Base::Common  2.087 qw(:Status);
 our ($VERSION);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 sub mkCompObject
 {
index 0981a10..7949af7 100644 (file)
@@ -6,7 +6,7 @@ require 5.006 ;
 use strict ;
 use warnings;
 
-use IO::Compress::Base::Common 2.086 ;
+use IO::Compress::Base::Common 2.087 ;
 
 use IO::File (); ;
 use Scalar::Util ();
@@ -20,7 +20,7 @@ use Symbol();
 our (@ISA, $VERSION);
 @ISA    = qw(IO::File Exporter);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 #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.
 
index 2dfa70e..a78064f 100644 (file)
@@ -11,7 +11,7 @@ use File::GlobMapper;
 require Exporter;
 our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
 @ISA = qw(Exporter);
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 @EXPORT = qw( isaFilehandle isaFilename isaScalar
               whatIsInput whatIsOutput
index fd5f25f..03fb7e6 100644 (file)
@@ -5,16 +5,16 @@ use warnings;
 use bytes;
 require Exporter ;
 
-use IO::Compress::Base 2.086 ;
+use IO::Compress::Base 2.087 ;
 
-use IO::Compress::Base::Common  2.086 qw();
-use IO::Compress::Adapter::Bzip2 2.086 ;
+use IO::Compress::Base::Common  2.087 qw();
+use IO::Compress::Adapter::Bzip2 2.087 ;
 
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $Bzip2Error = '';
 
 @ISA    = qw(IO::Compress::Base Exporter);
@@ -51,7 +51,7 @@ sub getExtraParams
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.086 qw(:Parse);
+    use IO::Compress::Base::Common  2.087 qw(:Parse);
     
     return (  
             'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned,  1],
index 029a60a..f694237 100644 (file)
@@ -8,16 +8,16 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.086 ();
-use IO::Compress::Adapter::Deflate 2.086 ;
+use IO::Compress::RawDeflate 2.087 ();
+use IO::Compress::Adapter::Deflate 2.087 ;
 
-use IO::Compress::Zlib::Constants 2.086 ;
-use IO::Compress::Base::Common  2.086 qw();
+use IO::Compress::Zlib::Constants 2.087 ;
+use IO::Compress::Base::Common  2.087 qw();
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $DeflateError = '';
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
index bdb218c..d12f7cd 100644 (file)
@@ -8,12 +8,12 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.086 () ; 
-use IO::Compress::Adapter::Deflate 2.086 ;
+use IO::Compress::RawDeflate 2.087 () ; 
+use IO::Compress::Adapter::Deflate 2.087 ;
 
-use IO::Compress::Base::Common  2.086 qw(:Status );
-use IO::Compress::Gzip::Constants 2.086 ;
-use IO::Compress::Zlib::Extra 2.086 ;
+use IO::Compress::Base::Common  2.087 qw(:Status );
+use IO::Compress::Gzip::Constants 2.087 ;
+use IO::Compress::Zlib::Extra 2.087 ;
 
 BEGIN
 {
@@ -25,7 +25,7 @@ BEGIN
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $GzipError = '' ;
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
index aad288e..7d32144 100644 (file)
@@ -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.086';
+$VERSION = '2.087';
 
 @ISA = qw(Exporter);
 
index 73d3c1c..8865724 100644 (file)
@@ -6,15 +6,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base 2.086 ;
-use IO::Compress::Base::Common  2.086 qw(:Status );
-use IO::Compress::Adapter::Deflate 2.086 ;
+use IO::Compress::Base 2.087 ;
+use IO::Compress::Base::Common  2.087 qw(:Status );
+use IO::Compress::Adapter::Deflate 2.087 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $RawDeflateError = '';
 
 @ISA = qw(IO::Compress::Base Exporter);
@@ -116,8 +116,8 @@ sub getExtraParams
     return getZlibParams();
 }
 
-use IO::Compress::Base::Common  2.086 qw(:Parse);
-use Compress::Raw::Zlib  2.086 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+use IO::Compress::Base::Common  2.087 qw(:Parse);
+use Compress::Raw::Zlib  2.087 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],
index f30f45c..a5a2566 100644 (file)
@@ -4,30 +4,30 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status );
-use IO::Compress::RawDeflate 2.086 ();
-use IO::Compress::Adapter::Deflate 2.086 ;
-use IO::Compress::Adapter::Identity 2.086 ;
-use IO::Compress::Zlib::Extra 2.086 ;
-use IO::Compress::Zip::Constants 2.086 ;
+use IO::Compress::Base::Common  2.087 qw(:Status );
+use IO::Compress::RawDeflate 2.087 ();
+use IO::Compress::Adapter::Deflate 2.087 ;
+use IO::Compress::Adapter::Identity 2.087 ;
+use IO::Compress::Zlib::Extra 2.087 ;
+use IO::Compress::Zip::Constants 2.087 ;
 
 use File::Spec();
 use Config;
 
-use Compress::Raw::Zlib  2.086 (); 
+use Compress::Raw::Zlib  2.087 (); 
 
 BEGIN
 {
     eval { require IO::Compress::Adapter::Bzip2 ; 
-           import  IO::Compress::Adapter::Bzip2 2.086 ; 
+           import  IO::Compress::Adapter::Bzip2 2.087 ; 
            require IO::Compress::Bzip2 ; 
-           import  IO::Compress::Bzip2 2.086 ; 
+           import  IO::Compress::Bzip2 2.087 ; 
          } ;
          
     eval { require IO::Compress::Adapter::Lzma ; 
-           import  IO::Compress::Adapter::Lzma 2.086 ; 
+           import  IO::Compress::Adapter::Lzma 2.087 ; 
            require IO::Compress::Lzma ; 
-           import  IO::Compress::Lzma 2.086 ; 
+           import  IO::Compress::Lzma 2.087 ; 
          } ;
 }
 
@@ -36,7 +36,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $ZipError = '';
 
 @ISA = qw(IO::Compress::RawDeflate Exporter);
index b087ff1..55aac59 100644 (file)
@@ -7,7 +7,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 @ISA = qw(Exporter);
 
index a7190c2..7cfc77e 100644 (file)
@@ -9,7 +9,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 @ISA = qw(Exporter);
 
index bfe0aca..387f61c 100644 (file)
@@ -8,9 +8,9 @@ use bytes;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
-use IO::Compress::Gzip::Constants 2.086 ;
+use IO::Compress::Gzip::Constants 2.087 ;
 
 sub ExtraFieldError
 {
index 79cd989..30c9d28 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.086 qw(:Status);
+use IO::Compress::Base::Common 2.087 qw(:Status);
 
-use Compress::Raw::Bzip2 2.086 ;
+use Compress::Raw::Bzip2 2.087 ;
 
 our ($VERSION, @ISA);
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 sub mkUncompObject
 {
index 443cf8d..8d7337d 100644 (file)
@@ -4,14 +4,14 @@ use warnings;
 use strict;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status);
+use IO::Compress::Base::Common  2.087 qw(:Status);
 use IO::Compress::Zip::Constants ;
 
 our ($VERSION);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
-use Compress::Raw::Zlib  2.086 ();
+use Compress::Raw::Zlib  2.087 ();
 
 sub mkUncompObject
 {
index afbad07..6828a2d 100644 (file)
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status);
-use Compress::Raw::Zlib  2.086 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common  2.087 qw(:Status);
+use Compress::Raw::Zlib  2.087 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
 
 our ($VERSION);
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 
 
index cb04b1e..a716c81 100644 (file)
@@ -6,22 +6,22 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 ();
+use IO::Compress::Base::Common  2.087 ();
 
-use IO::Uncompress::Adapter::Inflate  2.086 ();
+use IO::Uncompress::Adapter::Inflate  2.087 ();
 
 
-use IO::Uncompress::Base  2.086 ;
-use IO::Uncompress::Gunzip  2.086 ;
-use IO::Uncompress::Inflate  2.086 ;
-use IO::Uncompress::RawInflate  2.086 ;
-use IO::Uncompress::Unzip  2.086 ;
+use IO::Uncompress::Base  2.087 ;
+use IO::Uncompress::Gunzip  2.087 ;
+use IO::Uncompress::Inflate  2.087 ;
+use IO::Uncompress::RawInflate  2.087 ;
+use IO::Uncompress::Unzip  2.087 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $AnyInflateError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
@@ -48,7 +48,7 @@ sub anyinflate
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.086 qw(:Parse);
+    use IO::Compress::Base::Common  2.087 qw(:Parse);
     return ( 'rawinflate' => [Parse_boolean,  0] ) ;
 }
 
index 69e8085..c7b0e24 100644 (file)
@@ -4,16 +4,16 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.086 ();
+use IO::Compress::Base::Common 2.087 ();
 
-use IO::Uncompress::Base 2.086 ;
+use IO::Uncompress::Base 2.087 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $AnyUncompressError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
@@ -33,26 +33,26 @@ BEGIN
    # Don't trigger any __DIE__ Hooks.
    local $SIG{__DIE__};
 
-   eval ' use IO::Uncompress::Adapter::Inflate 2.086 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.086 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.086 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.086 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzma 2.086 ;';
-   eval ' use IO::Uncompress::Adapter::UnXz 2.086 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.087 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.087 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.087 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.087 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.087 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.087 ;';
    eval ' use IO::Uncompress::Adapter::UnZstd 2.083 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzip 2.086 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.086 ;';
-   eval ' use IO::Uncompress::UnLzop 2.086 ;';
-   eval ' use IO::Uncompress::Gunzip 2.086 ;';
-   eval ' use IO::Uncompress::Inflate 2.086 ;';
-   eval ' use IO::Uncompress::RawInflate 2.086 ;';
-   eval ' use IO::Uncompress::Unzip 2.086 ;';
-   eval ' use IO::Uncompress::UnLzf 2.086 ;';
-   eval ' use IO::Uncompress::UnLzma 2.086 ;';
-   eval ' use IO::Uncompress::UnXz 2.086 ;';
-   eval ' use IO::Uncompress::UnZstd 2.086 ;';
-   eval ' use IO::Uncompress::UnLzip 2.086 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzip 2.087 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.087 ;';
+   eval ' use IO::Uncompress::UnLzop 2.087 ;';
+   eval ' use IO::Uncompress::Gunzip 2.087 ;';
+   eval ' use IO::Uncompress::Inflate 2.087 ;';
+   eval ' use IO::Uncompress::RawInflate 2.087 ;';
+   eval ' use IO::Uncompress::Unzip 2.087 ;';
+   eval ' use IO::Uncompress::UnLzf 2.087 ;';
+   eval ' use IO::Uncompress::UnLzma 2.087 ;';
+   eval ' use IO::Uncompress::UnXz 2.087 ;';
+   eval ' use IO::Uncompress::UnZstd 2.087 ;';
+   eval ' use IO::Uncompress::UnLzip 2.087 ;';
 
 }
 
index 8fd00f8..6b8636a 100644 (file)
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
 @ISA    = qw(IO::File Exporter);
 
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 use constant G_EOF => 0 ;
 use constant G_ERR => -1 ;
 
-use IO::Compress::Base::Common 2.086 ;
+use IO::Compress::Base::Common 2.087 ;
 
 use IO::File ;
 use Symbol;
@@ -1010,6 +1010,9 @@ sub nextStream
     $status == 1
         or return $status ;
 
+    *$self->{Pending} = ''
+        if $self !~ /IO::Uncompress::RawInflate/ && ! *$self->{MultiStream};
+
     *$self->{TotalInflatedBytesRead} = 0 ;
     *$self->{LineNo} = $. = 0;
 
index 427b98f..4077998 100644 (file)
@@ -4,15 +4,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.086 qw(:Status );
+use IO::Compress::Base::Common 2.087 qw(:Status );
 
-use IO::Uncompress::Base 2.086 ;
-use IO::Uncompress::Adapter::Bunzip2 2.086 ;
+use IO::Uncompress::Base 2.087 ;
+use IO::Uncompress::Adapter::Bunzip2 2.087 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $Bunzip2Error = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
index 1ca0456..c040305 100644 (file)
@@ -9,12 +9,12 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.086 ;
+use IO::Uncompress::RawInflate 2.087 ;
 
-use Compress::Raw::Zlib 2.086 () ;
-use IO::Compress::Base::Common 2.086 qw(:Status );
-use IO::Compress::Gzip::Constants 2.086 ;
-use IO::Compress::Zlib::Extra 2.086 ;
+use Compress::Raw::Zlib 2.087 () ;
+use IO::Compress::Base::Common 2.087 qw(:Status );
+use IO::Compress::Gzip::Constants 2.087 ;
+use IO::Compress::Zlib::Extra 2.087 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
 
 $GunzipError = '';
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 
 sub new
 {
index 260b762..850ae37 100644 (file)
@@ -5,15 +5,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status );
-use IO::Compress::Zlib::Constants 2.086 ;
+use IO::Compress::Base::Common  2.087 qw(:Status );
+use IO::Compress::Zlib::Constants 2.087 ;
 
-use IO::Uncompress::RawInflate  2.086 ;
+use IO::Uncompress::RawInflate  2.087 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $InflateError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
index 0118a22..5e57e56 100644 (file)
@@ -5,16 +5,16 @@ use strict ;
 use warnings;
 use bytes;
 
-use Compress::Raw::Zlib  2.086 ;
-use IO::Compress::Base::Common  2.086 qw(:Status );
+use Compress::Raw::Zlib  2.087 ;
+use IO::Compress::Base::Common  2.087 qw(:Status );
 
-use IO::Uncompress::Base  2.086 ;
-use IO::Uncompress::Adapter::Inflate  2.086 ;
+use IO::Uncompress::Base  2.087 ;
+use IO::Uncompress::Adapter::Inflate  2.087 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $RawInflateError = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
index a1ec388..8b83969 100644 (file)
@@ -9,14 +9,14 @@ use warnings;
 use bytes;
 
 use IO::File;
-use IO::Uncompress::RawInflate  2.086 ;
-use IO::Compress::Base::Common  2.086 qw(:Status );
-use IO::Uncompress::Adapter::Inflate  2.086 ;
-use IO::Uncompress::Adapter::Identity 2.086 ;
-use IO::Compress::Zlib::Extra 2.086 ;
-use IO::Compress::Zip::Constants 2.086 ;
+use IO::Uncompress::RawInflate  2.087 ;
+use IO::Compress::Base::Common  2.087 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.087 ;
+use IO::Uncompress::Adapter::Identity 2.087 ;
+use IO::Compress::Zlib::Extra 2.087 ;
+use IO::Compress::Zip::Constants 2.087 ;
 
-use Compress::Raw::Zlib  2.086 () ;
+use Compress::Raw::Zlib  2.087 () ;
 
 BEGIN
 {
@@ -34,7 +34,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.086';
+$VERSION = '2.087';
 $UnzipError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
index 08a7d78..0c4d840 100644 (file)
@@ -25,7 +25,7 @@ BEGIN
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
 
-    my $VERSION = '2.086';
+    my $VERSION = '2.087';
     my @NAMES = qw(
                        Compress::Raw::Bzip2
                        Compress::Raw::Zlib
index 33afa8e..cfc53d7 100644 (file)
@@ -19,7 +19,7 @@ BEGIN {
     $extra = 1
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
-    plan tests => 101 + $extra ;
+    plan tests => 108 + $extra ;
 
     use_ok('IO::Compress::Zip', qw(:all)) ;
     use_ok('IO::Uncompress::Unzip', qw(unzip $UnzipError)) ;
@@ -360,3 +360,45 @@ for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
     is $u->getHeaderInfo()->{Name}, "0", "Name is '0'";
 }
 
+
+{
+    title "nexStream regression";
+    # https://github.com/pmqs/IO-Compress/issues/3
+
+    my $lex = new LexFile my $file1;
+
+    my $content1 = qq["organisation_path","collection_occasion_key","episode_key"\n] ;
+                 
+    my $zip = new IO::Compress::Zip $file1,
+                    Name => "one";
+    isa_ok $zip, "IO::Compress::Zip";
+
+    print $zip $content1;
+
+    $zip->newStream(Name=> "two");
+
+    my $content2 = <<EOM;
+"key","value"
+"version","2"
+"type","PMHC"
+EOM
+    print $zip $content2;
+
+    ok $zip->close(), "closed";                    
+
+
+    my $u = new IO::Uncompress::Unzip $file1, Append => 1, @_
+        or die "Cannot open $file1: $UnzipError";
+
+    isa_ok $u, "IO::Uncompress::Unzip";
+
+    my $name = $u->getHeaderInfo()->{Name};
+    
+    is $u->getHeaderInfo()->{Name}, "one", "Name is 'one'";
+
+    ok $u->nextStream(), "nextStream OK";
+
+    my $line = <$u>;
+
+    is $line, qq["key","value"\n], "got line 1 from second member";
+}
\ No newline at end of file
index 4d587fb..48129a7 100644 (file)
@@ -216,7 +216,8 @@ EOM
                         ok $gz->eof(), "      eof()";
                         is $gz->streamCount(), $stream, "    streamCount is $stream"
                             or diag "Stream count is " . $gz->streamCount();
-                        ok $un eq $buff, "    expected output" ;
+                        is $un, $buff, "    expected output" 
+                            or diag "Stream count is " . $gz->streamCount();                        ;
                         #is $gz->tell(), length $buff, "    tell is ok";
                         is $gz->nextStream(), 1, "    nextStream ok";
                         is $gz->tell(), 0, "    tell is 0";