开源软件构建与测试

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

_service Changed

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

@@ -1,6 +1,125 @@
 CHANGES
 -------
 
+  2.201 25 June 2022
+
+      * Disable zib header tests
+        Sat Jun 25 09:10:59 2022 +0100
+        63eb5d37291b40dbf07d191a09b7876168008cd4
+
+      * Version 2.201
+        Sat Jun 25 09:00:42 2022 +0100
+        af51310f68bb225d94eaa29b7f3d2bece1935dfd
+
+      * doc update https://github.com/pmqs/IO-Compress/issues/38
+        Thu Jun 23 23:00:31 2022 +0100
+        2002d4fd3b3a6f5de6c6c3dc5989cf42581c1758
+
+      * Changes for zlib-ng
+        Thu Jun 23 22:43:50 2022 +0100
+        2bd52d2918823cc567c3e92dd3d15f87cb4ee8f8
+
+      * Add perl 5.36
+        Sun Jun 5 13:34:18 2022 +0100
+        ede55370ed4c7eb3c66abc71bc25c7e4019b4c44
+
+      * force streaming zip file when writing to stdout https://github.com/pmqs/IO-Compress/issues/42
+        Sun Apr 24 19:43:19 2022 +0100
+        b57a3f83f404f5a24242680de5b406cfcf5c03ac
+
+      * read zip timestamp in localtime
+        Sun Apr 24 13:11:58 2022 +0100
+        0c838f43dc46f292714c82145c9add9932196b01
+
+      * streamzip: tighten up version tests for failing windows tests https://github.com/pmqs/IO-Compress/issues/41
+        Sun Apr 24 12:49:57 2022 +0100
+        3497645228235ea12c4d559d6dedd4cef47fc94a
+
+      * streamzip: update year
+        Sun Apr 24 12:11:35 2022 +0100
+        0ac0d1ef603d8854ffc35976196735b663764992
+
+      * Use Time::Local instead of  POSIX::mktime
+        Tue Apr 19 11:31:43 2022 +0100
+        64a106f1119cbc7dec8db52dca016bb8baacf2d4
+
+  2.106 12 April 2022
+
+      * bin/zipdetails
+        sync 2.104 from https://github.com/pmqs/zipdetails
+        Tue Apr 12 15:39:59 2022 +0100
+        3fe7b8788ab816bebddfdfbb1462d3f439c6b2f1
+
+  2.105 9 April 2022
+
+      * remove WeakDecrypt
+        95892a68780426909b75b4f3d465ff02e630834e
+        5b41f06a271267ef984a971047987b65ba197dd4
+
+  2.104 9 April 2022
+
+      * Sync zipdetails 2.100 from https://github.com/pmqs/zipdetails
+        95c19c89b72441b76294ce93f4acf7c5cea63565
+
+      * Update date in README
+        6b40bd67ee3c295085380cb6c321abf230b481df
+
+      * WeakDecrypt should not be listed in MANIFEST
+        https://github.com/pmqs/IO-Compress/issues/39
+        9e85a8bff391481d1005547cb51c11e02e4a5768
+
+      * Update versions to 2.104
+        cec4bcd8c3e8bef5708f7b5064e5048a02e8179f
+        cec4bcd8c3e8bef5708f7b5064e5048a02e8179f
+
+  2.103 3 April 2022
+
+      * Update version to 2.103
+        97f1893892eccac69b3a8033378b0b44d7c4f3ab
+
+      * Fix for inflateSyncs retrurn code change
+        4843e22285bf8e52c9b5b913d167a1545995c793
+
+      * Add constant for ZIP_CM_AES
+        91be04dd8dc2848e3c25b87ec498cf8ccc34187a
+
+      * Point links to rfcs to ietf.org
+        https://github.com/pmqs/IO-Compress/pull/37
+        a8f28b36cf4d77df1cfa0516867012425920a62f
+
+      * Rename test file to fix manifest warning
+        https://github.com/pmqs/IO-Compress/pull/36
+        955244f9ac0654d7e8d54115162da53c85d7178c
+
+      * Add perl 5.34
+        06f41883f62ed1b88b03c246b16e0b5ef72503bc
+
+      * Fix for Calling nextStream on an IO::Uncompress::Zip object in Transparent mode dies when input is uncompressed
+        https://github.com/pmqs/IO-Compress/issues/34
+        b0f93fe62f84b7d4d4bb8d2ea8e6d5432887103f
+
+      * IO::Compress: Generalize for EBCDIC
+        https://github.com/pmqs/IO-Compress/pull/32
+        90b51dbbd785e2c824cb0a93feef3b3dd5d075f2
+
+      * IO::Compress: Fix misspelling in 112utf8-zip.t
+        c22216b5d3202dce01ef17a271252f82520a6ab9
+
+      * Revert "Always have full zip64 entry in central directory"
+        7df4c9bc98667bc1afd1b4bc5a27d20f94e3cd9c
+
+      * Always have full zip64 entry in central directory
+        333648ee1dece6eb220060c7ec09806f6ebb9866
+
+      * update cpanm path on MacOS
+        33079902934885c515768a08d72e89243a5d01a9
+
+  2.102 28 February 2021
+
+      * Add IO_COMPRESS_SKIP_STDIN_TESTS to skip tests on Windows
+        https://github.com/pmqs/IO-Compress/issues/29
+        b0b511ec6a7dcfa4e372a8b8131767fcb39369b1
+
   2.101 20 February 2021
 
       * fix version numbers in meta files

_service:tar_scm:IO-Compress-2.101.tar.gz/MANIFEST -> _service:tar_scm:IO-Compress-2.201.tar.gz/MANIFEST Changed

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

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

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

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

_service:tar_scm:IO-Compress-2.101.tar.gz/bin/streamzip -> _service:tar_scm:IO-Compress-2.201.tar.gz/bin/streamzip Changed

@@ -12,7 +12,7 @@
 
 use Getopt::Long;
 
-my $VERSION = '1.002';
+my $VERSION = '1.00';
 
 my $compression_method = ZIP_CM_DEFLATE;
 my $stream = 0;
@@ -51,6 +51,10 @@
     push @extraOpts, (Level => $level)
 }
 
+# force streaming zip file when writing to stdout.
+$stream = 1
+    if $zipfile eq '-';
+
 zip '-' => $zipfile,
            Name   => $memberName,
            Zip64  => $zip64,
@@ -107,7 +111,8 @@
   producer | streamzip OPTIONS | consumer
   producer | streamzip OPTIONS -zipfile output.zip
 
-Stream data from stdin, compress into a Zip container, and stream to stdout.
+Stream data from stdin, compress into a Zip container, and either stream to stdout, or
+write to a named file.
 
 OPTIONS
 
@@ -131,7 +136,7 @@
                     zstd     Use LZMA compression needs IO::Compress::Zstd
   -version        Display version number $VERSION
 
-Copyright (c) 2019-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2019-2022 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.
@@ -287,7 +292,7 @@
 
 =head1 COPYRIGHT
 
-Copyright (c) 2019-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2019-2022 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.101.tar.gz/bin/zipdetails -> _service:tar_scm:IO-Compress-2.201.tar.gz/bin/zipdetails Changed

@@ -5,14 +5,31 @@
 # Display info on the contents of a Zip file
 #
 
+use 5.010; # for unpack "Q<"
+
+BEGIN {
+    # Check for a 32-bit Perl
+    if (!eval { pack "Q", 1 }) {
+        warn "zipdetails requires 64 bit integers, ",
+                "this Perl has 32 bit integers.\n";
+        exit(1);
+    }
+}
+
 BEGIN { pop @INC if $INC-1 eq '.' }
 use strict;
 use warnings ;
+no  warnings 'portable'; # for unpacking > 2^32
+use feature 'state';
 
 use IO::File;
 use Encode;
 use Getopt::Long;
 
+my $VERSION = "2.104" ;
+
+use constant MAX32 => 0xFFFFFFFF ;
+
 # Compression types
 use constant ZIP_CM_STORE                      => 0 ;
 use constant ZIP_CM_IMPLODE                    => 6 ;
@@ -68,7 +85,7 @@
           9 => 'Enhanced Deflating using Deflate64(tm)',
          10 => 'PKWARE Data Compression Library Imploding',
          11 => 'Reserved by PKWARE',
-         12 => 'BZIP2 ',
+         12 => 'BZIP2',
          13 => 'Reserved by PKWARE',
          14 => 'LZMA',
          15 => 'Reserved by PKWARE',
@@ -96,7 +113,7 @@
     7   => "Macintosh",
     8   => "Z-System",
     9   => "CP/M",
-    10  => "Windoxs NTFS or TOPS-20",
+    10  => "Windows NTFS or TOPS-20",
     11  => "MVS or NTFS",
     12  => "VSE or SMS/QDOS",
     13  => "Acorn RISC OS",
@@ -152,7 +169,7 @@
       0x07c8,  'Info-ZIP Macintosh (old, J. Lee)', undef,
       0x2605,  'ZipIt Macintosh (first version)', undef,
       0x2705,  'ZipIt Macintosh v 1.3.5 and newer (w/o full filename)', undef,
-      0x2805,  'ZipIt Macintosh v 1.3.5 and newer ', undef,
+      0x2805,  'ZipIt Macintosh v 1.3.5 and newer', undef,
       0x334d,  "Info-ZIP Macintosh (new, D. Haase's 'Mac3' field)", undef,
       0x4154,  'Tandem NSK', undef,
       0x4341,  'Acorn/SparkFS (David Pilling)', undef,
@@ -181,14 +198,13 @@
       0x7855,  'Unix Extra type 2', \&decode_Ux,
       0x7875,  'Unix Extra Type 3', \&decode_ux,
       0x9901,  'AES Encryption', \&decode_AES,
-      0xa11e,  'Data Stream Alignment', undef,
+      0xa11e,  'Data Stream Alignment', \&decode_DataStreamAlignment,
       0xA220,  'Open Packaging Growth Hint', \&decode_GrowthHint ,
       0xCAFE,  'Java Executable', \&decode_Java_exe,
       0xfb4a,  'SMS/QDOS', undef,
 
        );
 
-my $VERSION = "2.02" ;
 
 my $FH;
 
@@ -198,10 +214,13 @@
 my $CentralHeaderCount = 0;
 
 my $START;
-my $OFFSET = U64->new( 0 );
+my $OFFSET = 0 ;
 my $TRAILING = 0 ;
-my $PAYLOADLIMIT = 256; # U64->new( 256 );
-my $ZERO = U64->new( 0 );
+my $PAYLOADLIMIT = 256;
+my $ZERO = 0 ;
+my $APK = 0 ;
+my $START_APK = 0;
+my $APK_LEN = 0;
 
 my $SEEN = Seen->new();
 
@@ -209,7 +228,7 @@
 {
     my $offset = shift;
     my $s = offset($OFFSET);
-    $OFFSET->add($offset);
+    $OFFSET += $offset;
     return $s;
 }
 
@@ -217,25 +236,7 @@
 {
     my $v = shift ;
 
-    if (ref $v eq 'U64') {
-        my $hi = $v->getHigh();
-        my $lo = $v->getLow();
-
-        if ($hi)
-        {
-            my $hiNib = $NIBBLES - 8 ;
-            sprintf("%0${hiNib}X", $hi) .
-            sprintf("%08X", $lo);
-        }
-        else
-        {
-            sprintf("%0${NIBBLES}X", $lo);
-        }
-    }
-    else {
-        sprintf("%0${NIBBLES}X", $v);
-    }
-
+    sprintf("%0${NIBBLES}X", $v);
 }
 
 my ($OFF,  $LENGTH,  $CONTENT, $TEXT, $VALUE) ;
@@ -346,6 +347,11 @@
     return $out;
 }
 
+sub hexValue
+{
+    return sprintf("%X", $_0);
+}
+
 sub out
 {
     my $data = shift;
@@ -409,8 +415,10 @@
       { return Value_v(@value) }
     elsif ($letter eq 'V')
       { return Value_V(@value) }
-    elsif ($letter eq 'VV')
-      { return Value_VV(@value) }
+    elsif ($letter eq 'Q<')
+      { return Value_Q(@value) }
+    else
+      { die "here letter $letter"}
 }
 
 sub outer
@@ -436,7 +444,7 @@
         }
 
         $v = "'" . $v unless $v =~ /^'/;
-        $v .= "'"  unless $v =~ /'$/;
+        $v .= "'"     unless $v =~ /'$/;
         $hex .= " $v" ;
     }
 
@@ -475,45 +483,29 @@
     outer($name, 'V', 4, $cb1, $cb2);
 }
 
-sub out_VV
+sub out_Q
 {
     my $name = shift ;
     my $cb1  = shift ;
     my $cb2  = shift ;
 
-    outer($name, 'VV', 8, $cb1, $cb2);
+    outer($name, 'Q<', 8, $cb1, $cb2);
 }
 
-# sub outSomeData
-# {
-#     my $size = shift;
-#     my $message = shift;
-
-#     my $size64 = U64::mkU64($size);
-
-#     if ($size64->gt($ZERO)) {
-#         my $size32 = $size64->getLow();
-#         if ($size64->gt($PAYLOADLIMIT) ) {
-#             out0 $size32, $message;
-#         } else {
-#             myRead(my $buffer, $size32 );
-#             out $buffer, $message, xDump $buffer ;
-#         }
-#     }
-# }
-
 sub outSomeData
 {
     my $size = shift;
     my $message = shift;
+    my $redact = shift ;

_service:tar_scm:IO-Compress-2.101.tar.gz/lib/Compress/Zlib.pm -> _service:tar_scm:IO-Compress-2.201.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.101 ;
-use Compress::Raw::Zlib 2.101 ;
-use IO::Compress::Gzip 2.101 ;
-use IO::Uncompress::Gunzip 2.101 ;
+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 strict ;
 use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -461,7 +461,7 @@
 
 package Compress::Zlib ;
 
-use IO::Compress::Gzip::Constants 2.101 ;
+use IO::Compress::Gzip::Constants 2.201 ;
 
 sub memGzip($)
 {
@@ -1484,9 +1484,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -1494,6 +1494,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -1506,7 +1509,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 1995-2021 Paul Marquess. All rights reserved.
+Copyright (c) 1995-2022 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.101.tar.gz/lib/IO/Compress/Adapter/Bzip2.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Adapter/Bzip2.pm Changed

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

@@ -4,13 +4,13 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.101 qw(:Status);
-use Compress::Raw::Zlib  2.101 qw( !crc32 !adler32 ) ;
+use IO::Compress::Base::Common 2.201 qw(:Status);
+use Compress::Raw::Zlib  2.201 qw( !crc32 !adler32 ) ;
 
 require Exporter;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 @ISA = qw(Exporter);
 @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
 %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
@@ -40,6 +40,29 @@
                  } ;
 }
 
+sub mkCompObject1
+{
+    my $crc32    = shift ;
+    my $adler32  = shift ;
+    my $level    = shift ;
+    my $strategy = shift ;
+
+    my ($def, $status) = Compress::Raw::Zlib::Deflate->new(
+                                -AppendOutput   => 1,
+                                -CRC32          => $crc32,
+                                -ADLER32        => $adler32,
+                                -Level          => $level,
+                                -Strategy       => $strategy,
+                                -WindowBits     => MAX_WBITS);
+
+    return (undef, "Cannot create Deflate object: $status", $status)
+        if $status != Z_OK;
+
+    return bless {'Def'        => $def,
+                  'Error'      => '',
+                 } ;
+}
+
 sub compr
 {
     my $self = shift ;

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

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

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

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

@@ -5,16 +5,16 @@
 use bytes;
 require Exporter ;
 
-use IO::Compress::Base 2.101 ;
+use IO::Compress::Base 2.201 ;
 
-use IO::Compress::Base::Common  2.101 qw();
-use IO::Compress::Adapter::Bzip2 2.101 ;
+use IO::Compress::Base::Common  2.201 qw();
+use IO::Compress::Adapter::Bzip2 2.201 ;
 
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $Bzip2Error = '';
 
 @ISA    = qw(IO::Compress::Base Exporter);
@@ -51,7 +51,7 @@
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.101 qw(:Parse);
+    use IO::Compress::Base::Common  2.201 qw(:Parse);
 
     return (
             'blocksize100k' => IO::Compress::Base::Common::Parse_unsigned,  1,
@@ -818,7 +818,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Compress/Deflate.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Deflate.pm Changed

@@ -8,16 +8,16 @@
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.101 ();
-use IO::Compress::Adapter::Deflate 2.101 ;
+use IO::Compress::RawDeflate 2.201 ();
+use IO::Compress::Adapter::Deflate 2.201 ;
 
-use IO::Compress::Zlib::Constants 2.101 ;
-use IO::Compress::Base::Common  2.101 qw();
+use IO::Compress::Zlib::Constants 2.201 ;
+use IO::Compress::Base::Common  2.201 qw();
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $DeflateError = '';
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
@@ -42,92 +42,35 @@
     return $obj->_def(@_);
 }
 
-
-sub bitmask($$$$)
-{
-    my $into  = shift ;
-    my $value  = shift ;
-    my $offset = shift ;
-    my $mask   = shift ;
-
-    return $into | (($value & $mask) << $offset ) ;
-}
-
-sub mkDeflateHdr($$$;$)
-{
-    my $method = shift ;
-    my $cinfo  = shift;
-    my $level  = shift;
-    my $fdict_adler = shift  ;
-
-    my $cmf = 0;
-    my $flg = 0;
-    my $fdict = 0;
-    $fdict = 1 if defined $fdict_adler;
-
-    $cmf = bitmask($cmf, $method, ZLIB_CMF_CM_OFFSET,    ZLIB_CMF_CM_BITS);
-    $cmf = bitmask($cmf, $cinfo,  ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS);
-
-    $flg = bitmask($flg, $fdict,  ZLIB_FLG_FDICT_OFFSET, ZLIB_FLG_FDICT_BITS);
-    $flg = bitmask($flg, $level,  ZLIB_FLG_LEVEL_OFFSET, ZLIB_FLG_LEVEL_BITS);
-
-    my $fcheck = 31 - ($cmf * 256 + $flg) % 31 ;
-    $flg = bitmask($flg, $fcheck, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS);
-
-    my $hdr =  pack("CC", $cmf, $flg) ;
-    $hdr .= pack("N", $fdict_adler) if $fdict ;
-
-    return $hdr;
-}
-
-sub mkHeader
+sub mkComp
 {
     my $self = shift ;
-    my $param = shift ;
+    my $got = shift ;
 
-    my $level = $param->getValue('level');
-    my $strategy = $param->getValue('strategy');
+    my ($obj, $errstr, $errno) = IO::Compress::Adapter::Deflate::mkCompObject1(
+                                                 $got->getValue('crc32'),
+                                                 $got->getValue('adler32'),
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
 
-    my $lflag ;
-    $level = 6
-        if $level == Z_DEFAULT_COMPRESSION ;
+   return $self->saveErrorString(undef, $errstr, $errno)
+       if ! defined $obj;
 
-    if (ZLIB_VERNUM >= 0x1210)
-    {
-        if ($strategy >= Z_HUFFMAN_ONLY || $level < 2)
-         {  $lflag = ZLIB_FLG_LEVEL_FASTEST }
-        elsif ($level < 6)
-         {  $lflag = ZLIB_FLG_LEVEL_FAST }
-        elsif ($level == 6)
-         {  $lflag = ZLIB_FLG_LEVEL_DEFAULT }
-        else
-         {  $lflag = ZLIB_FLG_LEVEL_SLOWEST }
-    }
-    else
-    {
-        $lflag = ($level - 1) >> 1 ;
-        $lflag = 3 if $lflag > 3 ;
-    }
-
-     #my $wbits = (MAX_WBITS - 8) << 4 ;
-    my $wbits = 7;
-    mkDeflateHdr(ZLIB_CMF_CM_DEFLATED, $wbits, $lflag);
+   return $obj;
 }
 
-sub ckParams
+
+sub mkHeader
 {
     my $self = shift ;
-    my $got = shift;
-
-    $got->setValue('adler32' => 1);
-    return 1 ;
+    return '';
 }
 
-
 sub mkTrailer
 {
     my $self = shift ;
-    return pack("N", *$self->{Compress}->adler32()) ;
+    return '';
 }
 
 sub mkFinalTrailer
@@ -135,12 +78,6 @@
     return '';
 }
 
-#sub newHeader
-#{
-#    my $self = shift ;
-#    return *$self->{Header};
-#}
-
 sub getExtraParams
 {
     my $self = shift ;
@@ -930,9 +867,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -940,6 +877,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -952,7 +892,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Compress/FAQ.pod -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/FAQ.pod Changed

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

@@ -8,12 +8,12 @@
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.101 () ;
-use IO::Compress::Adapter::Deflate 2.101 ;
+use IO::Compress::RawDeflate 2.201 () ;
+use IO::Compress::Adapter::Deflate 2.201 ;
 
-use IO::Compress::Base::Common  2.101 qw(:Status );
-use IO::Compress::Gzip::Constants 2.101 ;
-use IO::Compress::Zlib::Extra 2.101 ;
+use IO::Compress::Base::Common  2.201 qw(:Status );
+use IO::Compress::Gzip::Constants 2.201 ;
+use IO::Compress::Zlib::Extra 2.201 ;
 
 BEGIN
 {
@@ -25,7 +25,7 @@
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $GzipError = '' ;
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
@@ -1242,9 +1242,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -1252,6 +1252,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -1264,7 +1267,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Compress/Gzip/Constants.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Gzip/Constants.pm Changed

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

@@ -6,16 +6,16 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base 2.101 ;
-use IO::Compress::Base::Common  2.101 qw(:Status :Parse);
-use IO::Compress::Adapter::Deflate 2.101 ;
-use Compress::Raw::Zlib  2.101 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+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);
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $RawDeflateError = '';
 
 @ISA = qw(IO::Compress::Base Exporter);
@@ -985,9 +985,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -995,6 +995,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -1007,7 +1010,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Compress/Zip.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Zip.pm Changed

@@ -4,41 +4,41 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.101 qw(:Status );
-use IO::Compress::RawDeflate 2.101 ();
-use IO::Compress::Adapter::Deflate 2.101 ;
-use IO::Compress::Adapter::Identity 2.101 ;
-use IO::Compress::Zlib::Extra 2.101 ;
-use IO::Compress::Zip::Constants 2.101 ;
+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 File::Spec();
 use Config;
 
-use Compress::Raw::Zlib  2.101 ();
+use Compress::Raw::Zlib  2.201 ();
 
 BEGIN
 {
     eval { require IO::Compress::Adapter::Bzip2 ;
-           IO::Compress::Adapter::Bzip2->import( 2.101 );
+           IO::Compress::Adapter::Bzip2->import( 2.201 );
            require IO::Compress::Bzip2 ;
-           IO::Compress::Bzip2->import( 2.101 );
+           IO::Compress::Bzip2->import( 2.201 );
          } ;
 
     eval { require IO::Compress::Adapter::Lzma ;
-           IO::Compress::Adapter::Lzma->import( 2.101 );
+           IO::Compress::Adapter::Lzma->import( 2.201 );
            require IO::Compress::Lzma ;
-           IO::Compress::Lzma->import( 2.101 );
+           IO::Compress::Lzma->import( 2.201 );
          } ;
 
     eval { require IO::Compress::Adapter::Xz ;
-           IO::Compress::Adapter::Xz->import( 2.101 );
+           IO::Compress::Adapter::Xz->import( 2.201 );
            require IO::Compress::Xz ;
-           IO::Compress::Xz->import( 2.101 );
+           IO::Compress::Xz->import( 2.201 );
          } ;
     eval { require IO::Compress::Adapter::Zstd ;
-           IO::Compress::Adapter::Zstd->import( 2.101 );
+           IO::Compress::Adapter::Zstd->import( 2.201 );
            require IO::Compress::Zstd ;
-           IO::Compress::Zstd->import( 2.101 );
+           IO::Compress::Zstd->import( 2.201 );
          } ;
 }
 
@@ -47,7 +47,7 @@
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $ZipError = '';
 
 @ISA = qw(IO::Compress::RawDeflate Exporter);
@@ -85,20 +85,24 @@
         if $method == ZIP_CM_STORE || $method == ZIP_CM_DEFLATE ;
 
     return 1
-        if $method == ZIP_CM_BZIP2 and
-           defined $IO::Compress::Adapter::Bzip2::VERSION;
+        if $method == ZIP_CM_BZIP2 &&
+           defined $IO::Compress::Adapter::Bzip2::VERSION &&
+           defined &{ "IO::Compress::Adapter::Bzip2::mkRawZipCompObject" };
 
     return 1
-        if $method == ZIP_CM_LZMA and
-           defined $IO::Compress::Adapter::Lzma::VERSION;
+        if $method == ZIP_CM_LZMA &&
+           defined $IO::Compress::Adapter::Lzma::VERSION &&
+           defined &{ "IO::Compress::Adapter::Lzma::mkRawZipCompObject" };
 
     return 1
-        if $method == ZIP_CM_XZ and
-           defined $IO::Compress::Adapter::Xz::VERSION;
+        if $method == ZIP_CM_XZ &&
+           defined $IO::Compress::Adapter::Xz::VERSION &&
+           defined &{ "IO::Compress::Adapter::Xz::mkRawZipCompObject" };
 
     return 1
-        if $method == ZIP_CM_ZSTD and
-           defined $IO::Compress::Adapter::ZSTD::VERSION;
+        if $method == ZIP_CM_ZSTD &&
+           defined $IO::Compress::Adapter::ZSTD::VERSION &&
+           defined &{ "IO::Compress::Adapter::ZSTD::mkRawZipCompObject" };
 
     return 0;
 }
@@ -1053,12 +1057,24 @@
 If the C<$input_filename_or_reference> parameter is any other type,
 C<undef> will be returned.
 
-In addition, if C<$input_filename_or_reference> is a simple filename,
-the default values for
-the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options will be sourced from that file.
+In addition, if C<$input_filename_or_reference> corresponds to a filename
+from the filesystem, a number of zip file header fields will be populated by default
+using the following attributes from the input file
+
+=over 5
+
+=item * the full filename contained in C<$input_filename_or_reference>
+
+=item * the file protection attributes
+
+=item * the UID/GID for the file
+
+=item * the file timestamps
+
+=back
 
 If you do not want to use these defaults they can be overridden by
-explicitly setting the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options or by setting the
+explicitly setting one, or more, of the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options or by setting the
 C<Minimal> parameter.
 
 =head3 The C<$output_filename_or_reference> parameter
@@ -2121,9 +2137,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -2131,6 +2147,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -2143,7 +2162,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Compress/Zip/Constants.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Compress/Zip/Constants.pm Changed

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

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

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

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

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

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

@@ -6,22 +6,22 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.101 qw(:Parse);
+use IO::Compress::Base::Common  2.201 qw(:Parse);
 
-use IO::Uncompress::Adapter::Inflate  2.101 ();
+use IO::Uncompress::Adapter::Inflate  2.201 ();
 
 
-use IO::Uncompress::Base  2.101 ;
-use IO::Uncompress::Gunzip  2.101 ;
-use IO::Uncompress::Inflate  2.101 ;
-use IO::Uncompress::RawInflate  2.101 ;
-use IO::Uncompress::Unzip  2.101 ;
+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 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $AnyInflateError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
@@ -976,9 +976,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -986,6 +986,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -998,7 +1001,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Uncompress/AnyUncompress.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/AnyUncompress.pm Changed

@@ -4,16 +4,16 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.101 ();
+use IO::Compress::Base::Common 2.201 ();
 
-use IO::Uncompress::Base 2.101 ;
+use IO::Uncompress::Base 2.201 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $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.101 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.101 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.101 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.101 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzma 2.101 ;';
-   eval ' use IO::Uncompress::Adapter::UnXz 2.101 ;';
-   eval ' use IO::Uncompress::Adapter::UnZstd 2.101 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzip 2.101 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.101 ;';
-   eval ' use IO::Uncompress::UnLzop 2.101 ;';
-   eval ' use IO::Uncompress::Gunzip 2.101 ;';
-   eval ' use IO::Uncompress::Inflate 2.101 ;';
-   eval ' use IO::Uncompress::RawInflate 2.101 ;';
-   eval ' use IO::Uncompress::Unzip 2.101 ;';
-   eval ' use IO::Uncompress::UnLzf 2.101 ;';
-   eval ' use IO::Uncompress::UnLzma 2.101 ;';
-   eval ' use IO::Uncompress::UnXz 2.101 ;';
-   eval ' use IO::Uncompress::UnZstd 2.101 ;';
-   eval ' use IO::Uncompress::UnLzip 2.101 ;';
+   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 ;';
 
 }
 
@@ -1077,7 +1077,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Uncompress/Base.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Base.pm Changed

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

@@ -4,15 +4,15 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.101 qw(:Status );
+use IO::Compress::Base::Common 2.201 qw(:Status );
 
-use IO::Uncompress::Base 2.101 ;
-use IO::Uncompress::Adapter::Bunzip2 2.101 ;
+use IO::Uncompress::Base 2.201 ;
+use IO::Uncompress::Adapter::Bunzip2 2.201 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $Bunzip2Error = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -130,7 +130,9 @@
 sub isBzip2Magic
 {
     my $buffer = shift ;
-    return $buffer =~ /^BZh\d$/;
+
+                  # ASCII:  B   Z   h    0    9
+    return $buffer =~ qr/^\x42\x5A\x68\x30-\x39$/;
 }
 
 1 ;
@@ -907,7 +909,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Uncompress/Gunzip.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Gunzip.pm Changed

@@ -9,12 +9,12 @@
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.101 ;
+use IO::Uncompress::RawInflate 2.201 ;
 
-use Compress::Raw::Zlib 2.101 () ;
-use IO::Compress::Base::Common 2.101 qw(:Status );
-use IO::Compress::Gzip::Constants 2.101 ;
-use IO::Compress::Zlib::Extra 2.101 ;
+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 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@
 
 $GunzipError = '';
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 
 sub new
 {
@@ -1100,9 +1100,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -1110,6 +1110,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -1122,7 +1125,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Uncompress/Inflate.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Inflate.pm Changed

@@ -5,15 +5,15 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.101 qw(:Status );
-use IO::Compress::Zlib::Constants 2.101 ;
+use IO::Compress::Base::Common  2.201 qw(:Status );
+use IO::Compress::Zlib::Constants 2.201 ;
 
-use IO::Uncompress::RawInflate  2.101 ;
+use IO::Uncompress::RawInflate  2.201 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $InflateError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
@@ -972,9 +972,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -982,6 +982,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -994,7 +997,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Uncompress/RawInflate.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/RawInflate.pm Changed

@@ -5,16 +5,16 @@
 use warnings;
 use bytes;
 
-use Compress::Raw::Zlib  2.101 ;
-use IO::Compress::Base::Common  2.101 qw(:Status );
+use Compress::Raw::Zlib  2.201 ;
+use IO::Compress::Base::Common  2.201 qw(:Status );
 
-use IO::Uncompress::Base  2.101 ;
-use IO::Uncompress::Adapter::Inflate  2.101 ;
+use IO::Uncompress::Base  2.201 ;
+use IO::Uncompress::Adapter::Inflate  2.201 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $RawInflateError = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -1100,9 +1100,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -1110,6 +1110,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -1122,7 +1125,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/lib/IO/Uncompress/Unzip.pm -> _service:tar_scm:IO-Compress-2.201.tar.gz/lib/IO/Uncompress/Unzip.pm Changed

@@ -9,14 +9,14 @@
 use bytes;
 
 use IO::File;
-use IO::Uncompress::RawInflate  2.101 ;
-use IO::Compress::Base::Common  2.101 qw(:Status );
-use IO::Uncompress::Adapter::Inflate  2.101 ;
-use IO::Uncompress::Adapter::Identity 2.101 ;
-use IO::Compress::Zlib::Extra 2.101 ;
-use IO::Compress::Zip::Constants 2.101 ;
+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 Compress::Raw::Zlib  2.101 () ;
+use Compress::Raw::Zlib  2.201 () ;
 
 BEGIN
 {
@@ -38,11 +38,11 @@
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.101';
+$VERSION = '2.201';
 $UnzipError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
-@EXPORT_OK = qw( $UnzipError unzip );
+@EXPORT_OK = qw($UnzipError unzip );
 %EXPORT_TAGS = %IO::Uncompress::RawInflate::EXPORT_TAGS ;
 push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
 Exporter::export_ok_tags('all');
@@ -812,12 +812,11 @@
 	my $min  = ( ( $dt >> 5 ) & 0x3f );
 	my $sec  = ( ( $dt << 1 ) & 0x3e );
 
-
-    use POSIX 'mktime';
-
-    my $time_t = mktime( $sec, $min, $hour, $mday, $mon, $year, 0, 0, -1 );
+    use Time::Local ;
+    my $time_t = Time::Local::timelocal( $sec, $min, $hour, $mday, $mon, $year);
     return 0 if ! defined $time_t;
-	return $time_t;
+    return $time_t;
+
 }
 
 #sub scanCentralDirectory
@@ -1943,9 +1942,9 @@
 L<IO::Zlib|IO::Zlib>
 
 For RFC 1950, 1951 and 1952 see
-L<http://www.faqs.org/rfcs/rfc1950.html>,
-L<http://www.faqs.org/rfcs/rfc1951.html> and
-L<http://www.faqs.org/rfcs/rfc1952.html>
+L<https://datatracker.ietf.org/doc/html/rfc1950>,
+L<https://datatracker.ietf.org/doc/html/rfc1951> and
+L<https://datatracker.ietf.org/doc/html/rfc1952>
 
 The I<zlib> compression library was written by Jean-loup Gailly
 C<gzip@prep.ai.mit.edu> and Mark Adler C<madler@alumni.caltech.edu>.
@@ -1953,6 +1952,9 @@
 The primary site for the I<zlib> compression library is
 L<http://www.zlib.org>.
 
+The primary site for the I<zlib-ng> compression library is
+L<https://github.com/zlib-ng/zlib-ng>.
+
 The primary site for gzip is L<http://www.gzip.org>.
 
 =head1 AUTHOR
@@ -1965,7 +1967,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2022 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.101.tar.gz/t/000prereq.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/000prereq.t Changed

_service:tar_scm:IO-Compress-2.101.tar.gz/t/005defhdr.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/005defhdr.t Changed

@@ -19,7 +19,7 @@
     $extra = 1
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
-    plan tests => 595 + $extra ;
+    plan tests => 114 + $extra ;
 
     use_ok('Compress::Raw::Zlib') ;
 
@@ -123,6 +123,7 @@
 
 }
 
+if (0) # disable these tests: IO::Compress::Deflate doesn't create the zlib header itself so no need to test
 {
     title "Check user-defined header settings match zlib" ;
 
@@ -168,13 +169,16 @@
 
         my $hdr1 = ReadHeaderInfoZlib($string, %$opts);
 
+        # zlib-ng <= 2.0.6 with Level 1 sets the CINFO value to 5 . All other zlib & zlib-ng use expected value of 7
+        # Note that zlib-ng 2.0.x uses a 16-bit encoding for ZLIBNG_VERNUM
+        my $cinfoValue =  Compress::Raw::Zlib::is_zlibng() && Compress::Raw::Zlib::ZLIBNG_VERNUM() <= 0x2060 && defined $opts->{'-Level'} && $opts->{'-Level'} == 1 ? 5 : 7;
         is $hdr->{CM},     8, "  CM is 8";
-        is $hdr->{CINFO},  7, "  CINFO is 7";
+        is $hdr->{CINFO},  $cinfoValue, "  CINFO is $cinfoValue";
         is $hdr->{FDICT},  0, "  FDICT is 0";
 
         while (my ($k, $v) = each %$expect)
         {
-            if (ZLIB_VERNUM >= 0x1220)
+            if (Compress::Raw::Zlib::is_zlibng() || ZLIB_VERNUM >= 0x1220)
               { is $hdr->{$k}, $v, "  $k is $v" }
             else
               { ok 1, "  Skip test for $k" }
@@ -357,4 +361,3 @@
         ok $gunz->close ;
     }
 }
-

_service:tar_scm:IO-Compress-2.101.tar.gz/t/011-streamzip.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/011-streamzip.t Changed

@@ -87,7 +87,7 @@
 
 
 # streamzip
-# ########
+# #########
 
 {
     title "streamzip" ;
@@ -123,28 +123,34 @@
     {
         if ($method eq 'lzma')
         {
-            eval { require IO::Compress::Lzma } ;
+            no warnings;
+            eval { require IO::Compress::Lzma && defined &{ 'IO::Compress::Adapter::Bzip2::mkRawZipCompObject' } } ;
             skip "Method 'lzma' needs IO::Compress::Lzma\n", 8
                 if $@;
         }
 
         if ($method eq 'zstd')
         {
-            eval { require IO::Compress::Zstd } ;
+            no warnings;
+            eval { require IO::Compress::Zstd && defined &{ 'IO::Compress::Adapter::Zstd::mkRawZipCompObject' }} ;
             skip "Method 'zstd' needs IO::Compress::Zstd\n", 8
                 if $@;
         }
 
         if ($method eq 'xz')
         {
-            eval { require IO::Compress::Xz } ;
-            skip "Method 'zstd' needs IO::Compress::Xz\n", 8
+            no warnings;
+            eval { require IO::Compress::Xz && defined &{ 'IO::Compress::Adapter::Xz::mkRawZipCompObject' }} ;
+            skip "Method 'xz' needs IO::Compress::Xz\n", 8
                 if $@;
         }
 
         {
             title "streamzip method $method" ;
 
+            skip "streaming unzip not supported with zstd\n", 7
+                if $method eq 'zstd' ;
+
             my ($infile, $outfile);
             my $lex = LexFile->new( $infile, $outfile );

_service:tar_scm:IO-Compress-2.101.tar.gz/t/101truncate-rawdeflate.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/101truncate-rawdeflate.t Changed

_service:tar_scm:IO-Compress-2.101.tar.gz/t/105oneshot-zip-only.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/105oneshot-zip-only.t Changed

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

_service:tar_scm:IO-Compress-2.101.tar.gz/t/112utf8-zip.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/112utf8-zip.t Changed

_service:tar_scm:IO-Compress-2.201.tar.gz/t/113issues.t Added

@@ -0,0 +1,66 @@
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir 't' if -d 't';
+        @INC = ("../lib", "lib/compress");
+    }
+}
+
+use lib qw(t t/compress);
+use strict;
+use warnings;
+use bytes;
+
+use Test::More ;
+use CompTestUtils;
+use Data::Dumper;
+
+use IO::Compress::Zip     qw($ZipError);
+use IO::Uncompress::Unzip qw($UnzipError);
+
+BEGIN {
+    plan skip_all => "Encode is not available"
+        if $ < 5.006 ;
+
+    eval { require Encode; Encode->import(); };
+
+    plan skip_all => "Encode is not available"
+        if $@ ;
+
+    plan skip_all => "Encode not working in perl $"
+        if $ >= 5.008 && $ < 5.008004 ;
+
+    # use Test::NoWarnings, if available
+    my $extra = 0 ;
+    $extra = 1
+        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
+
+    plan tests => 3 + $extra;
+}
+
+{
+    title "github-34: Calling nextStream on an IO::Uncompress::Zip object in Transparent mode dies when input is uncompressed";
+    # https://github.com/pmqs/IO-Compress/issues/34
+
+    my $lex = LexFile->new( my $file1 );
+
+    writeFile($file1, "1234\n5678\n");
+
+    my $in = IO::Uncompress::Unzip->new( $file1,
+                                        AutoClose => 1,
+                                        Transparent => 1
+                                     ) or
+        die( "foo.txt: $UnzipError\n" );
+
+    my $data;
+    my $status;
+
+    # read first stream
+    $data .= $_
+        while <$in> ;
+
+    is $data, "1234\n5678\n" ;
+
+    # This line triggers the error below without a fix
+    #     Can't call method "reset" on an undefined value
+    is $in->nextStream, 0 ;
+}

_service:tar_scm:IO-Compress-2.101.tar.gz/t/compress/generic.pl -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/compress/generic.pl Changed

@@ -342,14 +342,19 @@
             is myGZreadFile($name), $hello, "  wrote OK";
             #hexDump($name);
 
+            SKIP:
             {
               title "Input from stdin via filename '-'";
 
+              # Older versions of Windows can hang on these tests
+              skip 'Skipping STDIN tests', 5
+                  if $ENV{IO_COMPRESS_SKIP_STDIN_TESTS};
+
               my $x ;
               my $uncomp ;
               my $stdinFileno = fileno(STDIN);
               # open below doesn't return 1 sometimes on XP
-                 open(SAVEIN, "<&STDIN");
+              open(SAVEIN, "<&STDIN");
               ok open(STDIN, "<$name"), "  redirect STDIN";
               my $dummy = fileno SAVEIN;
               $x = $UncompressClass->can('new')->( $UncompressClass, '-', Append => 1, Transparent => 0 )
@@ -360,7 +365,7 @@
               1 while $x->read($uncomp) > 0 ;
 
               ok $x->close, "  close" ;
-                 open(STDIN, "<&SAVEIN");
+              open(STDIN, "<&SAVEIN");
               is $uncomp, $hello, "  expected output" ;
             }
         }

_service:tar_scm:IO-Compress-2.101.tar.gz/t/compress/oneshot.pl -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/compress/oneshot.pl Changed

@@ -491,13 +491,19 @@
 
                 }
 
+                SKIP:
                 {
                     title "$TopType - From stdin (via '-') to Buffer content '$disp_content' Append $append" ;
 
+                    # Older versions of Windows can hang on these tests
+                    skip 'Skipping STDIN tests', 3 + $append
+                        if $ENV{IO_COMPRESS_SKIP_STDIN_TESTS};
+
                     my $lex = LexFile->new( my $in_file, my $out_file) ;
                     writeFile($in_file, $buffer);
 
-                       open(SAVEIN, "<&STDIN");
+                    open(SAVEIN, "<&STDIN");
+
                     my $dummy = fileno SAVEIN ;
                     ok open(STDIN, "<$in_file"), "  redirect STDIN";
 
@@ -506,7 +512,7 @@
                     ok &$Func('-', \$out, Append => $append), '  Compressed ok'
                         or diag $$Error ;
 
-                       open(STDIN, "<&SAVEIN");
+                    open(STDIN, "<&SAVEIN");
 
                     my $got = anyUncompress(\$out, $already);
                     $got = undef if ! defined $buffer && $got eq '' ;
@@ -1260,13 +1266,19 @@
                 is $output, $expected, "  Uncompressed matches original";
             }
 
+            SKIP:
             {
                 title "$TopType - From stdin (via '-') to Buffer content, Append($append) " ;
 
+                # Older versions of Windows can hang on these tests
+                skip 'Skipping STDIN tests', 4
+                    if $ENV{IO_COMPRESS_SKIP_STDIN_TESTS};
+
                 my $lex = LexFile->new( my $in_file) ;
                 writeFile($in_file, $comp);
 
-                   open(SAVEIN, "<&STDIN");
+                open(SAVEIN, "<&STDIN");
+
                 my $dummy = fileno SAVEIN ;
                 ok open(STDIN, "<$in_file"), "  redirect STDIN";
 
@@ -1276,7 +1288,7 @@
                 ok &$Func('-', \$output, Append => $append, @opts), '  Uncompressed ok'
                     or diag $$Error ;
 
-                   open(STDIN, "<&SAVEIN");
+                open(STDIN, "<&SAVEIN");
 
                 is $keep_comp, $comp, "  Input buffer not changed" ;
                 is $output, $expected, "  Uncompressed matches original";
@@ -1313,32 +1325,42 @@
             is $buff, $appended, "  Appended data ok";
         }
 
-        for my $stdin ('-', *STDIN) # , \*STDIN)
+        SKIP:
         {
-            title "$TopType - From stdin (via $stdin) to Buffer content, InputLength" ;
 
-            my $lex = LexFile->new( my $in_file );
-            my $expected = $buffer ;
-            my $appended = 'appended';
-            my $len_appended = length $appended;
-            writeFile($in_file, $comp . $appended ) ;
+            # Older versions of Windows can hang on these tests
+            skip 'Skipping STDIN tests', 12
+                if $ENV{IO_COMPRESS_SKIP_STDIN_TESTS};
 
-               open(SAVEIN, "<&STDIN");
-            my $dummy = fileno SAVEIN ;
-            ok open(STDIN, "<$in_file"), "  redirect STDIN";
+            for my $stdin ('-', *STDIN) # , \*STDIN)
+            {
+                title "$TopType - From stdin (via $stdin) to Buffer content, InputLength" ;
 
-            my $output ;
 
-            ok &$Func($stdin, \$output, Transparent => 0, InputLength => length $comp, @opts), '  Uncompressed ok'
-                or diag $$Error ;
 
-            my $buff ;
-            is read(STDIN, $buff, $len_appended), $len_appended, "  Length of Appended data ok";
+                my $lex = LexFile->new( my $in_file );
+                my $expected = $buffer ;
+                my $appended = 'appended';
+                my $len_appended = length $appended;
+                writeFile($in_file, $comp . $appended ) ;
 
-            is $output, $expected, "  Uncompressed matches original";
-            is $buff, $appended, "  Appended data ok";
+                open(SAVEIN, "<&STDIN");
+                my $dummy = fileno SAVEIN ;
+                ok open(STDIN, "<$in_file"), "  redirect STDIN";
+
+                my $output ;
+
+                ok &$Func($stdin, \$output, Transparent => 0, InputLength => length $comp, @opts), '  Uncompressed ok'
+                    or diag $$Error ;
+
+                my $buff ;
+                is read(STDIN, $buff, $len_appended), $len_appended, "  Length of Appended data ok";
+
+                is $output, $expected, "  Uncompressed matches original";
+                is $buff, $appended, "  Appended data ok";
 
-              open(STDIN, "<&SAVEIN");
+                open(STDIN, "<&SAVEIN");
+            }
         }
     }
 
@@ -1647,6 +1669,7 @@
 
         skip "open filehandle to buffer not supported in Perl $", 7
             if $ < 5.008 ;
+
         my $CompFunc = getTopFuncRef($CompressClass);
         my $UncompFunc = getTopFuncRef($UncompressClass);

_service:tar_scm:IO-Compress-2.101.tar.gz/t/cz-03zlib-v1.t -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/cz-03zlib-v1.t Changed

_service:tar_scm:IO-Compress-2.101.tar.gz/t/files/encrypt-standard.zip -> _service:tar_scm:IO-Compress-2.201.tar.gz/t/files/encrypt-standard.zip Changed

Changes of Revision 2