开源软件构建与测试

_service:tar_scm:perl-IO-Compress.spec Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/Changes -> _service:tar_scm:IO-Compress-2.205.tar.gz/Changes Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/META.json -> _service:tar_scm:IO-Compress-2.205.tar.gz/META.json Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/META.yml -> _service:tar_scm:IO-Compress-2.205.tar.gz/META.yml Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/Makefile.PL -> _service:tar_scm:IO-Compress-2.205.tar.gz/Makefile.PL Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/README -> _service:tar_scm:IO-Compress-2.205.tar.gz/README Changed

@@ -1,11 +1,11 @@
 
-                            IO-Compress
+                              IO-Compress
 
-                           Version 2.201
+                              Version 2.205
 
-                            25 June 2022
+                               16 July 2023
 
-        Copyright (c) 1995-2022 Paul Marquess. All rights reserved.
+        Copyright (c) 1995-2023 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.
 
@@ -22,7 +22,7 @@
   * RFC 1952 (i.e. gzip)
   * zip
 
-There are a number of companion modules for IO-Compress that extend
+There are a number of optional companion modules for IO-Compress that extend
 the suite of compression formats available.
 
  * IO-Compress-Zstd
@@ -112,7 +112,7 @@
         If you haven't installed IO-Compress then search IO::Compress::Gzip.pm
         for a line like this:
 
-          $VERSION = "2.201" ;
+          $VERSION = "2.205" ;
 
  2. If you are having problems building IO-Compress, send me a
     complete log of what happened. Start by unpacking the IO-Compress

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/Compress/Zlib.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/Compress/Zlib.pm Changed

@@ -7,17 +7,17 @@
 use IO::Handle ;
 use Scalar::Util qw(dualvar);
 
-use IO::Compress::Base::Common 2.201 ;
-use Compress::Raw::Zlib 2.201 ;
-use IO::Compress::Gzip 2.201 ;
-use IO::Uncompress::Gunzip 2.201 ;
+use IO::Compress::Base::Common 2.205 ;
+use Compress::Raw::Zlib 2.205 ;
+use IO::Compress::Gzip 2.205 ;
+use IO::Uncompress::Gunzip 2.205 ;
 
 use strict ;
 use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -461,7 +461,7 @@
 
 package Compress::Zlib ;
 
-use IO::Compress::Gzip::Constants 2.201 ;
+use IO::Compress::Gzip::Constants 2.205 ;
 
 sub memGzip($)
 {
@@ -1509,7 +1509,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 1995-2022 Paul Marquess. All rights reserved.
+Copyright (c) 1995-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Adapter/Bzip2.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Adapter/Bzip2.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Adapter/Deflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Adapter/Deflate.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Adapter/Identity.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Adapter/Identity.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Base.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Base.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Base/Common.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Base/Common.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Bzip2.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Bzip2.pm Changed

@@ -5,16 +5,16 @@
 use bytes;
 require Exporter ;
 
-use IO::Compress::Base 2.201 ;
+use IO::Compress::Base 2.205 ;
 
-use IO::Compress::Base::Common  2.201 qw();
-use IO::Compress::Adapter::Bzip2 2.201 ;
+use IO::Compress::Base::Common  2.205 qw();
+use IO::Compress::Adapter::Bzip2 2.205 ;
 
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $Bzip2Error = '';
 
 @ISA    = qw(IO::Compress::Base Exporter);
@@ -51,7 +51,7 @@
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.201 qw(:Parse);
+    use IO::Compress::Base::Common  2.205 qw(:Parse);
 
     return (
             'blocksize100k' => IO::Compress::Base::Common::Parse_unsigned,  1,
@@ -387,7 +387,7 @@
 
 =back
 
-=head2 Examples
+=head2 Oneshot Examples
 
 Here are a few example that show the capabilities of the module.
 
@@ -466,7 +466,10 @@
     my $z = IO::Compress::Bzip2->new( $output ,OPTS )
         or die "IO::Compress::Bzip2 failed: $Bzip2Error\n";
 
-It returns an C<IO::Compress::Bzip2> object on success and undef on failure.
+The constructor takes one mandatory parameter, C<$output>, defined below and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
+It returns an C<IO::Compress::Bzip2> object on success and C<undef> on failure.
 The variable C<$Bzip2Error> will contain an error message on failure.
 
 If you are running Perl 5.005 or better the object, C<$z>, returned from
@@ -479,6 +482,18 @@
     $z->print("hello world\n");
     print $z "hello world\n";
 
+Below is a simple exaple of using the OO interface to create an output file
+C<myfile.bz2> and write some data to it.
+
+    my $filename = "myfile.bz2";
+    my $z = IO::Compress::Bzip2->new($filename)
+        or die "IO::Compress::Bzip2 failed: $Bzip2Error\n";
+
+    $z->print("abcde");
+    $z->close();
+
+See the L</Examples> for more.
+
 The mandatory parameter C<$output> is used to control the destination
 of the compressed data. This parameter can take one of these forms.
 
@@ -576,7 +591,52 @@
 
 =head2 Examples
 
-TODO
+=head3 Streaming
+
+This very simple command line example demonstrates the streaming capabilities
+of the module. The code reads data from STDIN or all the files given on the
+commandline, compresses it, and writes the compressed data to STDOUT.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    my $z = IO::Compress::Bzip2->new("-", Stream => 1)
+        or die "IO::Compress::Bzip2 failed: $Bzip2Error\n";
+
+    while (<>) {
+        $z->print("abcde");
+    }
+    $z->close();
+
+Note the use of C<"-"> to means C<STDOUT>. Alternatively you can use C<\*STDOUT>.
+
+=head3 Compressing a file from the filesystem
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.bz2> there are a few options
+
+Start by creating the compression object and opening the input file
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    my $input = "file1.txt";
+    my $z = IO::Compress::Bzip2->new("file1.txt.bz2")
+        or die "IO::Compress::Bzip2 failed: $Bzip2Error\n";
+
+    # open the input file
+    open my $fh, "<", "file1.txt"
+        or die "Cannot open file1.txt: $!\n";
+
+    # loop through the input file & write to the compressed file
+    while (<$fh>) {
+        $z->print($_);
+    }
+
+    # not forgetting to close the compressed file
+    $z->close();
 
 =head1 Methods
 
@@ -818,7 +878,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Deflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Deflate.pm Changed

@@ -8,16 +8,16 @@
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.201 ();
-use IO::Compress::Adapter::Deflate 2.201 ;
+use IO::Compress::RawDeflate 2.205 ();
+use IO::Compress::Adapter::Deflate 2.205 ;
 
-use IO::Compress::Zlib::Constants 2.201 ;
-use IO::Compress::Base::Common  2.201 qw();
+use IO::Compress::Zlib::Constants 2.205 ;
+use IO::Compress::Base::Common  2.205 qw();
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $DeflateError = '';
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
@@ -354,7 +354,7 @@
 
 =back
 
-=head2 Examples
+=head2 Oneshot Examples
 
 Here are a few example that show the capabilities of the module.
 
@@ -433,7 +433,10 @@
     my $z = IO::Compress::Deflate->new( $output ,OPTS )
         or die "IO::Compress::Deflate failed: $DeflateError\n";
 
-It returns an C<IO::Compress::Deflate> object on success and undef on failure.
+The constructor takes one mandatory parameter, C<$output>, defined below and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
+It returns an C<IO::Compress::Deflate> object on success and C<undef> on failure.
 The variable C<$DeflateError> will contain an error message on failure.
 
 If you are running Perl 5.005 or better the object, C<$z>, returned from
@@ -446,6 +449,18 @@
     $z->print("hello world\n");
     print $z "hello world\n";
 
+Below is a simple exaple of using the OO interface to create an output file
+C<myfile.1950> and write some data to it.
+
+    my $filename = "myfile.1950";
+    my $z = IO::Compress::Deflate->new($filename)
+        or die "IO::Compress::Deflate failed: $DeflateError\n";
+
+    $z->print("abcde");
+    $z->close();
+
+See the L</Examples> for more.
+
 The mandatory parameter C<$output> is used to control the destination
 of the compressed data. This parameter can take one of these forms.
 
@@ -585,7 +600,52 @@
 
 =head2 Examples
 
-TODO
+=head3 Streaming
+
+This very simple command line example demonstrates the streaming capabilities
+of the module. The code reads data from STDIN or all the files given on the
+commandline, compresses it, and writes the compressed data to STDOUT.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    my $z = IO::Compress::Deflate->new("-", Stream => 1)
+        or die "IO::Compress::Deflate failed: $DeflateError\n";
+
+    while (<>) {
+        $z->print("abcde");
+    }
+    $z->close();
+
+Note the use of C<"-"> to means C<STDOUT>. Alternatively you can use C<\*STDOUT>.
+
+=head3 Compressing a file from the filesystem
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.1950> there are a few options
+
+Start by creating the compression object and opening the input file
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    my $input = "file1.txt";
+    my $z = IO::Compress::Deflate->new("file1.txt.1950")
+        or die "IO::Compress::Deflate failed: $DeflateError\n";
+
+    # open the input file
+    open my $fh, "<", "file1.txt"
+        or die "Cannot open file1.txt: $!\n";
+
+    # loop through the input file & write to the compressed file
+    while (<$fh>) {
+        $z->print($_);
+    }
+
+    # not forgetting to close the compressed file
+    $z->close();
 
 =head1 Methods
 
@@ -892,7 +952,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/FAQ.pod -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/FAQ.pod Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Gzip.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Gzip.pm Changed

@@ -8,12 +8,12 @@
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.201 () ;
-use IO::Compress::Adapter::Deflate 2.201 ;
+use IO::Compress::RawDeflate 2.205 () ;
+use IO::Compress::Adapter::Deflate 2.205 ;
 
-use IO::Compress::Base::Common  2.201 qw(:Status );
-use IO::Compress::Gzip::Constants 2.201 ;
-use IO::Compress::Zlib::Extra 2.201 ;
+use IO::Compress::Base::Common  2.205 qw(:Status );
+use IO::Compress::Gzip::Constants 2.205 ;
+use IO::Compress::Zlib::Extra 2.205 ;
 
 BEGIN
 {
@@ -25,7 +25,7 @@
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $GzipError = '' ;
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
@@ -535,7 +535,7 @@
 
 =back
 
-=head2 Examples
+=head2 Oneshot Examples
 
 Here are a few example that show the capabilities of the module.
 
@@ -614,7 +614,10 @@
     my $z = IO::Compress::Gzip->new( $output ,OPTS )
         or die "IO::Compress::Gzip failed: $GzipError\n";
 
-It returns an C<IO::Compress::Gzip> object on success and undef on failure.
+The constructor takes one mandatory parameter, C<$output>, defined below and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
+It returns an C<IO::Compress::Gzip> object on success and C<undef> on failure.
 The variable C<$GzipError> will contain an error message on failure.
 
 If you are running Perl 5.005 or better the object, C<$z>, returned from
@@ -627,6 +630,18 @@
     $z->print("hello world\n");
     print $z "hello world\n";
 
+Below is a simple exaple of using the OO interface to create an output file
+C<myfile.gz> and write some data to it.
+
+    my $filename = "myfile.gz";
+    my $z = IO::Compress::Gzip->new($filename)
+        or die "IO::Compress::Gzip failed: $GzipError\n";
+
+    $z->print("abcde");
+    $z->close();
+
+See the L</Examples> for more.
+
 The mandatory parameter C<$output> is used to control the destination
 of the compressed data. This parameter can take one of these forms.
 
@@ -960,7 +975,52 @@
 
 =head2 Examples
 
-TODO
+=head3 Streaming
+
+This very simple command line example demonstrates the streaming capabilities
+of the module. The code reads data from STDIN or all the files given on the
+commandline, compresses it, and writes the compressed data to STDOUT.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    my $z = IO::Compress::Gzip->new("-", Stream => 1)
+        or die "IO::Compress::Gzip failed: $GzipError\n";
+
+    while (<>) {
+        $z->print("abcde");
+    }
+    $z->close();
+
+Note the use of C<"-"> to means C<STDOUT>. Alternatively you can use C<\*STDOUT>.
+
+=head3 Compressing a file from the filesystem
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.gz> there are a few options
+
+Start by creating the compression object and opening the input file
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    my $input = "file1.txt";
+    my $z = IO::Compress::Gzip->new("file1.txt.gz")
+        or die "IO::Compress::Gzip failed: $GzipError\n";
+
+    # open the input file
+    open my $fh, "<", "file1.txt"
+        or die "Cannot open file1.txt: $!\n";
+
+    # loop through the input file & write to the compressed file
+    while (<$fh>) {
+        $z->print($_);
+    }
+
+    # not forgetting to close the compressed file
+    $z->close();
 
 =head1 Methods
 
@@ -1267,7 +1327,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Gzip/Constants.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Gzip/Constants.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/RawDeflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/RawDeflate.pm Changed

@@ -6,16 +6,16 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base 2.201 ;
-use IO::Compress::Base::Common  2.201 qw(:Status :Parse);
-use IO::Compress::Adapter::Deflate 2.201 ;
-use Compress::Raw::Zlib  2.201 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+use IO::Compress::Base 2.205 ;
+use IO::Compress::Base::Common  2.205 qw(:Status :Parse);
+use IO::Compress::Adapter::Deflate 2.205 ;
+use Compress::Raw::Zlib  2.205 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $RawDeflateError = '';
 
 @ISA = qw(IO::Compress::Base Exporter);
@@ -472,7 +472,7 @@
 
 =back
 
-=head2 Examples
+=head2 Oneshot Examples
 
 Here are a few example that show the capabilities of the module.
 
@@ -551,7 +551,10 @@
     my $z = IO::Compress::RawDeflate->new( $output ,OPTS )
         or die "IO::Compress::RawDeflate failed: $RawDeflateError\n";
 
-It returns an C<IO::Compress::RawDeflate> object on success and undef on failure.
+The constructor takes one mandatory parameter, C<$output>, defined below and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
+It returns an C<IO::Compress::RawDeflate> object on success and C<undef> on failure.
 The variable C<$RawDeflateError> will contain an error message on failure.
 
 If you are running Perl 5.005 or better the object, C<$z>, returned from
@@ -564,6 +567,18 @@
     $z->print("hello world\n");
     print $z "hello world\n";
 
+Below is a simple exaple of using the OO interface to create an output file
+C<myfile.1951> and write some data to it.
+
+    my $filename = "myfile.1951";
+    my $z = IO::Compress::RawDeflate->new($filename)
+        or die "IO::Compress::RawDeflate failed: $RawDeflateError\n";
+
+    $z->print("abcde");
+    $z->close();
+
+See the L</Examples> for more.
+
 The mandatory parameter C<$output> is used to control the destination
 of the compressed data. This parameter can take one of these forms.
 
@@ -703,7 +718,52 @@
 
 =head2 Examples
 
-TODO
+=head3 Streaming
+
+This very simple command line example demonstrates the streaming capabilities
+of the module. The code reads data from STDIN or all the files given on the
+commandline, compresses it, and writes the compressed data to STDOUT.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    my $z = IO::Compress::RawDeflate->new("-", Stream => 1)
+        or die "IO::Compress::RawDeflate failed: $RawDeflateError\n";
+
+    while (<>) {
+        $z->print("abcde");
+    }
+    $z->close();
+
+Note the use of C<"-"> to means C<STDOUT>. Alternatively you can use C<\*STDOUT>.
+
+=head3 Compressing a file from the filesystem
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.1951> there are a few options
+
+Start by creating the compression object and opening the input file
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    my $input = "file1.txt";
+    my $z = IO::Compress::RawDeflate->new("file1.txt.1951")
+        or die "IO::Compress::RawDeflate failed: $RawDeflateError\n";
+
+    # open the input file
+    open my $fh, "<", "file1.txt"
+        or die "Cannot open file1.txt: $!\n";
+
+    # loop through the input file & write to the compressed file
+    while (<$fh>) {
+        $z->print($_);
+    }
+
+    # not forgetting to close the compressed file
+    $z->close();
 
 =head1 Methods
 
@@ -1010,7 +1070,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Zip.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Zip.pm Changed

@@ -4,41 +4,41 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.201 qw(:Status );
-use IO::Compress::RawDeflate 2.201 ();
-use IO::Compress::Adapter::Deflate 2.201 ;
-use IO::Compress::Adapter::Identity 2.201 ;
-use IO::Compress::Zlib::Extra 2.201 ;
-use IO::Compress::Zip::Constants 2.201 ;
+use IO::Compress::Base::Common  2.205 qw(:Status );
+use IO::Compress::RawDeflate 2.205 ();
+use IO::Compress::Adapter::Deflate 2.205 ;
+use IO::Compress::Adapter::Identity 2.205 ;
+use IO::Compress::Zlib::Extra 2.205 ;
+use IO::Compress::Zip::Constants 2.205 ;
 
 use File::Spec();
 use Config;
 
-use Compress::Raw::Zlib  2.201 ();
+use Compress::Raw::Zlib  2.205 ();
 
 BEGIN
 {
     eval { require IO::Compress::Adapter::Bzip2 ;
-           IO::Compress::Adapter::Bzip2->import( 2.201 );
+           IO::Compress::Adapter::Bzip2->import( 2.205 );
            require IO::Compress::Bzip2 ;
-           IO::Compress::Bzip2->import( 2.201 );
+           IO::Compress::Bzip2->import( 2.205 );
          } ;
 
     eval { require IO::Compress::Adapter::Lzma ;
-           IO::Compress::Adapter::Lzma->import( 2.201 );
+           IO::Compress::Adapter::Lzma->import( 2.205 );
            require IO::Compress::Lzma ;
-           IO::Compress::Lzma->import( 2.201 );
+           IO::Compress::Lzma->import( 2.205 );
          } ;
 
     eval { require IO::Compress::Adapter::Xz ;
-           IO::Compress::Adapter::Xz->import( 2.201 );
+           IO::Compress::Adapter::Xz->import( 2.205 );
            require IO::Compress::Xz ;
-           IO::Compress::Xz->import( 2.201 );
+           IO::Compress::Xz->import( 2.205 );
          } ;
     eval { require IO::Compress::Adapter::Zstd ;
-           IO::Compress::Adapter::Zstd->import( 2.201 );
+           IO::Compress::Adapter::Zstd->import( 2.205 );
            require IO::Compress::Zstd ;
-           IO::Compress::Zstd->import( 2.201 );
+           IO::Compress::Zstd->import( 2.205 );
          } ;
 }
 
@@ -47,7 +47,7 @@
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $ZipError = '';
 
 @ISA = qw(IO::Compress::RawDeflate Exporter);
@@ -570,6 +570,8 @@
         $z64e .= U64::pack_V64 $entries   ; # entries in central dir
         $z64e .= U64::pack_V64 $cd_len    ; # size of central dir
         $z64e .= *$self->{ZipData}{Offset}->getPacked_V64() ; # offset to start central dir
+        $z64e .= *$self->{ZipData}{extrafieldzip64}  # otional extra field
+            if defined *$self->{ZipData}{extrafieldzip64} ;
 
         $z64e  = pack("V", ZIP64_END_CENTRAL_REC_HDR_SIG) # signature
               .  U64::pack_V64(length $z64e)
@@ -642,7 +644,7 @@
     }
 
     *$self->{ZipData}{AnyZip64} = 1
-        if $got->getValue('zip64');
+        if $got->getValue('zip64') || $got->getValue('extrafieldzip64') ;
     *$self->{ZipData}{Zip64} = $got->getValue('zip64');
     *$self->{ZipData}{Stream} = $got->getValue('stream');
 
@@ -662,7 +664,7 @@
 
     *$self->{ZipData}{ZipComment} = $got->getValue('zipcomment') ;
 
-    for my $name (qw( extrafieldlocal extrafieldcentral ))
+    for my $name (qw( extrafieldlocal extrafieldcentral extrafieldzip64))
     {
         my $data = $got->getValue($name) ;
         if (defined $data) {
@@ -671,6 +673,7 @@
                 if $bad ;
 
             $got->setValue($name, $data) ;
+            *$self->{ZipData}{$name} = $data;
         }
     }
 
@@ -735,6 +738,7 @@
             'textflag'  => IO::Compress::Base::Common::Parse_boolean,   0,
             'extrafieldlocal'  => IO::Compress::Base::Common::Parse_any,    undef,
             'extrafieldcentral'=> IO::Compress::Base::Common::Parse_any,    undef,
+            'extrafieldzip64'  => IO::Compress::Base::Common::Parse_any,    undef,
 
             # Lzma
             'preset'   => IO::Compress::Base::Common::Parse_unsigned, 6,
@@ -1202,7 +1206,7 @@
 
 =back
 
-=head2 Examples
+=head2 Oneshot Examples
 
 Here are a few example that show the capabilities of the module.
 
@@ -1313,7 +1317,10 @@
     my $z = IO::Compress::Zip->new( $output ,OPTS )
         or die "IO::Compress::Zip failed: $ZipError\n";
 
-It returns an C<IO::Compress::Zip> object on success and undef on failure.
+The constructor takes one mandatory parameter, C<$output>, defined below and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
+It returns an C<IO::Compress::Zip> object on success and C<undef> on failure.
 The variable C<$ZipError> will contain an error message on failure.
 
 If you are running Perl 5.005 or better the object, C<$z>, returned from
@@ -1326,6 +1333,18 @@
     $z->print("hello world\n");
     print $z "hello world\n";
 
+Below is a simple exaple of using the OO interface to create an output file
+C<myfile.zip> and write some data to it.
+
+    my $filename = "myfile.zip";
+    my $z = IO::Compress::Zip->new($filename)
+        or die "IO::Compress::Zip failed: $ZipError\n";
+
+    $z->print("abcde");
+    $z->close();
+
+See the L</Examples> for more.
+
 The mandatory parameter C<$output> is used to control the destination
 of the compressed data. This parameter can take one of these forms.
 
@@ -1846,7 +1865,111 @@
 
 =head2 Examples
 
-TODO
+=head3 Streaming
+
+This very simple command line example demonstrates the streaming capabilities
+of the module. The code reads data from STDIN or all the files given on the
+commandline, compresses it, and writes the compressed data to STDOUT.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Zip qw(zip $ZipError) ;
+
+    my $z = IO::Compress::Zip->new("-", Stream => 1)
+        or die "IO::Compress::Zip failed: $ZipError\n";
+
+    while (<>) {
+        $z->print("abcde");
+    }
+    $z->close();
+
+Note the use of C<"-"> to means C<STDOUT>. Alternatively you can use C<\*STDOUT>.
+
+One problem with creating a zip archive directly from STDIN can be demonstrated by looking at
+the contents of the zip file, output.zip, that we have just created
+(assumg you have redirected it to a file called C<output.zip>).
+
+    $ unzip -l output.zip
+    Archive:  output.zip
+    Length      Date    Time    Name
+    ---------  ---------- -----   ----
+        12  2019-08-16 22:21
+    ---------                     -------
+        12                     1 file
+
+The archive member (filename) used is the empty string.
+
+If that doesn't suit your needs, you can explicitly set the filename used
+in the zip archive by specifying the L<Name|"File Naming Options"> option, like so
+
+    my $z = IO::Compress::Zip->new("-", Name => "hello.txt", Stream => 1)
+
+Now the contents of the zip file looks like this
+
+    $ unzip -l output.zip
+    Archive:  output.zip
+    Length      Date    Time    Name
+    ---------  ---------- -----   ----
+        12  2019-08-16 22:22   hello.txt

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Zip/Constants.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Zip/Constants.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Zlib/Constants.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Zlib/Constants.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Zlib/Extra.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Compress/Zlib/Extra.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Adapter/Bunzip2.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Adapter/Bunzip2.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Adapter/Identity.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Adapter/Identity.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Adapter/Inflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Adapter/Inflate.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/AnyInflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/AnyInflate.pm Changed

@@ -6,22 +6,22 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.201 qw(:Parse);
+use IO::Compress::Base::Common  2.205 qw(:Parse);
 
-use IO::Uncompress::Adapter::Inflate  2.201 ();
+use IO::Uncompress::Adapter::Inflate  2.205 ();
 
 
-use IO::Uncompress::Base  2.201 ;
-use IO::Uncompress::Gunzip  2.201 ;
-use IO::Uncompress::Inflate  2.201 ;
-use IO::Uncompress::RawInflate  2.201 ;
-use IO::Uncompress::Unzip  2.201 ;
+use IO::Uncompress::Base  2.205 ;
+use IO::Uncompress::Gunzip  2.205 ;
+use IO::Uncompress::Inflate  2.205 ;
+use IO::Uncompress::RawInflate  2.205 ;
+use IO::Uncompress::Unzip  2.205 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $AnyInflateError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
@@ -421,7 +421,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 To read the contents of the file C<file1.txt.Compressed> and write the
 uncompressed data to the file C<file1.txt>.
@@ -481,6 +481,9 @@
     my $z = IO::Uncompress::AnyInflate->new( $input OPTS )
         or die "IO::Uncompress::AnyInflate failed: $AnyInflateError\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::AnyInflate> object on success and undef on failure.
 The variable C<$AnyInflateError> will contain an error message on failure.
 
@@ -493,6 +496,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.Compressed> and write its contents to stdout.
+
+    my $filename = "myfile.Compressed";
+    my $z = IO::Uncompress::AnyInflate->new($filename)
+        or die "IO::Uncompress::AnyInflate failed: $AnyInflateError\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -689,10 +706,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -1001,7 +1014,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/AnyUncompress.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/AnyUncompress.pm Changed

@@ -4,16 +4,16 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.201 ();
+use IO::Compress::Base::Common 2.205 ();
 
-use IO::Uncompress::Base 2.201 ;
+use IO::Uncompress::Base 2.205 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $AnyUncompressError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
@@ -33,26 +33,26 @@
    # Don't trigger any __DIE__ Hooks.
    local $SIG{__DIE__};
 
-   eval ' use IO::Uncompress::Adapter::Inflate 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzma 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::UnXz 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::UnZstd 2.201 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzip 2.201 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.201 ;';
-   eval ' use IO::Uncompress::UnLzop 2.201 ;';
-   eval ' use IO::Uncompress::Gunzip 2.201 ;';
-   eval ' use IO::Uncompress::Inflate 2.201 ;';
-   eval ' use IO::Uncompress::RawInflate 2.201 ;';
-   eval ' use IO::Uncompress::Unzip 2.201 ;';
-   eval ' use IO::Uncompress::UnLzf 2.201 ;';
-   eval ' use IO::Uncompress::UnLzma 2.201 ;';
-   eval ' use IO::Uncompress::UnXz 2.201 ;';
-   eval ' use IO::Uncompress::UnZstd 2.201 ;';
-   eval ' use IO::Uncompress::UnLzip 2.201 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::UnZstd 2.205 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzip 2.205 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.205 ;';
+   eval ' use IO::Uncompress::UnLzop 2.205 ;';
+   eval ' use IO::Uncompress::Gunzip 2.205 ;';
+   eval ' use IO::Uncompress::Inflate 2.205 ;';
+   eval ' use IO::Uncompress::RawInflate 2.205 ;';
+   eval ' use IO::Uncompress::Unzip 2.205 ;';
+   eval ' use IO::Uncompress::UnLzf 2.205 ;';
+   eval ' use IO::Uncompress::UnLzma 2.205 ;';
+   eval ' use IO::Uncompress::UnXz 2.205 ;';
+   eval ' use IO::Uncompress::UnZstd 2.205 ;';
+   eval ' use IO::Uncompress::UnLzip 2.205 ;';
 
 }
 
@@ -578,7 +578,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 To read the contents of the file C<file1.txt.Compressed> and write the
 uncompressed data to the file C<file1.txt>.
@@ -638,6 +638,9 @@
     my $z = IO::Uncompress::AnyUncompress->new( $input OPTS )
         or die "IO::Uncompress::AnyUncompress failed: $AnyUncompressError\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::AnyUncompress> object on success and undef on failure.
 The variable C<$AnyUncompressError> will contain an error message on failure.
 
@@ -650,6 +653,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.Compressed> and write its contents to stdout.
+
+    my $filename = "myfile.Compressed";
+    my $z = IO::Uncompress::AnyUncompress->new($filename)
+        or die "IO::Uncompress::AnyUncompress failed: $AnyUncompressError\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -793,10 +810,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -1077,7 +1090,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Base.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Base.pm Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Bunzip2.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Bunzip2.pm Changed

@@ -4,15 +4,15 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.201 qw(:Status );
+use IO::Compress::Base::Common 2.205 qw(:Status );
 
-use IO::Uncompress::Base 2.201 ;
-use IO::Uncompress::Adapter::Bunzip2 2.201 ;
+use IO::Uncompress::Base 2.205 ;
+use IO::Uncompress::Adapter::Bunzip2 2.205 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $Bunzip2Error = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -420,7 +420,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 To read the contents of the file C<file1.txt.bz2> and write the
 uncompressed data to the file C<file1.txt>.
@@ -480,6 +480,9 @@
     my $z = IO::Uncompress::Bunzip2->new( $input OPTS )
         or die "IO::Uncompress::Bunzip2 failed: $Bunzip2Error\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::Bunzip2> object on success and undef on failure.
 The variable C<$Bunzip2Error> will contain an error message on failure.
 
@@ -492,6 +495,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.bz2> and write its contents to stdout.
+
+    my $filename = "myfile.bz2";
+    my $z = IO::Uncompress::Bunzip2->new($filename)
+        or die "IO::Uncompress::Bunzip2 failed: $Bunzip2Error\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -617,10 +634,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -909,7 +922,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Gunzip.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Gunzip.pm Changed

@@ -9,12 +9,12 @@
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.201 ;
+use IO::Uncompress::RawInflate 2.205 ;
 
-use Compress::Raw::Zlib 2.201 () ;
-use IO::Compress::Base::Common 2.201 qw(:Status );
-use IO::Compress::Gzip::Constants 2.201 ;
-use IO::Compress::Zlib::Extra 2.201 ;
+use Compress::Raw::Zlib 2.205 () ;
+use IO::Compress::Base::Common 2.205 qw(:Status );
+use IO::Compress::Gzip::Constants 2.205 ;
+use IO::Compress::Zlib::Extra 2.205 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@
 
 $GunzipError = '';
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 
 sub new
 {
@@ -557,7 +557,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 To read the contents of the file C<file1.txt.gz> and write the
 uncompressed data to the file C<file1.txt>.
@@ -617,6 +617,9 @@
     my $z = IO::Uncompress::Gunzip->new( $input OPTS )
         or die "IO::Uncompress::Gunzip failed: $GunzipError\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::Gunzip> object on success and undef on failure.
 The variable C<$GunzipError> will contain an error message on failure.
 
@@ -629,6 +632,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.gz> and write its contents to stdout.
+
+    my $filename = "myfile.gz";
+    my $z = IO::Uncompress::Gunzip->new($filename)
+        or die "IO::Uncompress::Gunzip failed: $GunzipError\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -797,10 +814,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -1125,7 +1138,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Inflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Inflate.pm Changed

@@ -5,15 +5,15 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.201 qw(:Status );
-use IO::Compress::Zlib::Constants 2.201 ;
+use IO::Compress::Base::Common  2.205 qw(:Status );
+use IO::Compress::Zlib::Constants 2.205 ;
 
-use IO::Uncompress::RawInflate  2.201 ;
+use IO::Uncompress::RawInflate  2.205 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $InflateError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
@@ -479,7 +479,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 To read the contents of the file C<file1.txt.1950> and write the
 uncompressed data to the file C<file1.txt>.
@@ -539,6 +539,9 @@
     my $z = IO::Uncompress::Inflate->new( $input OPTS )
         or die "IO::Uncompress::Inflate failed: $InflateError\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::Inflate> object on success and undef on failure.
 The variable C<$InflateError> will contain an error message on failure.
 
@@ -551,6 +554,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.1950> and write its contents to stdout.
+
+    my $filename = "myfile.1950";
+    my $z = IO::Uncompress::Inflate->new($filename)
+        or die "IO::Uncompress::Inflate failed: $InflateError\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -685,10 +702,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -997,7 +1010,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/RawInflate.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/RawInflate.pm Changed

@@ -5,16 +5,16 @@
 use warnings;
 use bytes;
 
-use Compress::Raw::Zlib  2.201 ;
-use IO::Compress::Base::Common  2.201 qw(:Status );
+use Compress::Raw::Zlib  2.205 ;
+use IO::Compress::Base::Common  2.205 qw(:Status );
 
-use IO::Uncompress::Base  2.201 ;
-use IO::Uncompress::Adapter::Inflate  2.201 ;
+use IO::Uncompress::Base  2.205 ;
+use IO::Uncompress::Adapter::Inflate  2.205 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $RawInflateError = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -624,7 +624,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 To read the contents of the file C<file1.txt.1951> and write the
 uncompressed data to the file C<file1.txt>.
@@ -684,6 +684,9 @@
     my $z = IO::Uncompress::RawInflate->new( $input OPTS )
         or die "IO::Uncompress::RawInflate failed: $RawInflateError\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::RawInflate> object on success and undef on failure.
 The variable C<$RawInflateError> will contain an error message on failure.
 
@@ -696,6 +699,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.1951> and write its contents to stdout.
+
+    my $filename = "myfile.1951";
+    my $z = IO::Uncompress::RawInflate->new($filename)
+        or die "IO::Uncompress::RawInflate failed: $RawInflateError\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -813,10 +830,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -1125,7 +1138,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Unzip.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/lib/IO/Uncompress/Unzip.pm Changed

@@ -9,14 +9,14 @@
 use bytes;
 
 use IO::File;
-use IO::Uncompress::RawInflate  2.201 ;
-use IO::Compress::Base::Common  2.201 qw(:Status );
-use IO::Uncompress::Adapter::Inflate  2.201 ;
-use IO::Uncompress::Adapter::Identity 2.201 ;
-use IO::Compress::Zlib::Extra 2.201 ;
-use IO::Compress::Zip::Constants 2.201 ;
+use IO::Uncompress::RawInflate  2.205 ;
+use IO::Compress::Base::Common  2.205 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.205 ;
+use IO::Uncompress::Adapter::Identity 2.205 ;
+use IO::Compress::Zlib::Extra 2.205 ;
+use IO::Compress::Zip::Constants 2.205 ;
 
-use Compress::Raw::Zlib  2.201 () ;
+use Compress::Raw::Zlib  2.205 () ;
 
 BEGIN
 {
@@ -24,13 +24,13 @@
    local $SIG{__DIE__};
 
     eval{ require IO::Uncompress::Adapter::Bunzip2 ;
-          IO::Uncompress::Adapter::Bunzip2->import() } ;
+          IO::Uncompress::Adapter::Bunzip2->import(2.205) } ;
     eval{ require IO::Uncompress::Adapter::UnLzma ;
-          IO::Uncompress::Adapter::UnLzma->import() } ;
+          IO::Uncompress::Adapter::UnLzma->import(2.205) } ;
     eval{ require IO::Uncompress::Adapter::UnXz ;
-          IO::Uncompress::Adapter::UnXz->import() } ;
+          IO::Uncompress::Adapter::UnXz->import(2.205) } ;
     eval{ require IO::Uncompress::Adapter::UnZstd ;
-          IO::Uncompress::Adapter::UnZstd->import() } ;
+          IO::Uncompress::Adapter::UnZstd->import(2.205) } ;
 }
 
 
@@ -38,7 +38,7 @@
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.201';
+$VERSION = '2.205';
 $UnzipError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
@@ -1396,7 +1396,7 @@
 
 =back
 
-=head2 Examples
+=head2 OneShot Examples
 
 Say you have a zip file, C<file1.zip>, that only contains a
 single member, you can read it and write the uncompressed data to the
@@ -1459,6 +1459,9 @@
     my $z = IO::Uncompress::Unzip->new( $input OPTS )
         or die "IO::Uncompress::Unzip failed: $UnzipError\n";
 
+The constructor takes one mandatory parameter, C<$input>, defined below, and
+zero or more C<OPTS>, defined in L<Constructor Options>.
+
 Returns an C<IO::Uncompress::Unzip> object on success and undef on failure.
 The variable C<$UnzipError> will contain an error message on failure.
 
@@ -1471,6 +1474,20 @@
     $line = $z->getline();
     $line = <$z>;
 
+Below is a simple exaple of using the OO interface to read the compressed file
+C<myfile.zip> and write its contents to stdout.
+
+    my $filename = "myfile.zip";
+    my $z = IO::Uncompress::Unzip->new($filename)
+        or die "IO::Uncompress::Unzip failed: $UnzipError\n";
+
+    while (<$z>) {
+        print $_;
+    }
+    $z->close();
+
+See L</EXAMPLES> for further examples
+
 The mandatory parameter C<$input> is used to determine the source of the
 compressed data. This parameter can take one of three forms.
 
@@ -1607,10 +1624,6 @@
 
 =back
 
-=head2 Examples
-
-TODO
-
 =head1 Methods
 
 =head2 read
@@ -1877,9 +1890,37 @@
 
 =head1 EXAMPLES
 
-=head2 Working with Net::FTP
+=head2  Simple Read
 
-See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+Say you have a zip file, C<file1.zip>, that only contains a
+single member, you can read it and write the uncompressed data to the
+file C<file1.txt> like this.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    my $filename = "file1.zip";
+    my $z = IO::Uncompress::Unzip->new($filename)
+        or die "IO::Uncompress::Unzip failed: $UnzipError\n";
+    open my $out, ">", "file1.txt";
+
+    while (<$z>) {
+        print $out $_;
+    }
+    $z->close();
+
+If you have a zip file that contains multiple members and want to read a
+specific member from the file, say C<"data1">, use the C<Name> option when
+constructing the
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    my $filename = "file1.zip";
+    my $z = IO::Uncompress::Unzip->new($filename, Name => "data1")
+        or die "IO::Uncompress::Unzip failed: $UnzipError\n";
 
 =head2 Walking through a zip file
 
@@ -1925,6 +1966,10 @@
 
 The script is available from L<https://gist.github.com/eqhmcow/5389877>
 
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
 =head1 SUPPORT
 
 General feedback/questions/bug reports should be sent to
@@ -1967,7 +2012,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2022 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 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.

_service:tar_scm:IO-Compress-2.201.tar.gz/t/000prereq.t -> _service:tar_scm:IO-Compress-2.205.tar.gz/t/000prereq.t Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/t/111const-deflate.t -> _service:tar_scm:IO-Compress-2.205.tar.gz/t/111const-deflate.t Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/t/Test/More.pm -> _service:tar_scm:IO-Compress-2.205.tar.gz/t/Test/More.pm Changed

@@ -361,7 +361,7 @@
     $Test->isnt_eq(@_);
 }
 
-*isn't = \&isnt;
+# *isn't = \&isnt;
 
 
 =item B<like>
@@ -463,9 +463,9 @@
 
 is almost exactly like saying:
 
-    ok( Foo->can('this') && 
-        Foo->can('that') && 
-        Foo->can('whatever') 
+    ok( Foo->can('this') &&
+        Foo->can('that') &&
+        Foo->can('whatever')
       );
 
 only without all the typing and with a better interface.  Handy for
@@ -498,9 +498,9 @@
     }
 
     my $name;
-    $name = @methods == 1 ? "$class->can('$methods0')" 
+    $name = @methods == 1 ? "$class->can('$methods0')"
                           : "$class->can(...)";
-    
+
     my $ok = $Test->ok( !@nok, $name );
 
     $Test->diag(map "    $class->can('$_') failed\n", @nok);
@@ -573,8 +573,8 @@
             $diag = "$obj_name isn't a '$class' it's a '$ref'";
         }
     }
-            
-      
+
+
 
     my $ok;
     if( $diag ) {
@@ -809,7 +809,7 @@
 
 Sometimes running a test under certain conditions will cause the
 test script to die.  A certain function or method isn't implemented
-(such as fork() on MacOS), some resource isn't available (like a 
+(such as fork() on MacOS), some resource isn't available (like a
 net connection) or a module isn't available.  In these cases it's
 necessary to skip tests, or declare that they are supposed to fail
 but will work in the future (a todo test).
@@ -1009,7 +1009,7 @@
     unless( @_ == 2 or @_ == 3 ) {
         my $msg = <<WARNING;
 is_deeply() takes two or three args, you gave %d.
-This usually means you passed an array or hash instead 
+This usually means you passed an array or hash instead
 of a reference to it
 WARNING
         chop $msg;   # clip off newline so carp() will put in line/file
@@ -1111,7 +1111,7 @@
 
     ok( eq_array(\@this, \@that) );
 
-C<is_deeply()> can do that better and with diagnostics.  
+C<is_deeply()> can do that better and with diagnostics.
 
     is_deeply( \@this, \@that );
 
@@ -1171,7 +1171,7 @@
 
     {
         # Quiet uninitialized value warnings when comparing undefs.
-        local $^W = 0; 
+        local $^W = 0;
 
         $Test->_unoverload(\$e1, \$e2);
 
@@ -1483,7 +1483,7 @@
 
 Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.
 
-This program is free software; you can redistribute it and/or 
+This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
 
 See F<http://www.perl.com/perl/misc/Artistic.html>

Changes of Revision 9