Update IO-Compress to CPAN version 2.061
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 27 May 2013 21:57:18 +0000 (22:57 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 27 May 2013 21:57:18 +0000 (22:57 +0100)
  [DELTA]

  2.061 19 May 2013

      * zipdetails (1.06)
        Get it to cope with Android 'zipalign' non-standard extra fields.
        These are used to make sure that a non-compressed member starts on
        a 4 byte boundary.

      * RT#84647: unzip example with IO::Uncompress::Unzip

33 files changed:
Porting/Maintainers.pl
cpan/IO-Compress/Changes
cpan/IO-Compress/Makefile.PL
cpan/IO-Compress/README
cpan/IO-Compress/bin/zipdetails
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/compress/truncate.pl

index d52070a..560d7f8 100755 (executable)
@@ -983,7 +983,7 @@ use File::Glob qw(:case);
 
     'IO-Compress' => {
         'MAINTAINER'   => 'pmqs',
-        'DISTRIBUTION' => 'PMQS/IO-Compress-2.060.tar.gz',
+        'DISTRIBUTION' => 'PMQS/IO-Compress-2.061.tar.gz',
         'FILES'        => q[cpan/IO-Compress],
         'EXCLUDED'     => [qr{t/Test/}],
         'UPSTREAM'     => 'cpan',
index 0b82327..e0dd8af 100644 (file)
@@ -1,6 +1,15 @@
 CHANGES
 -------
 
+  2.061 19 May 2013
+
+      * zipdetails (1.06)
+        Get it to cope with Android 'zipalign' non-standard extra fields.
+        These are used to make sure that a non-compressed member starts on 
+        a 4 byte boundary. 
+
+      * RT#84647: unzip example with IO::Uncompress::Unzip
+
   2.060 7 January 2013
 
       * Updated POD
index a0e8ce3..7c386f4 100644 (file)
@@ -3,7 +3,7 @@
 use strict ;
 require 5.006 ;
 
-$::VERSION = '2.060' ;
+$::VERSION = '2.061' ;
 
 use private::MakeUtil;
 use ExtUtils::MakeMaker 5.16 ;
index 1af8b71..0329ce9 100644 (file)
@@ -1,9 +1,9 @@
 
                             IO-Compress
 
-                         Version 2.060
+                         Version 2.061
 
-                             7th January 2013
+                               19th May 2013
 
        Copyright (c) 1995-2013 Paul Marquess. All rights reserved.
           This program is free software; you can redistribute it
@@ -89,7 +89,7 @@ To help me help you, I need all of the following information:
         If you haven't installed IO-Compress then search IO::Compress::Gzip.pm
         for a line like this:
 
-          $VERSION = "2.060" ;
+          $VERSION = "2.061" ;
 
  2. If you are having problems building IO-Compress, send me a
     complete log of what happened. Start by unpacking the IO-Compress
index 2b5cd52..0249850 100644 (file)
@@ -177,7 +177,7 @@ my %Extras = (
 
        );
 
-my $VERSION = "1.05" ;
+my $VERSION = "1.06" ;
 
 my $FH;
 
@@ -347,6 +347,8 @@ sub out
     $TEXT    = $text;
     $VALUE   = mySpr $format,  @_;
        
+    no warnings;
+
     write;
 }
 
@@ -1064,6 +1066,17 @@ sub walkExtra
     
     my $count = 0 ;
     
+    if ($XLEN < ZIP_EXTRA_SUBFIELD_ID_SIZE + ZIP_EXTRA_SUBFIELD_LEN_SIZE)
+    {
+        # Android zipalign is prime candidate for this non-standard extra field.
+        myRead($payload, $XLEN); 
+        my $data = hexDump($payload);
+        
+        out $payload, "Malformed Extra Data", $data;
+
+        return undef;
+    }
+
     while ($offset < $XLEN) {
 
         ++ $count;
@@ -2089,7 +2102,7 @@ error message.
 The primary reference for Zip files is the "appnote" document available at
 L<http://www.pkware.com/documents/casestudies/APPNOTE.TXT>.
 
-An alternative is the Info-Zip appnote. This is available from
+An alternative reference is the Info-Zip appnote. This is available from
 L<ftp://ftp.info-zip.org/pub/infozip/doc/>
 
 
@@ -2097,7 +2110,8 @@ The C<zipinfo> program that comes with the info-zip distribution
 (L<http://www.info-zip.org/>) can also display details of the structure of
 a zip file.
 
-See also L<IO::Compress::Zip>, L<IO::Uncompress::Unzip>.
+See also L<Archive::Zip::SimpleZip>, L<IO::Compress::Zip>,
+L<IO::Uncompress::Unzip>.
 
 
 =head1 AUTHOR
@@ -2106,7 +2120,7 @@ Paul Marquess F<pmqs@cpan.org>.
 
 =head1 COPYRIGHT 
 
-Copyright (c) 2011-2012 Paul Marquess. All rights reserved.
+Copyright (c) 2011-2013 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself. 
index c5525ce..881a238 100644 (file)
@@ -7,17 +7,17 @@ use Carp ;
 use IO::Handle ;
 use Scalar::Util qw(dualvar);
 
-use IO::Compress::Base::Common 2.060 ;
-use Compress::Raw::Zlib 2.060 ;
-use IO::Compress::Gzip 2.060 ;
-use IO::Uncompress::Gunzip 2.060 ;
+use IO::Compress::Base::Common 2.061 ;
+use Compress::Raw::Zlib 2.061 ;
+use IO::Compress::Gzip 2.061 ;
+use IO::Uncompress::Gunzip 2.061 ;
 
 use strict ;
 use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
@@ -461,7 +461,7 @@ sub inflate
 
 package Compress::Zlib ;
 
-use IO::Compress::Gzip::Constants 2.060 ;
+use IO::Compress::Gzip::Constants 2.061 ;
 
 sub memGzip($)
 {
index e665ca3..73d929b 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.060 qw(:Status);
+use IO::Compress::Base::Common  2.061 qw(:Status);
 
-use Compress::Raw::Bzip2  2.060 ;
+use Compress::Raw::Bzip2  2.061 ;
 
 our ($VERSION);
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 sub mkCompObject
 {
index d064a14..da7f9e5 100644 (file)
@@ -4,13 +4,13 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.060 qw(:Status);
-use Compress::Raw::Zlib  2.060 qw( !crc32 !adler32 ) ;
+use IO::Compress::Base::Common 2.061 qw(:Status);
+use Compress::Raw::Zlib  2.061 qw( !crc32 !adler32 ) ;
                                   
 require Exporter;                                     
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 @ISA = qw(Exporter);
 @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
 %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
index 73d911f..c4e2933 100644 (file)
@@ -4,10 +4,10 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.060 qw(:Status);
+use IO::Compress::Base::Common  2.061 qw(:Status);
 our ($VERSION);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 sub mkCompObject
 {
index 9b8ef75..d680252 100644 (file)
@@ -6,7 +6,7 @@ require 5.006 ;
 use strict ;
 use warnings;
 
-use IO::Compress::Base::Common 2.060 ;
+use IO::Compress::Base::Common 2.061 ;
 
 use IO::File (); ;
 use Scalar::Util ();
@@ -20,7 +20,7 @@ use Symbol();
 our (@ISA, $VERSION);
 @ISA    = qw(Exporter IO::File);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 #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 cce097d..f3b5350 100644 (file)
@@ -11,7 +11,7 @@ use File::GlobMapper;
 require Exporter;
 our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
 @ISA = qw(Exporter);
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 @EXPORT = qw( isaFilehandle isaFilename isaScalar
               whatIsInput whatIsOutput 
index 7c5dc79..83f425d 100644 (file)
@@ -5,16 +5,16 @@ use warnings;
 use bytes;
 require Exporter ;
 
-use IO::Compress::Base 2.060 ;
+use IO::Compress::Base 2.061 ;
 
-use IO::Compress::Base::Common  2.060 qw();
-use IO::Compress::Adapter::Bzip2 2.060 ;
+use IO::Compress::Base::Common  2.061 qw();
+use IO::Compress::Adapter::Bzip2 2.061 ;
 
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $Bzip2Error = '';
 
 @ISA    = qw(Exporter IO::Compress::Base);
@@ -51,7 +51,7 @@ sub getExtraParams
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.060 qw(:Parse);
+    use IO::Compress::Base::Common  2.061 qw(:Parse);
     
     return (  
             'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned,  1],
index d6158de..63b8641 100644 (file)
@@ -8,16 +8,16 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.060 ();
-use IO::Compress::Adapter::Deflate 2.060 ;
+use IO::Compress::RawDeflate 2.061 ();
+use IO::Compress::Adapter::Deflate 2.061 ;
 
-use IO::Compress::Zlib::Constants 2.060 ;
-use IO::Compress::Base::Common  2.060 qw();
+use IO::Compress::Zlib::Constants 2.061 ;
+use IO::Compress::Base::Common  2.061 qw();
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $DeflateError = '';
 
 @ISA    = qw(Exporter IO::Compress::RawDeflate);
@@ -238,7 +238,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 deflate $input => $output [, OPTS]
+=head2 deflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<deflate> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index 2114153..f5f8728 100644 (file)
@@ -8,12 +8,12 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.060 () ; 
-use IO::Compress::Adapter::Deflate 2.060 ;
+use IO::Compress::RawDeflate 2.061 () ; 
+use IO::Compress::Adapter::Deflate 2.061 ;
 
-use IO::Compress::Base::Common  2.060 qw(:Status );
-use IO::Compress::Gzip::Constants 2.060 ;
-use IO::Compress::Zlib::Extra 2.060 ;
+use IO::Compress::Base::Common  2.061 qw(:Status );
+use IO::Compress::Gzip::Constants 2.061 ;
+use IO::Compress::Zlib::Extra 2.061 ;
 
 BEGIN
 {
@@ -25,7 +25,7 @@ BEGIN
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $GzipError = '' ;
 
 @ISA    = qw(Exporter IO::Compress::RawDeflate);
@@ -347,7 +347,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 gzip $input => $output [, OPTS]
+=head2 gzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<gzip> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index b65f56b..8081ef6 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.060';
+$VERSION = '2.061';
 
 @ISA = qw(Exporter);
 
index 0862e6e..cc09b46 100644 (file)
@@ -6,15 +6,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base 2.060 ;
-use IO::Compress::Base::Common  2.060 qw(:Status );
-use IO::Compress::Adapter::Deflate 2.060 ;
+use IO::Compress::Base 2.061 ;
+use IO::Compress::Base::Common  2.061 qw(:Status );
+use IO::Compress::Adapter::Deflate 2.061 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $RawDeflateError = '';
 
 @ISA = qw(Exporter IO::Compress::Base);
@@ -116,8 +116,8 @@ sub getExtraParams
     return getZlibParams();
 }
 
-use IO::Compress::Base::Common  2.060 qw(:Parse);
-use Compress::Raw::Zlib  2.060 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+use IO::Compress::Base::Common  2.061 qw(:Parse);
+use Compress::Raw::Zlib  2.061 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],
@@ -294,7 +294,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 rawdeflate $input => $output [, OPTS]
+=head2 rawdeflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<rawdeflate> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index a5bf89e..a0b22d6 100644 (file)
@@ -4,30 +4,30 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.060 qw(:Status );
-use IO::Compress::RawDeflate 2.060 ();
-use IO::Compress::Adapter::Deflate 2.060 ;
-use IO::Compress::Adapter::Identity 2.060 ;
-use IO::Compress::Zlib::Extra 2.060 ;
-use IO::Compress::Zip::Constants 2.060 ;
+use IO::Compress::Base::Common  2.061 qw(:Status );
+use IO::Compress::RawDeflate 2.061 ();
+use IO::Compress::Adapter::Deflate 2.061 ;
+use IO::Compress::Adapter::Identity 2.061 ;
+use IO::Compress::Zlib::Extra 2.061 ;
+use IO::Compress::Zip::Constants 2.061 ;
 
 use File::Spec();
 use Config;
 
-use Compress::Raw::Zlib  2.060 (); 
+use Compress::Raw::Zlib  2.061 (); 
 
 BEGIN
 {
     eval { require IO::Compress::Adapter::Bzip2 ; 
-           import  IO::Compress::Adapter::Bzip2 2.060 ; 
+           import  IO::Compress::Adapter::Bzip2 2.061 ; 
            require IO::Compress::Bzip2 ; 
-           import  IO::Compress::Bzip2 2.060 ; 
+           import  IO::Compress::Bzip2 2.061 ; 
          } ;
          
     eval { require IO::Compress::Adapter::Lzma ; 
-           import  IO::Compress::Adapter::Lzma 2.060 ; 
+           import  IO::Compress::Adapter::Lzma 2.061 ; 
            require IO::Compress::Lzma ; 
-           import  IO::Compress::Lzma 2.060 ; 
+           import  IO::Compress::Lzma 2.061 ; 
          } ;
 }
 
@@ -36,7 +36,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $ZipError = '';
 
 @ISA = qw(Exporter IO::Compress::RawDeflate);
@@ -939,7 +939,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 zip $input => $output [, OPTS]
+=head2 zip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<zip> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index 64cfc26..2b15ab4 100644 (file)
@@ -7,7 +7,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 @ISA = qw(Exporter);
 
index 328fc4a..1bd38ad 100644 (file)
@@ -9,7 +9,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 @ISA = qw(Exporter);
 
index d320dcc..a5b64cc 100644 (file)
@@ -8,9 +8,9 @@ use bytes;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
-use IO::Compress::Gzip::Constants 2.060 ;
+use IO::Compress::Gzip::Constants 2.061 ;
 
 sub ExtraFieldError
 {
index c35601c..02bf7fd 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.060 qw(:Status);
+use IO::Compress::Base::Common 2.061 qw(:Status);
 
-use Compress::Raw::Bzip2 2.060 ;
+use Compress::Raw::Bzip2 2.061 ;
 
 our ($VERSION, @ISA);
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 sub mkUncompObject
 {
index 5c63b5c..721c473 100644 (file)
@@ -4,14 +4,14 @@ use warnings;
 use strict;
 use bytes;
 
-use IO::Compress::Base::Common  2.060 qw(:Status);
+use IO::Compress::Base::Common  2.061 qw(:Status);
 use IO::Compress::Zip::Constants ;
 
 our ($VERSION);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
-use Compress::Raw::Zlib  2.060 ();
+use Compress::Raw::Zlib  2.061 ();
 
 sub mkUncompObject
 {
index 5d8e1a3..c1fcaf9 100644 (file)
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 #use bytes;
 
-use IO::Compress::Base::Common  2.060 qw(:Status);
-use Compress::Raw::Zlib  2.060 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common  2.061 qw(:Status);
+use Compress::Raw::Zlib  2.061 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
 
 our ($VERSION);
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 
 
index 14c695f..5f2062a 100644 (file)
@@ -6,22 +6,22 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.060 ();
+use IO::Compress::Base::Common  2.061 ();
 
-use IO::Uncompress::Adapter::Inflate  2.060 ();
+use IO::Uncompress::Adapter::Inflate  2.061 ();
 
 
-use IO::Uncompress::Base  2.060 ;
-use IO::Uncompress::Gunzip  2.060 ;
-use IO::Uncompress::Inflate  2.060 ;
-use IO::Uncompress::RawInflate  2.060 ;
-use IO::Uncompress::Unzip  2.060 ;
+use IO::Uncompress::Base  2.061 ;
+use IO::Uncompress::Gunzip  2.061 ;
+use IO::Uncompress::Inflate  2.061 ;
+use IO::Uncompress::RawInflate  2.061 ;
+use IO::Uncompress::Unzip  2.061 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $AnyInflateError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -48,7 +48,7 @@ sub anyinflate
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.060 qw(:Parse);
+    use IO::Compress::Base::Common  2.061 qw(:Parse);
     return ( 'rawinflate' => [Parse_boolean,  0] ) ;
 }
 
@@ -210,7 +210,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 anyinflate $input => $output [, OPTS]
+=head2 anyinflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<anyinflate> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index a202763..ce73a56 100644 (file)
@@ -4,16 +4,16 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.060 ();
+use IO::Compress::Base::Common 2.061 ();
 
-use IO::Uncompress::Base 2.060 ;
+use IO::Uncompress::Base 2.061 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $AnyUncompressError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -27,22 +27,22 @@ Exporter::export_ok_tags('all');
 
 BEGIN
 {
-   eval ' use IO::Uncompress::Adapter::Inflate 2.060 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.060 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.060 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.060 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzma 2.060 ;';
-   eval ' use IO::Uncompress::Adapter::UnXz 2.060 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.060 ;';
-   eval ' use IO::Uncompress::UnLzop 2.060 ;';
-   eval ' use IO::Uncompress::Gunzip 2.060 ;';
-   eval ' use IO::Uncompress::Inflate 2.060 ;';
-   eval ' use IO::Uncompress::RawInflate 2.060 ;';
-   eval ' use IO::Uncompress::Unzip 2.060 ;';
-   eval ' use IO::Uncompress::UnLzf 2.060 ;';
-   eval ' use IO::Uncompress::UnLzma 2.060 ;';
-   eval ' use IO::Uncompress::UnXz 2.060 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.061 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.061 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.061 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.061 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.061 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.061 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.061 ;';
+   eval ' use IO::Uncompress::UnLzop 2.061 ;';
+   eval ' use IO::Uncompress::Gunzip 2.061 ;';
+   eval ' use IO::Uncompress::Inflate 2.061 ;';
+   eval ' use IO::Uncompress::RawInflate 2.061 ;';
+   eval ' use IO::Uncompress::Unzip 2.061 ;';
+   eval ' use IO::Uncompress::UnLzf 2.061 ;';
+   eval ' use IO::Uncompress::UnLzma 2.061 ;';
+   eval ' use IO::Uncompress::UnXz 2.061 ;';
 }
 
 sub new
@@ -318,7 +318,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 anyuncompress $input => $output [, OPTS]
+=head2 anyuncompress $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<anyuncompress> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index 5d6336b..b6df7c0 100644 (file)
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
 @ISA    = qw(Exporter IO::File);
 
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 use constant G_EOF => 0 ;
 use constant G_ERR => -1 ;
 
-use IO::Compress::Base::Common 2.060 ;
+use IO::Compress::Base::Common 2.061 ;
 
 use IO::File ;
 use Symbol;
index ccfb69b..0aeef1f 100644 (file)
@@ -4,15 +4,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.060 qw(:Status );
+use IO::Compress::Base::Common 2.061 qw(:Status );
 
-use IO::Uncompress::Base 2.060 ;
-use IO::Uncompress::Adapter::Bunzip2 2.060 ;
+use IO::Uncompress::Base 2.061 ;
+use IO::Uncompress::Adapter::Bunzip2 2.061 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $Bunzip2Error = '';
 
 @ISA    = qw( Exporter IO::Uncompress::Base );
index 753d34a..fa9fdcc 100644 (file)
@@ -9,12 +9,12 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.060 ;
+use IO::Uncompress::RawInflate 2.061 ;
 
-use Compress::Raw::Zlib 2.060 () ;
-use IO::Compress::Base::Common 2.060 qw(:Status );
-use IO::Compress::Gzip::Constants 2.060 ;
-use IO::Compress::Zlib::Extra 2.060 ;
+use Compress::Raw::Zlib 2.061 () ;
+use IO::Compress::Base::Common 2.061 qw(:Status );
+use IO::Compress::Gzip::Constants 2.061 ;
+use IO::Compress::Zlib::Extra 2.061 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
 
 $GunzipError = '';
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 
 sub new
 {
@@ -345,7 +345,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 gunzip $input => $output [, OPTS]
+=head2 gunzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<gunzip> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index 4cea9aa..7d33d5f 100644 (file)
@@ -5,15 +5,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.060 qw(:Status );
-use IO::Compress::Zlib::Constants 2.060 ;
+use IO::Compress::Base::Common  2.061 qw(:Status );
+use IO::Compress::Zlib::Constants 2.061 ;
 
-use IO::Uncompress::RawInflate  2.060 ;
+use IO::Uncompress::RawInflate  2.061 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $InflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::RawInflate );
@@ -267,7 +267,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 inflate $input => $output [, OPTS]
+=head2 inflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<inflate> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index 9a57eb3..3201865 100644 (file)
@@ -5,16 +5,16 @@ use strict ;
 use warnings;
 #use bytes;
 
-use Compress::Raw::Zlib  2.060 ;
-use IO::Compress::Base::Common  2.060 qw(:Status );
+use Compress::Raw::Zlib  2.061 ;
+use IO::Compress::Base::Common  2.061 qw(:Status );
 
-use IO::Uncompress::Base  2.060 ;
-use IO::Uncompress::Adapter::Inflate  2.060 ;
+use IO::Uncompress::Base  2.061 ;
+use IO::Uncompress::Adapter::Inflate  2.061 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $RawInflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::Base );
@@ -415,7 +415,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 rawinflate $input => $output [, OPTS]
+=head2 rawinflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<rawinflate> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
index 4175136..1a3474b 100644 (file)
@@ -9,14 +9,14 @@ use warnings;
 #use bytes;
 
 use IO::File;
-use IO::Uncompress::RawInflate  2.060 ;
-use IO::Compress::Base::Common  2.060 qw(:Status );
-use IO::Uncompress::Adapter::Inflate  2.060 ;
-use IO::Uncompress::Adapter::Identity 2.060 ;
-use IO::Compress::Zlib::Extra 2.060 ;
-use IO::Compress::Zip::Constants 2.060 ;
+use IO::Uncompress::RawInflate  2.061 ;
+use IO::Compress::Base::Common  2.061 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.061 ;
+use IO::Uncompress::Adapter::Identity 2.061 ;
+use IO::Compress::Zlib::Extra 2.061 ;
+use IO::Compress::Zip::Constants 2.061 ;
 
-use Compress::Raw::Zlib  2.060 () ;
+use Compress::Raw::Zlib  2.061 () ;
 
 BEGIN
 {
@@ -31,7 +31,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.060';
+$VERSION = '2.061';
 $UnzipError = '';
 
 @ISA    = qw(Exporter IO::Uncompress::RawInflate);
@@ -1101,7 +1101,7 @@ section.
 
 The functional interface needs Perl5.005 or better.
 
-=head2 unzip $input => $output [, OPTS]
+=head2 unzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<unzip> expects at least two parameters,
 C<$input_filename_or_reference> and C<$output_filename_or_reference>.
@@ -1821,6 +1821,13 @@ It is also worth noting that C<nextStream> can be called at any time -- you
 don't have to wait until you have exhausted a compressed data stream before
 skipping to the next one.
 
+=head2 Unzipping a complete zip file to disk
+
+Daniel S. Sterling has written a script that uses C<IO::Uncompress::UnZip>
+to read a zip file and unzip its contents to disk.
+
+The script is available from L<https://gist.github.com/eqhmcow/5389877>
+
 =head1 SEE ALSO
 
 L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
index 764821e..9511eee 100644 (file)
@@ -25,7 +25,7 @@ BEGIN
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
 
-    my $VERSION = '2.060';
+    my $VERSION = '2.061';
     my @NAMES = qw(
                        Compress::Raw::Bzip2
                        Compress::Raw::Zlib
index 9f5eec9..9de19b1 100644 (file)
@@ -189,14 +189,17 @@ sub run
             {
                 next if $i == 0 ;
 
-                my $lex = new LexFile my $name ;
-                my $input;
-            
+#                my $lex = new LexFile my $name ;
+#                my $input;
+#            
                 for my $mode (qw(block line))
                 {
 
                     title "Compressed Data Truncation - length $i, MOde $mode, Source $fb, Transparent $trans";
 
+                    my $lex = new LexFile my $name ;
+                    my $input;
+                
                     my $part = substr($compressed, 0, $i);
                     if ($fb eq 'filehandle')
                     {