Perl
diff --git a/‎MANIFEST
Lines changed: 1 addition & 0 deletions b/‎MANIFEST
Lines changed: 1 addition & 0 deletions
diff --git a/‎Porting/Maintainers.pl
Lines changed: 1 addition & 1 deletion b/‎Porting/Maintainers.pl
Lines changed: 1 addition & 1 deletion
diff --git a/‎cpan/IO-Compress/Makefile.PL
Lines changed: 16 additions & 16 deletions b/‎cpan/IO-Compress/Makefile.PL
Lines changed: 16 additions & 16 deletions
diff --git a/‎cpan/IO-Compress/bin/streamzip
Lines changed: 48 additions & 43 deletions b/‎cpan/IO-Compress/bin/streamzip
Lines changed: 48 additions & 43 deletions
@@ -1148,6 +1148,7 @@ cpan/IO-Compress/t/files/encrypt-standard.zip
 cpan/IO-Compress/t/files/jar.zip
 cpan/IO-Compress/t/files/meta.xml
 cpan/IO-Compress/t/files/test.ods
+cpan/IO-Compress/t/files/testfile1.odt
 cpan/IO-Compress/t/globmapper.t				IO::Compress
 cpan/IO-Socket-IP/lib/IO/Socket/IP.pm			IO::Socket::IP
 cpan/IO-Socket-IP/t/00use.t				IO::Socket::IP tests
 
@@ -643,7 +643,7 @@ package Maintainers;
     },
 
     'IO-Compress' => {
-        'DISTRIBUTION' => 'PMQS/IO-Compress-2.093.tar.gz',
+        'DISTRIBUTION' => 'PMQS/IO-Compress-2.096.tar.gz',
         'FILES'        => q[cpan/IO-Compress],
         'EXCLUDED'     => [
             qr{^examples/},
 
@@ -3,7 +3,7 @@
 use strict ;
 require 5.006 ;
 
-$::VERSION = '2.093' ;
+$::VERSION = '2.096' ;
 
 use lib '.';
 use private::MakeUtil;
@@ -12,10 +12,10 @@ use ExtUtils::MakeMaker 5.16 ;
 UpDowngrade(getPerlFiles('MANIFEST'))
     unless $ENV{PERL_CORE};
 
-WriteMakefile( 
+WriteMakefile(
     NAME         => 'IO::Compress',
     VERSION_FROM => 'lib/IO/Compress/Base.pm',
-    'dist'       => { COMPRESS     => 'gzip', 
+    'dist'       => { COMPRESS     => 'gzip',
                       TARFLAGS     => '-chvf',
                       SUFFIX       => 'gz',
                       DIST_DEFAULT => 'MyTrebleCheck tardist',
@@ -25,14 +25,15 @@ WriteMakefile(
       $ENV{SKIP_FOR_CORE}
         ? ()
 	    : (PREREQ_PM   => { 'Compress::Raw::Bzip2' => $::VERSION,
-		                    'Compress::Raw::Zlib'   => $::VERSION,
+		                    'Compress::Raw::Zlib'  => $::VERSION,
 		                    'Scalar::Util'  => 0,
-		                    $] >= 5.005 && $] < 5.006   
-                                ? ('File::BSDGlob' => 0) 
+                            'Encode'        => 0,
+		                    $] >= 5.005 && $] < 5.006
+                                ? ('File::BSDGlob' => 0)
                                 : () }
 	      )
     ),
-       
+
     (
     $] >= 5.005
         ? (ABSTRACT => 'IO Interface to compressed data files/buffers',
@@ -43,24 +44,24 @@ WriteMakefile(
     INSTALLDIRS => ($] >= 5.009 && $] < 5.011 ? 'perl' : 'site'),
 
     EXE_FILES => ['bin/zipdetails', 'bin/streamzip'],
-    
+
     (
     $] >= 5.009 && $] <= 5.011001 && ! $ENV{PERL_CORE}
         ? (INSTALLPRIVLIB    => '$(INSTALLARCHLIB)')
         : ()
     ),
 
-     ( eval { ExtUtils::MakeMaker->VERSION(6.46) }  
+     ( eval { ExtUtils::MakeMaker->VERSION(6.46) }
         ? ( META_MERGE  => {
-    
+
                 "meta-spec" => { version => 2 },
 
                 no_index => {
                     directory => [ 't', 'private' ],
                 },
 
                 resources   => {
-                
+
                     bugtracker  => {
                         web     => 'https://github.com/pmqs/IO-Compress/issues'
                     },
@@ -71,17 +72,16 @@ WriteMakefile(
                         type    => 'git',
                         url     => 'git://github.com/pmqs/IO-Compress.git',
                         web     => 'https://github.com/pmqs/IO-Compress',
-                    },        
+                    },
                 },
-              } 
-            ) 
+              }
+            )
         : ()
     ),
 
     ((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
-        ('LICENSE'  => 'perl')         : ()),    
+        ('LICENSE'  => 'perl')         : ()),
 
 ) ;
 
 # end of file Makefile.PL
-
@@ -12,7 +12,7 @@ use IO::Compress::Zip qw(zip
                          ZIP_CM_LZMA );
 use Getopt::Long;
 
-my $VERSION = '1.0';
+my $VERSION = '1.001';
 
 my $compression_method = ZIP_CM_DEFLATE;
 my $stream = 0;
@@ -63,7 +63,7 @@ sub lookupMethod
     if ($method == ZIP_CM_LZMA)
     {
         eval ' use IO::Compress::Adapter::Lzma';
-        die "Method =. LZMA needs IO::Compress::Adapter::Lzma\n"
+        die "Method 'LZMA' needs IO::Compress::Adapter::Lzma\n"
             if ! defined $IO::Compress::Lzma::VERSION;
     }
 
@@ -72,21 +72,24 @@ sub lookupMethod
 
 sub Usage
 {
-    die <<EOM;
-streamzip [OPTIONS]
+    print <<EOM;
+Usage:
+  producer | streamzip [OPTIONS] | consumer
+  producer | streamzip [OPTIONS] -zipfile=output.zip
 
 Stream data from stdin, compress into a Zip container, and stream to stdout.
 
 OPTIONS
 
-  -zipfile=F      Write zip container to the filename F
-  -member-name=M  member name [Default '-']
+  -zipfile=F      Write zip container to the filename 'F'
+                  Outputs to stdout if zipfile not specified.
+  -member-name=M  Set member name to 'M' [Default '-']
   -zip64          Create a Zip64-compliant zip file [Default: No]
-                  Use Zip64 if input is greater than 4Gig.
-  -stream         Write a streamed zip file
+                  Enable Zip64 if input is greater than 4Gig.
+  -stream         Force a streamed zip file when zipfile is also enabled.
                   Only applies when 'zipfile' option is used. [Default: No]
-                  Always enabled when writing to stdout.
-  -method=M       Compress using method "M".
+                  Stream is always enabled when writing to stdout.
+  -method=M       Compress using method 'M'.
                   Valid methods are
                     store    Store without compression
                     deflate  Use Deflate compression [Deflault]
@@ -95,12 +98,13 @@ OPTIONS
                   Lzma needs IO::Compress::Lzma to be installed.
   -version        Display version number [$VERSION]
 
-Copyright (c) 2019 Paul Marquess. All rights reserved.
+Copyright (c) 2019-2020 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.
 
 EOM
+    exit;
 }
 
 
@@ -116,62 +120,64 @@ streamzip - create a zip file from stdin
 
 =head1 DESCRIPTION
 
-This program will read data from stdin, compress it into a zip container and,
-by default, write a I<streamed> zip file to stdout. No temporary files are created.
+This program will read data from C<stdin>, compress it into a zip container
+and, by default, write a I<streamed> zip file to C<stdout>. No temporary
+files are created.
 
-The zip container written to stdout is, by necessity, written in streaming
-format.  Most programs that read Zip files can cope with a streamed zip file,
-but if interoperability is important, and your workflow allows you to write the 
-zip file directly to disk you can create a non-streamed zip file using the C<zipfile> option.
+The zip container written to C<stdout> is, by necessity, written in
+streaming format. Most programs that read Zip files can cope with a
+streamed zip file, but if interoperability is important, and your workflow
+allows you to write the zip file directly to disk you can create a
+non-streamed zip file using the C<zipfile> option.
 
 =head2 OPTIONS
 
 =over 5
 
 =item -zip64
 
-Create a Zip64-compliant zip container.
-Use this option if the input is greater than 4Gig.
+Create a Zip64-compliant zip container. Use this option if the input is
+greater than 4Gig.
 
 Default is disabled.
 
-=item  -zipfile=F     
+=item  -zipfile=F
 
-Write zip container to the filename F.
+Write zip container to the filename C<F>.
 
-Use the C<Stream> option to enable the creation of a  streamed zip file.
+Use the C<Stream> option to force the creation of a streamed zip file.
 
-=item  -member-name=M  
+=item  -member-name=M
 
 This option is used to name the "file" in the zip container.
 
 Default is '-'.
 
-=item  -stream         
+=item  -stream
 
-Ignored when writing to stdout.
+Ignored when writing to C<stdout>.
 
-If the C<zipfile> option is specified, including this option
-will trigger the creation of a streamed zip file.
+If the C<zipfile> option is specified, including this option will trigger
+the creation of a streamed zip file.
 
-Default: Always enabled when writing to stdout, otherwise disabled.
+Default: Always enabled when writing to C<stdout>, otherwise disabled.
 
-=item  -method=M       
+=item  -method=M
 
-Compress using method "M".
+Compress using method C<M>.
 
 Valid method names are
 
     * store    Store without compression
     * deflate  Use Deflate compression [Deflault]
     * bzip2    Use Bzip2 compression
-    * lzma     Use LZMA compression 
+    * lzma     Use LZMA compression
 
-Note that Lzma compress needs IO::Compress::Lzma to be installed.
+Note that Lzma compress needs C<IO::Compress::Lzma> to be installed.
 
-Default is deflate.
+Default is C<deflate>.
 
-=item  -version        
+=item  -version
 
 Display version number [$VERSION]
 
@@ -183,12 +189,12 @@ Display help
 
 =head2 When to use a Streamed Zip File
 
-A Zip file created with streaming mode enabled allows you to create a zip file 
-in situations where you cannot seek backwards/forwards in the file. 
+A Streamed Zip File is useful in situations where you cannot seek
+backwards/forwards in the file.
 
-A good examples is when you are
-serving dynamic content from a Web Server straight into a socket 
-without needing to create a temporary zip file in the filesystsm.
+A good examples is when you are serving dynamic content from a Web Server
+straight into a socket without needing to create a temporary zip file in
+the filesystsm.
 
 Similarly if your workfow uses a Linux pipelined commands.
 
@@ -203,10 +209,9 @@ L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>.
 
 Paul Marquess F<[email protected]>.
 
-=head1 COPYRIGHT 
+=head1 COPYRIGHT
 
-Copyright (c) 2019 Paul Marquess. All rights reserved.
+Copyright (c) 2019-2020 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. 
-
+under the same terms as Perl itself.