This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update IO-Compress from 2.096 to 2.100
authorRichard Leach <richardleach@users.noreply.github.com>
Mon, 18 Jan 2021 02:23:31 +0000 (02:23 +0000)
committerRichard Leach <richardleach@users.noreply.github.com>
Mon, 18 Jan 2021 02:23:31 +0000 (02:23 +0000)
75 files changed:
Porting/Maintainers.pl
cpan/IO-Compress/Makefile.PL
cpan/IO-Compress/bin/zipdetails
cpan/IO-Compress/lib/Compress/Zlib.pm
cpan/IO-Compress/lib/File/GlobMapper.pm
cpan/IO-Compress/lib/IO/Compress/Adapter/Bzip2.pm
cpan/IO-Compress/lib/IO/Compress/Adapter/Deflate.pm
cpan/IO-Compress/lib/IO/Compress/Adapter/Identity.pm
cpan/IO-Compress/lib/IO/Compress/Base.pm
cpan/IO-Compress/lib/IO/Compress/Base/Common.pm
cpan/IO-Compress/lib/IO/Compress/Bzip2.pm
cpan/IO-Compress/lib/IO/Compress/Deflate.pm
cpan/IO-Compress/lib/IO/Compress/FAQ.pod
cpan/IO-Compress/lib/IO/Compress/Gzip.pm
cpan/IO-Compress/lib/IO/Compress/Gzip/Constants.pm
cpan/IO-Compress/lib/IO/Compress/RawDeflate.pm
cpan/IO-Compress/lib/IO/Compress/Zip.pm
cpan/IO-Compress/lib/IO/Compress/Zip/Constants.pm
cpan/IO-Compress/lib/IO/Compress/Zlib/Constants.pm
cpan/IO-Compress/lib/IO/Compress/Zlib/Extra.pm
cpan/IO-Compress/lib/IO/Uncompress/Adapter/Bunzip2.pm
cpan/IO-Compress/lib/IO/Uncompress/Adapter/Identity.pm
cpan/IO-Compress/lib/IO/Uncompress/Adapter/Inflate.pm
cpan/IO-Compress/lib/IO/Uncompress/AnyInflate.pm
cpan/IO-Compress/lib/IO/Uncompress/AnyUncompress.pm
cpan/IO-Compress/lib/IO/Uncompress/Base.pm
cpan/IO-Compress/lib/IO/Uncompress/Bunzip2.pm
cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm
cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm
cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm
cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm
cpan/IO-Compress/private/MakeUtil.pm
cpan/IO-Compress/t/000prereq.t
cpan/IO-Compress/t/001bzip2.t
cpan/IO-Compress/t/002any-transparent.t
cpan/IO-Compress/t/004gziphdr.t
cpan/IO-Compress/t/005defhdr.t
cpan/IO-Compress/t/006zip.t
cpan/IO-Compress/t/011-streamzip.t
cpan/IO-Compress/t/01misc.t
cpan/IO-Compress/t/020isize.t
cpan/IO-Compress/t/050interop-gzip.t
cpan/IO-Compress/t/101truncate-bzip2.t
cpan/IO-Compress/t/101truncate-deflate.t
cpan/IO-Compress/t/101truncate-gzip.t
cpan/IO-Compress/t/101truncate-rawdeflate.t
cpan/IO-Compress/t/101truncate-zip.t
cpan/IO-Compress/t/105oneshot-gzip-only.t
cpan/IO-Compress/t/105oneshot-zip-bzip2-only.t
cpan/IO-Compress/t/105oneshot-zip-only.t
cpan/IO-Compress/t/105oneshot-zip-store-only.t
cpan/IO-Compress/t/107multi-zip-only.t
cpan/IO-Compress/t/108anyunc-transparent.t
cpan/IO-Compress/t/111const-deflate.t
cpan/IO-Compress/t/112utf8-zip.t
cpan/IO-Compress/t/compress/CompTestUtils.pm
cpan/IO-Compress/t/compress/any.pl
cpan/IO-Compress/t/compress/anyunc.pl
cpan/IO-Compress/t/compress/destroy.pl
cpan/IO-Compress/t/compress/encode.pl
cpan/IO-Compress/t/compress/generic.pl
cpan/IO-Compress/t/compress/merge.pl
cpan/IO-Compress/t/compress/multi.pl
cpan/IO-Compress/t/compress/newtied.pl
cpan/IO-Compress/t/compress/oneshot.pl
cpan/IO-Compress/t/compress/prime.pl
cpan/IO-Compress/t/compress/tied.pl
cpan/IO-Compress/t/compress/truncate.pl
cpan/IO-Compress/t/compress/zlib-generic.pl
cpan/IO-Compress/t/cz-01version.t
cpan/IO-Compress/t/cz-03zlib-v1.t
cpan/IO-Compress/t/cz-06gzsetp.t
cpan/IO-Compress/t/cz-08encoding.t
cpan/IO-Compress/t/cz-14gzopen.t
cpan/IO-Compress/t/globmapper.t

index 9fc3279..ab5ab5e 100755 (executable)
@@ -636,7 +636,7 @@ use File::Glob qw(:case);
     },
 
     'IO-Compress' => {
-        'DISTRIBUTION' => 'PMQS/IO-Compress-2.096.tar.gz',
+        'DISTRIBUTION' => 'PMQS/IO-Compress-2.100.tar.gz',
         'FILES'        => q[cpan/IO-Compress],
         'EXCLUDED'     => [
             qr{^examples/},
index 1249a3c..d55f014 100644 (file)
@@ -3,7 +3,7 @@
 use strict ;
 require 5.006 ;
 
-$::VERSION = '2.096' ;
+$::VERSION = '2.100' ;
 
 use lib '.';
 use private::MakeUtil;
index 6a054cd..55276af 100644 (file)
@@ -188,7 +188,7 @@ my %Extras = (
 
        );
 
-my $VERSION = "2.01" ;
+my $VERSION = "2.02" ;
 
 my $FH;
 
@@ -198,10 +198,10 @@ my $LocalHeaderCount = 0;
 my $CentralHeaderCount = 0;
 
 my $START;
-my $OFFSET = new U64 0;
+my $OFFSET = U64->new( 0 );
 my $TRAILING = 0 ;
-my $PAYLOADLIMIT = 256; #new U64 256;
-my $ZERO = new U64 0 ;
+my $PAYLOADLIMIT = 256; # U64->new( 256 );
+my $ZERO = U64->new( 0 );
 
 sub prOff
 {
@@ -595,7 +595,7 @@ sub read_U64
     myRead($b, 8);
     my ($lo, $hi) = unpack ("V V" , $b);
     no warnings 'uninitialized';
-    return ($b, new U64 $hi, $lo);
+    return ($b, U64->new( $hi, $lo) );
 }
 
 sub read_VV
@@ -714,7 +714,7 @@ die "$filename does not exist\n"
 die "$filename not a standard file\n"
     unless -f $filename ;
 
-$FH = new IO::File "<$filename"
+$FH = IO::File->new( "<$filename" )
     or die "Cannot open $filename: $!\n";
 
 
@@ -901,7 +901,7 @@ sub LocalHeader
     myRead($filename, $filenameLength);
     outputFilename($filename);
 
-    my $cl64 = new U64 $compressedLength ;
+    my $cl64 = U64->new( $compressedLength );
     my %ExtraContext = ();
     if ($extraLength)
     {
@@ -1154,7 +1154,7 @@ sub GeneralPurposeBits
 
     if ($method == ZIP_CM_DEFLATE)
     {
-        my $mid = $gp & 0x03;
+        my $mid = ($gp >> 1) & 0x03 ;
 
         out1 "[Bits 1-2]", "$mid '$lookup{$mid}'";
     }
@@ -1171,8 +1171,8 @@ sub GeneralPurposeBits
 
     if ($method == ZIP_CM_IMPLODE) # Imploding
     {
-        out1 "[Bit 1]", ($gp & 1 ? "1 '8k" : "0 '4k") . " Sliding Dictionary'" ;
-        out1 "[Bit 2]", ($gp & 2 ? "1 '3" : "0 '2"  ) . " Shannon-Fano Trees'" ;
+        out1 "[Bit 1]", ($gp & (1 << 1) ? "1 '8k" : "0 '4k") . " Sliding Dictionary'" ;
+        out1 "[Bit 2]", ($gp & (2 << 1) ? "1 '3" : "0 '2"  ) . " Shannon-Fano Trees'" ;
     }
 
     out1 "[Bit  3]", "1 'Streamed'"           if $gp & ZIP_GP_FLAG_STREAMING_MASK;
@@ -1363,7 +1363,7 @@ sub Ntfs2Unix
     # NTFS offset is 19DB1DED53E8000
 
     my $hex = Value_U64($u64) ;
-    my $NTFS_OFFSET = new U64 0x19DB1DE, 0xD53E8000 ;
+    my $NTFS_OFFSET = U64->new( 0x19DB1DE, 0xD53E8000 );
     $u64->subtract($NTFS_OFFSET);
     my $elapse = $u64->get64bit();
     my $ns = ($elapse % 10000000) * 100;
@@ -1766,8 +1766,8 @@ sub scanCentralDirectory
 
         my $got = [$locHeaderOffset, $compressedLength] ;
 
-        # my $v64 = new U64 $compressedLength ;
-        # my $loc64 = new U64 $locHeaderOffset ;
+        # my $v64 = U64->new( $compressedLength );
+        # my $loc64 = U64->new( $locHeaderOffset );
         # my $got = [$loc64, $v64] ;
 
         # if (full32 $compressedLength || full32  $locHeaderOffset) {
@@ -2285,7 +2285,7 @@ OPTIONS
      -v        Verbose - output more stuff
      --version Print version number
 
-Copyright (c) 2011-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2011-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 1290b1d..2380271 100644 (file)
@@ -7,18 +7,18 @@ use Carp ;
 use IO::Handle ;
 use Scalar::Util qw(dualvar);
 
-use IO::Compress::Base::Common 2.096 ;
-use Compress::Raw::Zlib 2.096 ;
-use IO::Compress::Gzip 2.096 ;
-use IO::Uncompress::Gunzip 2.096 ;
+use IO::Compress::Base::Common 2.100 ;
+use Compress::Raw::Zlib 2.100 ;
+use IO::Compress::Gzip 2.100 ;
+use IO::Uncompress::Gunzip 2.100 ;
 
 use strict ;
 use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.096';
-$XS_VERSION = $VERSION; 
+$VERSION = '2.100';
+$XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
 @ISA = qw(Exporter);
@@ -126,7 +126,7 @@ sub gzopen($$)
     my @params = () ;
 
     croak "gzopen: file parameter is not a filehandle or filename"
-        unless isaFilehandle $file || isaFilename $file  || 
+        unless isaFilehandle $file || isaFilename $file  ||
                (ref $file && ref $file eq 'SCALAR');
 
     return undef unless $mode =~ /[rwa]/i ;
@@ -134,17 +134,17 @@ sub gzopen($$)
     _set_gzerr(0) ;
 
     if ($writing) {
-        $gz = new IO::Compress::Gzip($file, Minimal => 1, AutoClose => 1, 
-                                     %defOpts) 
+        $gz = IO::Compress::Gzip->new($file, Minimal => 1, AutoClose => 1,
+                                     %defOpts)
             or $Compress::Zlib::gzerrno = $IO::Compress::Gzip::GzipError;
     }
     else {
-        $gz = new IO::Uncompress::Gunzip($file, 
+        $gz = IO::Uncompress::Gunzip->new($file,
                                          Transparent => 1,
-                                         Append => 0, 
-                                         AutoClose => 1, 
+                                         Append => 0,
+                                         AutoClose => 1,
                                          MultiStream => 1,
-                                         Strict => 0) 
+                                         Strict => 0)
             or $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError;
     }
 
@@ -161,7 +161,7 @@ sub Compress::Zlib::gzFile::gzread
     return _set_gzerr(Z_STREAM_ERROR())
         if $self->[1] ne 'inflate';
 
-    my $len = defined $_[1] ? $_[1] : 4096 ; 
+    my $len = defined $_[1] ? $_[1] : 4096 ;
 
     my $gz = $self->[0] ;
     if ($self->gzeof() || $len == 0) {
@@ -171,7 +171,7 @@ sub Compress::Zlib::gzFile::gzread
         return 0 ;
     }
 
-    my $status = $gz->read($_[0], $len) ; 
+    my $status = $gz->read($_[0], $len) ;
     _save_gzerr($gz, 1);
     return $status ;
 }
@@ -185,7 +185,7 @@ sub Compress::Zlib::gzFile::gzreadline
         # Maintain backward compatibility with 1.x behaviour
         # It didn't support $/, so this can't either.
         local $/ = "\n" ;
-        $_[0] = $gz->getline() ; 
+        $_[0] = $gz->getline() ;
     }
     _save_gzerr($gz, 1);
     return defined $_[0] ? length $_[0] : 0 ;
@@ -199,7 +199,7 @@ sub Compress::Zlib::gzFile::gzwrite
     return _set_gzerr(Z_STREAM_ERROR())
         if $self->[1] ne 'deflate';
 
-    $] >= 5.008 and (utf8::downgrade($_[0], 1) 
+    $] >= 5.008 and (utf8::downgrade($_[0], 1)
         or croak "Wide character in gzwrite");
 
     my $status = $gz->write($_[0]) ;
@@ -282,8 +282,8 @@ sub Compress::Zlib::gzFile::gzsetparams
 
     return _set_gzerr(Z_STREAM_ERROR())
         if $self->[1] ne 'deflate';
-    my $status = *$gz->{Compress}->deflateParams(-Level   => $level, 
+
+    my $status = *$gz->{Compress}->deflateParams(-Level   => $level,
                                                 -Strategy => $strategy);
     _save_gzerr($gz);
     return $status ;
@@ -293,7 +293,7 @@ sub Compress::Zlib::gzFile::gzerror
 {
     my $self = shift ;
     my $gz = $self->[0] ;
-    
+
     return $Compress::Zlib::gzerrno ;
 }
 
@@ -310,7 +310,7 @@ sub compress($;$)
         $in = \$_[0] ;
     }
 
-    $] >= 5.008 and (utf8::downgrade($$in, 1) 
+    $] >= 5.008 and (utf8::downgrade($$in, 1)
         or croak "Wide character in compress");
 
     my $level = (@_ == 2 ? $_[1] : Z_DEFAULT_COMPRESSION() );
@@ -322,7 +322,7 @@ sub compress($;$)
                                            MAX_MEM_LEVEL,
                                            Z_DEFAULT_STRATEGY,
                                            4096,
-                                           '') 
+                                           '')
             or return undef ;
 
     $err = $x->deflate($in, $output) ;
@@ -330,7 +330,7 @@ sub compress($;$)
 
     $err = $x->flush($output) ;
     return undef unless $err == Z_OK() ;
-    
+
     return $output ;
 }
 
@@ -346,21 +346,21 @@ sub uncompress($)
         $in = \$_[0] ;
     }
 
-    $] >= 5.008 and (utf8::downgrade($$in, 1) 
-        or croak "Wide character in uncompress");    
-        
+    $] >= 5.008 and (utf8::downgrade($$in, 1)
+        or croak "Wide character in uncompress");
+
     my ($obj, $status) = Compress::Raw::Zlib::_inflateInit(0,
-                                MAX_WBITS, 4096, "") ;   
-                                
-    $status == Z_OK 
+                                MAX_WBITS, 4096, "") ;
+
+    $status == Z_OK
         or return undef;
-    
-    $obj->inflate($in, $output) == Z_STREAM_END 
+
+    $obj->inflate($in, $output) == Z_STREAM_END
         or return undef;
-    
+
     return $output;
 }
+
 sub deflateInit(@)
 {
     my ($got) = ParseParameters(0,
@@ -374,27 +374,27 @@ sub deflateInit(@)
                 'dictionary'    => [IO::Compress::Base::Common::Parse_any,      ""],
                 }, @_ ) ;
 
-    croak "Compress::Zlib::deflateInit: Bufsize must be >= 1, you specified " . 
+    croak "Compress::Zlib::deflateInit: Bufsize must be >= 1, you specified " .
             $got->getValue('bufsize')
         unless $got->getValue('bufsize') >= 1;
 
     my $obj ;
+
     my $status = 0 ;
-    ($obj, $status) = 
+    ($obj, $status) =
       Compress::Raw::Zlib::_deflateInit(0,
-                $got->getValue('level'), 
-                $got->getValue('method'), 
-                $got->getValue('windowbits'), 
-                $got->getValue('memlevel'), 
-                $got->getValue('strategy'), 
+                $got->getValue('level'),
+                $got->getValue('method'),
+                $got->getValue('windowbits'),
+                $got->getValue('memlevel'),
+                $got->getValue('strategy'),
                 $got->getValue('bufsize'),
                 $got->getValue('dictionary')) ;
 
     my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldDeflate"  : undef) ;
     return wantarray ? ($x, $status) : $x ;
 }
+
 sub inflateInit(@)
 {
     my ($got) = ParseParameters(0,
@@ -405,15 +405,15 @@ sub inflateInit(@)
                 }, @_) ;
 
 
-    croak "Compress::Zlib::inflateInit: Bufsize must be >= 1, you specified " . 
+    croak "Compress::Zlib::inflateInit: Bufsize must be >= 1, you specified " .
             $got->getValue('bufsize')
         unless $got->getValue('bufsize') >= 1;
 
     my $status = 0 ;
     my $obj ;
     ($obj, $status) = Compress::Raw::Zlib::_inflateInit(FLAG_CONSUME_INPUT,
-                                $got->getValue('windowbits'), 
-                                $got->getValue('bufsize'), 
+                                $got->getValue('windowbits'),
+                                $got->getValue('bufsize'),
                                 $got->getValue('dictionary')) ;
 
     my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldInflate"  : undef) ;
@@ -442,7 +442,7 @@ sub flush
     my $output ;
     my $flag = shift || Compress::Zlib::Z_FINISH();
     my $status = $self->SUPER::flush($output, $flag) ;
-    
+
     wantarray ? ($output, $status) : $output ;
 }
 
@@ -461,7 +461,7 @@ sub inflate
 
 package Compress::Zlib ;
 
-use IO::Compress::Gzip::Constants 2.096 ;
+use IO::Compress::Gzip::Constants 2.100 ;
 
 sub memGzip($)
 {
@@ -473,13 +473,13 @@ sub memGzip($)
                                            MAX_MEM_LEVEL,
                                            Z_DEFAULT_STRATEGY,
                                            4096,
-                                           '') 
+                                           '')
             or return undef ;
+
     # if the deflation buffer isn't a reference, make it one
     my $string = (ref $_[0] ? $_[0] : \$_[0]) ;
 
-    $] >= 5.008 and (utf8::downgrade($$string, 1) 
+    $] >= 5.008 and (utf8::downgrade($$string, 1)
         or croak "Wide character in memGzip");
 
     my $out;
@@ -487,12 +487,12 @@ sub memGzip($)
 
     $x->deflate($string, $out) == Z_OK
         or return undef ;
+
     $x->flush($out) == Z_OK
         or return undef ;
-    return IO::Compress::Gzip::Constants::GZIP_MINIMUM_HEADER . 
-           $out . 
+
+    return IO::Compress::Gzip::Constants::GZIP_MINIMUM_HEADER .
+           $out .
            pack("V V", $x->crc32(), $x->total_in());
 }
 
@@ -501,10 +501,10 @@ sub _removeGzipHeader($)
 {
     my $string = shift ;
 
-    return Z_DATA_ERROR() 
+    return Z_DATA_ERROR()
         if length($$string) < GZIP_MIN_HEADER_SIZE ;
 
-    my ($magic1, $magic2, $method, $flags, $time, $xflags, $oscode) = 
+    my ($magic1, $magic2, $method, $flags, $time, $xflags, $oscode) =
         unpack ('CCCCVCC', $$string);
 
     return Z_DATA_ERROR()
@@ -551,7 +551,7 @@ sub _removeGzipHeader($)
             if length ($$string) < GZIP_FHCRC_SIZE ;
         substr($$string, 0, GZIP_FHCRC_SIZE) = '';
     }
-    
+
     return Z_OK();
 }
 
@@ -566,24 +566,24 @@ sub memGunzip($)
 {
     # if the buffer isn't a reference, make it one
     my $string = (ref $_[0] ? $_[0] : \$_[0]);
-    $] >= 5.008 and (utf8::downgrade($$string, 1) 
+
+    $] >= 5.008 and (utf8::downgrade($$string, 1)
         or croak "Wide character in memGunzip");
 
     _set_gzerr(0);
 
     my $status = _removeGzipHeader($string) ;
-    $status == Z_OK() 
+    $status == Z_OK()
         or return _set_gzerr_undef($status);
-     
+
     my $bufsize = length $$string > 4096 ? length $$string : 4096 ;
     my $x = Compress::Raw::Zlib::_inflateInit(FLAG_CRC | FLAG_CONSUME_INPUT,
-                                -MAX_WBITS(), $bufsize, '') 
+                                -MAX_WBITS(), $bufsize, '')
               or return _ret_gun_error();
 
     my $output = '' ;
     $status = $x->inflate($string, $output);
-    
+
     if ( $status == Z_OK() )
     {
         _set_gzerr(Z_DATA_ERROR());
@@ -606,7 +606,7 @@ sub memGunzip($)
         $$string = '';
     }
 
-    return $output;   
+    return $output;
 }
 
 # Autoload methods go after __END__, and are processed by the autosplit program.
@@ -938,23 +938,23 @@ I<gzcat> function.
 
     use strict ;
     use warnings ;
-    
+
     use Compress::Zlib ;
-    
+
     # use stdin if no files supplied
     @ARGV = '-' unless @ARGV ;
-    
+
     foreach my $file (@ARGV) {
         my $buffer ;
-    
+
         my $gz = gzopen($file, "rb")
              or die "Cannot open $file: $gzerrno\n" ;
-    
+
         print $buffer while $gz->gzread($buffer) > 0 ;
-    
+
         die "Error reading from $file: $gzerrno" . ($gzerrno+0) . "\n"
             if $gzerrno != Z_STREAM_END ;
-        
+
         $gz->gzclose() ;
     }
 
@@ -963,28 +963,28 @@ very simple I<grep> like script.
 
     use strict ;
     use warnings ;
-    
+
     use Compress::Zlib ;
-    
+
     die "Usage: gzgrep pattern [file...]\n"
         unless @ARGV >= 1;
-    
+
     my $pattern = shift ;
-    
+
     # use stdin if no files supplied
     @ARGV = '-' unless @ARGV ;
-    
+
     foreach my $file (@ARGV) {
         my $gz = gzopen($file, "rb")
              or die "Cannot open $file: $gzerrno\n" ;
-    
+
         while ($gz->gzreadline($_) > 0) {
             print if /$pattern/ ;
         }
-    
+
         die "Error reading from $file: $gzerrno\n"
             if $gzerrno != Z_STREAM_END ;
-        
+
         $gz->gzclose() ;
     }
 
@@ -994,14 +994,14 @@ standard output.
 
     use strict ;
     use warnings ;
-    
+
     use Compress::Zlib ;
-    
+
     binmode STDOUT;  # gzopen only sets it on the fd
-    
+
     my $gz = gzopen(\*STDOUT, "wb")
           or die "Cannot open stdout: $gzerrno\n" ;
-    
+
     while (<>) {
         $gz->gzwrite($_)
           or die "error writing: $gzerrno\n" ;
@@ -1275,18 +1275,18 @@ input, deflates it and writes it to standard output.
     while (<>)
     {
         ($output, $status) = $x->deflate($_) ;
-    
+
         $status == Z_OK
             or die "deflation failed\n" ;
-    
+
         print $output ;
     }
-    
+
     ($output, $status) = $x->flush() ;
-    
+
     $status == Z_OK
         or die "deflation failed\n" ;
-    
+
     print $output ;
 
 =head1 Inflate Interface
@@ -1313,13 +1313,13 @@ I<zlib> error code.
 The function optionally takes a number of named options specified as
 C<< -Name=>value >> pairs. This allows individual options to be
 tailored without having to specify them all in the parameter list.
+
 For backward compatibility, it is also possible to pass the parameters
 as a reference to a hash containing the name=>value pairs.
+
 The function takes one optional parameter, a reference to a hash.  The
 contents of the hash allow the deflation interface to be tailored.
+
 Here is a list of the valid options:
 
 =over 5
@@ -1409,27 +1409,27 @@ Here is an example of using C<inflate>.
 
     use strict ;
     use warnings ;
-    
+
     use Compress::Zlib ;
-    
+
     my $x = inflateInit()
        or die "Cannot create a inflation stream\n" ;
-    
+
     my $input = '' ;
     binmode STDIN;
     binmode STDOUT;
-    
+
     my ($output, $status) ;
     while (read(STDIN, $input, 4096))
     {
         ($output, $status) = $x->inflate(\$input) ;
-    
+
         print $output
             if $status == Z_OK or $status == Z_STREAM_END ;
-    
+
         last if $status != Z_OK ;
     }
-    
+
     die "inflation failed\n"
         unless $status == Z_STREAM_END ;
 
@@ -1506,8 +1506,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 1995-2020 Paul Marquess. All rights reserved.
+Copyright (c) 1995-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index a4e5385..f015b16 100644 (file)
@@ -51,7 +51,7 @@ sub globmap ($$;)
     my $inputGlob = shift ;
     my $outputGlob = shift ;
 
-    my $obj = new File::GlobMapper($inputGlob, $outputGlob, @_)
+    my $obj = File::GlobMapper->new($inputGlob, $outputGlob, @_)
         or croak "globmap: $Error" ;
     return $obj->getFileMap();
 }
@@ -383,7 +383,7 @@ File::GlobMapper - Extend File Glob to Allow Input and Output Files
     my $aref = globmap $input => $output
         or die $File::GlobMapper::Error ;
 
-    my $gm = new File::GlobMapper $input => $output
+    my $gm = File::GlobMapper->new( $input => $output )
         or die $File::GlobMapper::Error ;
 
 
index 635091e..d20b62b 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 qw(:Status);
+use IO::Compress::Base::Common  2.100 qw(:Status);
 
-use Compress::Raw::Bzip2  2.096 ;
+use Compress::Raw::Bzip2  2.100 ;
 
 our ($VERSION);
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 sub mkCompObject
 {
@@ -21,7 +21,7 @@ sub mkCompObject
     $WorkFactor    = 0 if ! defined $WorkFactor ;
     $Verbosity     = 0 if ! defined $Verbosity ;
 
-    my ($def, $status) = new Compress::Raw::Bzip2(1, $BlockSize100K,
+    my ($def, $status) = Compress::Raw::Bzip2->new(1, $BlockSize100K,
                                                  $WorkFactor, $Verbosity);
 
     return (undef, "Could not create Deflate object: $status", $status)
@@ -30,7 +30,7 @@ sub mkCompObject
     return bless {'Def'        => $def,
                   'Error'      => '',
                   'ErrorNo'    => 0,
-                 }  ;     
+                 }  ;
 }
 
 sub compr
@@ -44,11 +44,11 @@ sub compr
 
     if ($status != BZ_RUN_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub flush
@@ -62,12 +62,12 @@ sub flush
 
     if ($status != BZ_RUN_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
-    
+    return STATUS_OK;
+
 }
 
 sub close
@@ -81,12 +81,12 @@ sub close
 
     if ($status != BZ_STREAM_END)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
-    
+    return STATUS_OK;
+
 }
 
 
@@ -96,18 +96,18 @@ sub reset
 
     my $outer = $self->{Outer};
 
-    my ($def, $status) = new Compress::Raw::Bzip2();
+    my ($def, $status) = Compress::Raw::Bzip2->new();
     $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
 
     if ($status != BZ_OK)
     {
-        $self->{Error} = "Cannot create Deflate object: $status"; 
+        $self->{Error} = "Cannot create Deflate object: $status";
         return STATUS_ERROR;
     }
 
     $self->{Def} = $def;
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub compressedBytes
@@ -151,4 +151,3 @@ sub uncompressedBytes
 1;
 
 __END__
-
index 4f6f1d6..fc8332c 100644 (file)
@@ -4,13 +4,13 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.096 qw(:Status);
-use Compress::Raw::Zlib  2.096 qw( !crc32 !adler32 ) ;
-                                  
-require Exporter;                                     
+use IO::Compress::Base::Common 2.100 qw(:Status);
+use Compress::Raw::Zlib  2.100 qw( !crc32 !adler32 ) ;
+
+require Exporter;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 @ISA = qw(Exporter);
 @EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
 %EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
@@ -24,20 +24,20 @@ sub mkCompObject
     my $level    = shift ;
     my $strategy = shift ;
 
-    my ($def, $status) = new Compress::Raw::Zlib::Deflate
+    my ($def, $status) = Compress::Raw::Zlib::Deflate->new(
                                 -AppendOutput   => 1,
                                 -CRC32          => $crc32,
                                 -ADLER32        => $adler32,
                                 -Level          => $level,
                                 -Strategy       => $strategy,
-                                -WindowBits     => - MAX_WBITS;
+                                -WindowBits     => - MAX_WBITS);
 
-    return (undef, "Cannot create Deflate object: $status", $status) 
-        if $status != Z_OK;    
+    return (undef, "Cannot create Deflate object: $status", $status)
+        if $status != Z_OK;
 
     return bless {'Def'        => $def,
                   'Error'      => '',
-                 } ;     
+                 } ;
 }
 
 sub compr
@@ -51,11 +51,11 @@ sub compr
 
     if ($status != Z_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub flush
@@ -70,11 +70,11 @@ sub flush
 
     if ($status != Z_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;        
+    return STATUS_OK;
 }
 
 sub close
@@ -97,14 +97,14 @@ sub reset
     $self->{ErrorNo} = $status;
     if ($status != Z_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
-sub deflateParams 
+sub deflateParams
 {
     my $self = shift ;
 
@@ -114,11 +114,11 @@ sub deflateParams
     $self->{ErrorNo} = $status;
     if ($status != Z_OK)
     {
-        $self->{Error} = "deflateParams Error: $status"; 
+        $self->{Error} = "deflateParams Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;   
+    return STATUS_OK;
 }
 
 
@@ -167,4 +167,3 @@ sub adler32
 1;
 
 __END__
-
index 00b529b..091e655 100644 (file)
@@ -4,10 +4,10 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 qw(:Status);
+use IO::Compress::Base::Common  2.100 qw(:Status);
 our ($VERSION);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 sub mkCompObject
 {
@@ -19,7 +19,7 @@ sub mkCompObject
                   'UnCompSize' => 0,
                   'Error'      => '',
                   'ErrorNo'    => 0,
-                 } ;     
+                 } ;
 }
 
 sub compr
@@ -30,7 +30,7 @@ sub compr
         $self->{CompSize} += length ${ $_[0] } ;
         $self->{UnCompSize} = $self->{CompSize} ;
 
-        if ( ref $_[1] ) 
+        if ( ref $_[1] )
           { ${ $_[1] } .= ${ $_[0] } }
         else
           { $_[1] .= ${ $_[0] } }
@@ -43,14 +43,14 @@ sub flush
 {
     my $self = shift ;
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub close
 {
     my $self = shift ;
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub reset
@@ -60,14 +60,14 @@ sub reset
     $self->{CompSize}   = 0;
     $self->{UnCompSize} = 0;
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
-sub deflateParams 
+sub deflateParams
 {
     my $self = shift ;
 
-    return STATUS_OK;   
+    return STATUS_OK;
 }
 
 #sub total_out
@@ -98,4 +98,3 @@ sub uncompressedBytes
 
 
 __END__
-
index 1f19429..bc49e01 100644 (file)
@@ -6,7 +6,7 @@ require 5.006 ;
 use strict ;
 use warnings;
 
-use IO::Compress::Base::Common 2.096 ;
+use IO::Compress::Base::Common 2.100 ;
 
 use IO::File (); ;
 use Scalar::Util ();
@@ -20,7 +20,7 @@ use Symbol();
 our (@ISA, $VERSION);
 @ISA    = qw(IO::File Exporter);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 #Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16.
 
@@ -254,8 +254,8 @@ sub _create
         *$obj->{Compress} = $obj->mkComp($got)
             or return undef;
 
-        *$obj->{UnCompSize} = new U64 ;
-        *$obj->{CompSize} = new U64 ;
+        *$obj->{UnCompSize} = U64->new;
+        *$obj->{CompSize} = U64->new;
 
         if ( $outType eq 'buffer') {
             ${ *$obj->{Buffer} }  = ''
@@ -279,7 +279,7 @@ sub _create
                 my $mode = '>' ;
                 $mode = '>>'
                     if $appendOutput;
-                *$obj->{FH} = new IO::File "$mode $outValue"
+                *$obj->{FH} = IO::File->new( "$mode $outValue" )
                     or return $obj->saveErrorString(undef, "cannot open file '$outValue': $!", $!) ;
                 *$obj->{StdIO} = ($outValue eq '-');
                 setBinModeOutput(*$obj->{FH}) ;
@@ -340,7 +340,7 @@ sub _def
     my $haveOut = @_ ;
     my $output = shift ;
 
-    my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output)
+    my $x = IO::Compress::Base::Validator->new($class, *$obj->{Error}, $name, $input, $output)
         or return undef ;
 
     push @_, $output if $haveOut && $x->{Hash};
@@ -493,7 +493,7 @@ sub _wr2
 
         if ( ! $isFilehandle )
         {
-            $fh = new IO::File "<$input"
+            $fh = IO::File->new( "<$input" )
                 or return $self->saveErrorString(undef, "cannot open file '$input': $!", $!) ;
         }
         binmode $fh ;
@@ -983,23 +983,27 @@ sub _notAvailable
     return sub { Carp::croak "$name Not Available: File opened only for output" ; } ;
 }
 
-*read     = _notAvailable('read');
-*READ     = _notAvailable('read');
-*readline = _notAvailable('readline');
-*READLINE = _notAvailable('readline');
-*getc     = _notAvailable('getc');
-*GETC     = _notAvailable('getc');
-
-*FILENO   = \&fileno;
-*PRINT    = \&print;
-*PRINTF   = \&printf;
-*WRITE    = \&syswrite;
-*write    = \&syswrite;
-*SEEK     = \&seek;
-*TELL     = \&tell;
-*EOF      = \&eof;
-*CLOSE    = \&close;
-*BINMODE  = \&binmode;
+{
+    no warnings 'once';
+
+    *read     = _notAvailable('read');
+    *READ     = _notAvailable('read');
+    *readline = _notAvailable('readline');
+    *READLINE = _notAvailable('readline');
+    *getc     = _notAvailable('getc');
+    *GETC     = _notAvailable('getc');
+
+    *FILENO   = \&fileno;
+    *PRINT    = \&print;
+    *PRINTF   = \&printf;
+    *WRITE    = \&syswrite;
+    *write    = \&syswrite;
+    *SEEK     = \&seek;
+    *TELL     = \&tell;
+    *EOF      = \&eof;
+    *CLOSE    = \&close;
+    *BINMODE  = \&binmode;
+}
 
 #*sysread  = \&_notAvailable;
 #*syswrite = \&_write;
@@ -1047,8 +1051,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 37501a6..8f0530c 100644 (file)
@@ -11,7 +11,7 @@ use File::GlobMapper;
 require Exporter;
 our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
 @ISA = qw(Exporter);
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 @EXPORT = qw( isaFilehandle isaFilename isaScalar
               whatIsInput whatIsOutput
@@ -160,7 +160,7 @@ sub whatIsInput($;$)
         #use IO::File;
         $got = 'handle';
         $_[0] = *STDIN;
-        #$_[0] = new IO::File("<-");
+        #$_[0] = IO::File->new("<-");
     }
 
     return $got;
@@ -174,7 +174,7 @@ sub whatIsOutput($;$)
     {
         $got = 'handle';
         $_[0] = *STDOUT;
-        #$_[0] = new IO::File(">-");
+        #$_[0] = IO::File->new(">-");
     }
 
     return $got;
@@ -267,7 +267,7 @@ sub IO::Compress::Base::Validator::new
     {
         $data{GlobMap} = 1 ;
         $data{inType} = $data{outType} = 'filename';
-        my $mapper = new File::GlobMapper($_[0], $_[1]);
+        my $mapper = File::GlobMapper->new($_[0], $_[1]);
         if ( ! $mapper )
         {
             return $obj->saveErrorString($File::GlobMapper::Error) ;
@@ -509,7 +509,7 @@ sub ParseParameters
     return $_[1]
         if @_ == 2 && defined $_[1] && UNIVERSAL::isa($_[1], "IO::Compress::Base::Parameters");
 
-    my $p = new IO::Compress::Base::Parameters() ;
+    my $p = IO::Compress::Base::Parameters->new();
     $p->parse(@_)
         or croak "$sub: $p->[IxError]" ;
 
index 950366c..88dd7f9 100644 (file)
@@ -5,16 +5,16 @@ use warnings;
 use bytes;
 require Exporter ;
 
-use IO::Compress::Base 2.096 ;
+use IO::Compress::Base 2.100 ;
 
-use IO::Compress::Base::Common  2.096 qw();
-use IO::Compress::Adapter::Bzip2 2.096 ;
+use IO::Compress::Base::Common  2.100 qw();
+use IO::Compress::Adapter::Bzip2 2.100 ;
 
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $Bzip2Error = '';
 
 @ISA    = qw(IO::Compress::Base Exporter);
@@ -40,7 +40,7 @@ sub bzip2
 }
 
 
-sub mkHeader 
+sub mkHeader
 {
     my $self = shift ;
     return '';
@@ -51,9 +51,9 @@ sub getExtraParams
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.096 qw(:Parse);
-    
-    return (  
+    use IO::Compress::Base::Common  2.100 qw(:Parse);
+
+    return (
             'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned,  1],
             'workfactor'    => [IO::Compress::Base::Common::Parse_unsigned,  0],
             'verbosity'     => [IO::Compress::Base::Common::Parse_boolean,   0],
@@ -66,7 +66,7 @@ sub ckParams
 {
     my $self = shift ;
     my $got = shift;
-    
+
     # check that BlockSize100K is a number between 1 & 9
     if ($got->parsed('blocksize100k')) {
         my $value = $got->getValue('blocksize100k');
@@ -101,7 +101,7 @@ sub mkComp
 
     return $self->saveErrorString(undef, $errstr, $errno)
         if ! defined $obj;
-    
+
     return $obj;
 }
 
@@ -133,7 +133,7 @@ sub getFileInfo
     my $self = shift ;
     my $params = shift;
     my $file = shift ;
-    
+
 }
 
 1;
@@ -151,7 +151,7 @@ IO::Compress::Bzip2 - Write bzip2 files/buffers
     my $status = bzip2 $input => $output [,OPTS]
         or die "bzip2 failed: $Bzip2Error\n";
 
-    my $z = new IO::Compress::Bzip2 $output [,OPTS]
+    my $z = IO::Compress::Bzip2->new( $output [,OPTS] )
         or die "bzip2 failed: $Bzip2Error\n";
 
     $z->print($string);
@@ -426,7 +426,7 @@ compressed data to a buffer, C<$buffer>.
     use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt"
+    my $input = IO::File->new( "<file1.txt" )
         or die "Cannot open 'file1.txt': $!\n" ;
     my $buffer ;
     bzip2 $input => \$buffer
@@ -463,7 +463,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for C<IO::Compress::Bzip2> is shown below
 
-    my $z = new IO::Compress::Bzip2 $output [,OPTS]
+    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.
@@ -818,8 +818,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 358e019..c3aa1ea 100644 (file)
@@ -8,16 +8,16 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.096 ();
-use IO::Compress::Adapter::Deflate 2.096 ;
+use IO::Compress::RawDeflate 2.100 ();
+use IO::Compress::Adapter::Deflate 2.100 ;
 
-use IO::Compress::Zlib::Constants 2.096 ;
-use IO::Compress::Base::Common  2.096 qw();
+use IO::Compress::Zlib::Constants 2.100 ;
+use IO::Compress::Base::Common  2.100 qw();
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $DeflateError = '';
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
@@ -80,7 +80,7 @@ sub mkDeflateHdr($$$;$)
     return $hdr;
 }
 
-sub mkHeader 
+sub mkHeader
 {
     my $self = shift ;
     my $param = shift ;
@@ -89,7 +89,7 @@ sub mkHeader
     my $strategy = $param->getValue('strategy');
 
     my $lflag ;
-    $level = 6 
+    $level = 6
         if $level == Z_DEFAULT_COMPRESSION ;
 
     if (ZLIB_VERNUM >= 0x1210)
@@ -118,7 +118,7 @@ sub ckParams
 {
     my $self = shift ;
     my $got = shift;
-    
+
     $got->setValue('adler32' => 1);
     return 1 ;
 }
@@ -149,6 +149,7 @@ sub getExtraParams
 
 sub getInverseClass
 {
+    no warnings 'once';
     return ('IO::Uncompress::Inflate',
                 \$IO::Uncompress::Inflate::InflateError);
 }
@@ -158,7 +159,7 @@ sub getFileInfo
     my $self = shift ;
     my $params = shift;
     my $file = shift ;
-    
+
 }
 
 
@@ -178,7 +179,7 @@ IO::Compress::Deflate - Write RFC 1950 files/buffers
     my $status = deflate $input => $output [,OPTS]
         or die "deflate failed: $DeflateError\n";
 
-    my $z = new IO::Compress::Deflate $output [,OPTS]
+    my $z = IO::Compress::Deflate->new( $output [,OPTS] )
         or die "deflate failed: $DeflateError\n";
 
     $z->print($string);
@@ -455,7 +456,7 @@ compressed data to a buffer, C<$buffer>.
     use IO::Compress::Deflate qw(deflate $DeflateError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt"
+    my $input = IO::File->new( "<file1.txt" )
         or die "Cannot open 'file1.txt': $!\n" ;
     my $buffer ;
     deflate $input => \$buffer
@@ -492,7 +493,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for C<IO::Compress::Deflate> is shown below
 
-    my $z = new IO::Compress::Deflate $output [,OPTS]
+    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.
@@ -951,8 +952,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index d6d11c7..367468e 100644 (file)
@@ -79,7 +79,7 @@ write a C<.tar.Z> file
     use Archive::Tar;
     use IO::File;
 
-    my $fh = new IO::File "| compress -c >$filename";
+    my $fh = IO::File->new( "| compress -c >$filename" );
     my $tar = Archive::Tar->new();
     ...
     $tar->write($fh);
@@ -101,7 +101,7 @@ recompression.
     my $gzipFile = "somefile.gz";
     my $bzipFile = "somefile.bz2";
 
-    my $gunzip = new IO::Uncompress::Gunzip $gzipFile
+    my $gunzip = IO::Uncompress::Gunzip->new( $gzipFile )
         or die "Cannot gunzip $gzipFile: $GunzipError\n" ;
 
     bzip2 $gunzip => $bzipFile
@@ -167,8 +167,8 @@ by including the C<Zip64> option.
 If you want to create a zip64 zip file with the OO interface you must
 specify the C<Zip64> option.
 
-    my $zip = new IO::Compress::Zip "whatever", Zip64 => 1;
-       
+    my $zip = IO::Compress::Zip->new( "whatever", Zip64 => 1 );
+
 When uncompressing with C<IO-Uncompress-Unzip>, it will automatically
 detect if the zip file is zip64.
 
@@ -300,14 +300,14 @@ L<http://perl.apache.org/docs/tutorials/tips/mod_perl_tricks/mod_perl_tricks.htm
 
   package Apache::GZip;
   #File: Apache::GZip.pm
-  
+
   use strict vars;
   use Apache::Constants ':common';
   use Compress::Zlib;
   use IO::File;
   use constant GZIP_MAGIC => 0x1f8b;
   use constant OS_MAGIC => 0x03;
-  
+
   sub handler {
       my $r = shift;
       my ($fh,$gz);
@@ -316,28 +316,28 @@ L<http://perl.apache.org/docs/tutorials/tips/mod_perl_tricks/mod_perl_tricks.htm
       $r->header_out('Content-Encoding'=>'gzip');
       $r->send_http_header;
       return OK if $r->header_only;
-  
+
       tie *STDOUT,'Apache::GZip',$r;
       print($_) while <$fh>;
       untie *STDOUT;
       return OK;
   }
-  
+
   sub TIEHANDLE {
       my($class,$r) = @_;
       # initialize a deflation stream
       my $d = deflateInit(-WindowBits=>-MAX_WBITS()) || return undef;
-  
+
       # gzip header -- don't ask how I found out
       $r->print(pack("nccVcc",GZIP_MAGIC,Z_DEFLATED,0,time(),0,OS_MAGIC));
-  
+
       return bless { r   => $r,
                      crc =>  crc32(undef),
                      d   => $d,
                      l   =>  0
                    },$class;
   }
-  
+
   sub PRINT {
       my $self = shift;
       foreach (@_) {
@@ -349,18 +349,18 @@ L<http://perl.apache.org/docs/tutorials/tips/mod_perl_tricks/mod_perl_tricks.htm
         $self->{crc} = crc32($_,$self->{crc});
       }
   }
-  
+
   sub DESTROY {
      my $self = shift;
-     
+
      # flush the output buffers
      my $data = $self->{d}->flush;
      $self->{r}->print($data);
-     
+
      # print the CRC and the total length (uncompressed)
      $self->{r}->print(pack("LL",@{$self}{qw/crc l/}));
   }
-   
+
   1;
 
 Here's the Apache configuration entry you'll need to make use of it.  Once
@@ -401,12 +401,12 @@ C<IO::Compress::Gzip> is used instead of C<Compress::Zlib> the whole tied
 filehandle code can be removed. Here is the rewritten code.
 
   package Apache::GZip;
-  
+
   use strict vars;
   use Apache::Constants ':common';
   use IO::Compress::Gzip;
   use IO::File;
-  
+
   sub handler {
       my $r = shift;
       my ($fh,$gz);
@@ -416,22 +416,22 @@ filehandle code can be removed. Here is the rewritten code.
       $r->send_http_header;
       return OK if $r->header_only;
 
-      my $gz = new IO::Compress::Gzip '-', Minimal => 1
+      my $gz = IO::Compress::Gzip->new( '-', Minimal => 1 )
           or return DECLINED ;
 
       print $gz $_ while <$fh>;
-  
+
       return OK;
   }
-  
+
 or even more succinctly, like this, using a one-shot gzip
 
   package Apache::GZip;
-  
+
   use strict vars;
   use Apache::Constants ':common';
   use IO::Compress::Gzip qw(gzip);
-  
+
   sub handler {
       my $r = shift;
       $r->header_out('Content-Encoding'=>'gzip');
@@ -443,7 +443,7 @@ or even more succinctly, like this, using a one-shot gzip
 
       return OK;
   }
-   
+
   1;
 
 The use of one-shot C<gzip> above just reads from C<< $r->filename >> and
@@ -468,7 +468,7 @@ read from the FTP Server.
     use Net::FTP;
     use IO::Uncompress::Gunzip qw(:all);
 
-    my $ftp = new Net::FTP ...
+    my $ftp = Net::FTP->new( ... )
 
     my $retr_fh = $ftp->retr($compressed_filename);
     gunzip $retr_fh => $outFilename, AutoClose => 1
@@ -518,7 +518,7 @@ the other C<IO::Uncompress::*> modules.
 
     my $file = $ARGV[0] ;
 
-    my $fh = new IO::File "<$file"
+    my $fh = IO::File->new( "<$file" )
                 or die "Cannot open '$file': $!\n";
 
     while (1)
@@ -566,9 +566,9 @@ the other C<IO::Uncompress::*> modules.
 
         # Done reading the Local Header
 
-        my $inf = new IO::Uncompress::RawInflate $fh,
+        my $inf = IO::Uncompress::RawInflate->new( $fh,
                             Transparent => 1,
-                            InputLength => $compressedLength
+                            InputLength => $compressedLength )
           or die "Cannot uncompress $file [$filename]: $RawInflateError\n"  ;
 
         my $line_count = 0;
@@ -585,14 +585,14 @@ The majority of the code above is concerned with reading the zip local
 header data. The code that I want to focus on is at the bottom.
 
     while (1) {
-    
+
         # read local zip header data
         # get $filename
         # get $compressedLength
 
-        my $inf = new IO::Uncompress::RawInflate $fh,
+        my $inf = IO::Uncompress::RawInflate->new( $fh,
                             Transparent => 1,
-                            InputLength => $compressedLength
+                            InputLength => $compressedLength )
           or die "Cannot uncompress $file [$filename]: $RawInflateError\n"  ;
 
         my $line_count = 0;
@@ -618,7 +618,7 @@ byte directly after the compressed data stream.
 Now consider what the code looks like without C<InputLength>
 
     while (1) {
-    
+
         # read local zip header data
         # get $filename
         # get $compressedLength
@@ -626,8 +626,8 @@ Now consider what the code looks like without C<InputLength>
         # read all the compressed data into $data
         read($fh, $data, $compressedLength);
 
-        my $inf = new IO::Uncompress::RawInflate \$data,
-                            Transparent => 1,
+        my $inf = IO::Uncompress::RawInflate->new( \$data,
+                            Transparent => 1 )
           or die "Cannot uncompress $file [$filename]: $RawInflateError\n"  ;
 
         my $line_count = 0;
@@ -682,7 +682,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
index 68f6008..cf9d8e2 100644 (file)
@@ -8,24 +8,24 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.096 () ; 
-use IO::Compress::Adapter::Deflate 2.096 ;
+use IO::Compress::RawDeflate 2.100 () ;
+use IO::Compress::Adapter::Deflate 2.100 ;
 
-use IO::Compress::Base::Common  2.096 qw(:Status );
-use IO::Compress::Gzip::Constants 2.096 ;
-use IO::Compress::Zlib::Extra 2.096 ;
+use IO::Compress::Base::Common  2.100 qw(:Status );
+use IO::Compress::Gzip::Constants 2.100 ;
+use IO::Compress::Zlib::Extra 2.100 ;
 
 BEGIN
 {
-    if (defined &utf8::downgrade ) 
+    if (defined &utf8::downgrade )
       { *noUTF8 = \&utf8::downgrade }
     else
-      { *noUTF8 = sub {} }  
+      { *noUTF8 = sub {} }
 }
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $GzipError = '' ;
 
 @ISA    = qw(IO::Compress::RawDeflate Exporter);
@@ -65,7 +65,7 @@ sub getExtraParams
     return (
             # zlib behaviour
             $self->getZlibParams(),
-           
+
             # Gzip header fields
             'minimal'   => [IO::Compress::Base::Common::Parse_boolean,   0],
             'comment'   => [IO::Compress::Base::Common::Parse_any,       undef],
@@ -105,7 +105,7 @@ sub ckParams
         # Also check that they only contain ISO 8859-1 chars.
         if ($got->parsed('name') && defined $got->getValue('name')) {
             my $name = $got->getValue('name');
-                
+
             return $self->saveErrorString(undef, "Null Character found in Name",
                                                 Z_DATA_ERROR)
                 if $strict && $name =~ /\x00/ ;
@@ -132,16 +132,16 @@ sub ckParams
 
             return $self->saveErrorString(undef, "OS_Code must be between 0 and 255, got '$value'")
                 if $value < 0 || $value > 255 ;
-            
+
         }
 
         # gzip only supports Deflate at present
         $got->setValue('method' => Z_DEFLATED) ;
 
         if ( ! $got->parsed('extraflags')) {
-            $got->setValue('extraflags' => 2) 
+            $got->setValue('extraflags' => 2)
                 if $got->getValue('level') == Z_BEST_COMPRESSION ;
-            $got->setValue('extraflags' => 4) 
+            $got->setValue('extraflags' => 4)
                 if $got->getValue('level') == Z_BEST_SPEED ;
         }
 
@@ -161,12 +161,13 @@ sub ckParams
 sub mkTrailer
 {
     my $self = shift ;
-    return pack("V V", *$self->{Compress}->crc32(), 
+    return pack("V V", *$self->{Compress}->crc32(),
                        *$self->{UnCompSize}->get32bit());
 }
 
 sub getInverseClass
 {
+    no warnings 'once';
     return ('IO::Uncompress::Gunzip',
                 \$IO::Uncompress::Gunzip::GunzipError);
 }
@@ -184,7 +185,7 @@ sub getFileInfo
     $params->setValue('name' => $filename)
         if ! $params->parsed('name') ;
 
-    $params->setValue('time' => $defaultTime) 
+    $params->setValue('time' => $defaultTime)
         if ! $params->parsed('time') ;
 }
 
@@ -207,7 +208,7 @@ sub mkHeader
     $flags |= GZIP_FLG_FEXTRA   if $param->wantValue('extrafield') ;
     $flags |= GZIP_FLG_FNAME    if $param->wantValue('name') ;
     $flags |= GZIP_FLG_FCOMMENT if $param->wantValue('comment') ;
-    
+
     # MTIME
     my $time = $param->valueOrDefault('time', GZIP_MTIME_DEFAULT) ;
 
@@ -218,7 +219,7 @@ sub mkHeader
     my $os_code = $param->valueOrDefault('os_code', GZIP_OS_DEFAULT) ;
 
 
-    my $out = pack("C4 V C C", 
+    my $out = pack("C4 V C C",
             GZIP_ID1,   # ID1
             GZIP_ID2,   # ID2
             $method,    # Compression Method
@@ -240,7 +241,7 @@ sub mkHeader
         $name =~ s/\x00.*$//;
         $out .= $name ;
         # Terminate the filename with NULL unless it already is
-        $out .= GZIP_NULL_BYTE 
+        $out .= GZIP_NULL_BYTE
             if !length $name or
                substr($name, 1, -1) ne GZIP_NULL_BYTE ;
     }
@@ -257,7 +258,7 @@ sub mkHeader
     }
 
     # HEADER CRC
-    $out .= pack("v", Compress::Raw::Zlib::crc32($out) & 0x00FF ) 
+    $out .= pack("v", Compress::Raw::Zlib::crc32($out) & 0x00FF )
         if $param->getValue('headercrc') ;
 
     noUTF8($out);
@@ -270,7 +271,7 @@ sub mkFinalTrailer
     return '';
 }
 
-1; 
+1;
 
 __END__
 
@@ -285,7 +286,7 @@ IO::Compress::Gzip - Write RFC 1952 files/buffers
     my $status = gzip $input => $output [,OPTS]
         or die "gzip failed: $GzipError\n";
 
-    my $z = new IO::Compress::Gzip $output [,OPTS]
+    my $z = IO::Compress::Gzip->new( $output [,OPTS] )
         or die "gzip failed: $GzipError\n";
 
     $z->print($string);
@@ -573,7 +574,7 @@ compressed data to a buffer, C<$buffer>.
     use IO::Compress::Gzip qw(gzip $GzipError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt"
+    my $input = IO::File->new( "<file1.txt" )
         or die "Cannot open 'file1.txt': $!\n" ;
     my $buffer ;
     gzip $input => \$buffer
@@ -610,7 +611,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for C<IO::Compress::Gzip> is shown below
 
-    my $z = new IO::Compress::Gzip $output [,OPTS]
+    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.
@@ -1263,8 +1264,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index c41fa18..ef67f7e 100644 (file)
@@ -9,7 +9,7 @@ require Exporter;
 our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names);
 our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 @ISA = qw(Exporter);
 
@@ -89,22 +89,22 @@ use constant GZIP_FEXTRA_SUBFIELD_ID_SIZE     => 2 ;
 use constant GZIP_FEXTRA_SUBFIELD_LEN_SIZE    => 2 ;
 use constant GZIP_FEXTRA_SUBFIELD_HEADER_SIZE => GZIP_FEXTRA_SUBFIELD_ID_SIZE +
                                                  GZIP_FEXTRA_SUBFIELD_LEN_SIZE;
-use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE    => GZIP_FEXTRA_MAX_SIZE - 
+use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE    => GZIP_FEXTRA_MAX_SIZE -
                                                  GZIP_FEXTRA_SUBFIELD_HEADER_SIZE ;
 
 
 if (ord('A') == 193)
 {
-    # EBCDIC 
+    # EBCDIC
     $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x3f\xff]';
     $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x0a\x11-\x14\x16-\x3f\xff]';
-    
+
 }
 else
 {
     $GZIP_FNAME_INVALID_CHAR_RE       =  '[\x00-\x1F\x7F-\x9F]';
     $GZIP_FCOMMENT_INVALID_CHAR_RE    =  '[\x00-\x09\x11-\x1F\x7F-\x9F]';
-}            
+}
 
 use constant GZIP_FHCRC_SIZE        => 2 ; # aka CONTINUATION in gzip
 
@@ -140,7 +140,7 @@ use constant GZIP_OS_DEFAULT=> 0xFF ;
     GZIP_OS_DEFAULT()   => 'Unknown',
     ) ;
 
-use constant GZIP_MINIMUM_HEADER =>   pack("C4 V C C",  
+use constant GZIP_MINIMUM_HEADER =>   pack("C4 V C C",
         GZIP_ID1, GZIP_ID2, GZIP_CM_DEFLATED, GZIP_FLG_DEFAULT,
         GZIP_MTIME_DEFAULT, GZIP_XFL_DEFAULT, GZIP_OS_DEFAULT) ;
 
index 603c9e0..a0005dd 100644 (file)
@@ -6,15 +6,16 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base 2.096 ;
-use IO::Compress::Base::Common  2.096 qw(:Status );
-use IO::Compress::Adapter::Deflate 2.096 ;
+use IO::Compress::Base 2.100 ;
+use IO::Compress::Base::Common  2.100 qw(:Status :Parse);
+use IO::Compress::Adapter::Deflate 2.100 ;
+use Compress::Raw::Zlib  2.100 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $RawDeflateError = '';
 
 @ISA = qw(IO::Compress::Base Exporter);
@@ -28,8 +29,8 @@ push @EXPORT_OK, @IO::Compress::Adapter::Deflate::EXPORT_OK ;
     my %seen;
     foreach (keys %EXPORT_TAGS )
     {
-        push @{$EXPORT_TAGS{constants}}, 
-                 grep { !$seen{$_}++ } 
+        push @{$EXPORT_TAGS{constants}},
+                 grep { !$seen{$_}++ }
                  @{ $EXPORT_TAGS{$_} }
     }
     $EXPORT_TAGS{all} = $EXPORT_TAGS{constants} ;
@@ -41,7 +42,7 @@ push @EXPORT_OK, @IO::Compress::Adapter::Deflate::EXPORT_OK ;
 #push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
 
 Exporter::export_ok_tags('all');
-              
+
 
 
 sub new
@@ -82,7 +83,7 @@ sub mkComp
    return $self->saveErrorString(undef, $errstr, $errno)
        if ! defined $obj;
 
-   return $obj;    
+   return $obj;
 }
 
 
@@ -116,8 +117,6 @@ sub getExtraParams
     return getZlibParams();
 }
 
-use IO::Compress::Base::Common  2.096 qw(:Parse);
-use Compress::Raw::Zlib  2.096 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
 our %PARAMS = (
             #'method'   => [IO::Compress::Base::Common::Parse_unsigned,  Z_DEFLATED],
             'level'     => [IO::Compress::Base::Common::Parse_signed,    Z_DEFAULT_COMPRESSION],
@@ -125,17 +124,18 @@ our %PARAMS = (
 
             'crc32'     => [IO::Compress::Base::Common::Parse_boolean,   0],
             'adler32'   => [IO::Compress::Base::Common::Parse_boolean,   0],
-            'merge'     => [IO::Compress::Base::Common::Parse_boolean,   0], 
+            'merge'     => [IO::Compress::Base::Common::Parse_boolean,   0],
         );
-        
+
 sub getZlibParams
 {
-    return %PARAMS;    
+    return %PARAMS;
 }
 
 sub getInverseClass
 {
-    return ('IO::Uncompress::RawInflate', 
+    no warnings 'once';
+    return ('IO::Uncompress::RawInflate',
                 \$IO::Uncompress::RawInflate::RawInflateError);
 }
 
@@ -144,7 +144,7 @@ sub getFileInfo
     my $self = shift ;
     my $params = shift;
     my $file = shift ;
-    
+
 }
 
 use Fcntl qw(SEEK_SET);
@@ -156,20 +156,20 @@ sub createMerge
     my $outType = shift ;
 
     my ($invClass, $error_ref) = $self->getInverseClass();
-    eval "require $invClass" 
+    eval "require $invClass"
         or die "aaaahhhh" ;
 
-    my $inf = $invClass->new( $outValue, 
-                             Transparent => 0, 
+    my $inf = $invClass->new( $outValue,
+                             Transparent => 0,
                              #Strict     => 1,
                              AutoClose   => 0,
                              Scan        => 1)
        or return $self->saveErrorString(undef, "Cannot create InflateScan object: $$error_ref" ) ;
 
     my $end_offset = 0;
-    $inf->scan() 
+    $inf->scan()
         or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $inf->errorNo) ;
-    $inf->zap($end_offset) 
+    $inf->zap($end_offset)
         or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $inf->errorNo) ;
 
     my $def = *$self->{Compress} = $inf->createDeflate();
@@ -178,10 +178,10 @@ sub createMerge
     *$self->{UnCompSize} = *$inf->{UnCompSize}->clone();
     *$self->{CompSize} = *$inf->{CompSize}->clone();
     # TODO -- fix this
-    #*$self->{CompSize} = new U64(0, *$self->{UnCompSize_32bit});
+    #*$self->{CompSize} = U64->new(0, *$self->{UnCompSize_32bit});
 
 
-    if ( $outType eq 'buffer') 
+    if ( $outType eq 'buffer')
       { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
     elsif ($outType eq 'handle' || $outType eq 'filename') {
         *$self->{FH} = *$inf->{FH} ;
@@ -189,8 +189,8 @@ sub createMerge
         *$self->{FH}->flush() ;
         *$self->{Handle} = 1 if $outType eq 'handle';
 
-        #seek(*$self->{FH}, $end_offset, SEEK_SET) 
-        *$self->{FH}->seek($end_offset, SEEK_SET) 
+        #seek(*$self->{FH}, $end_offset, SEEK_SET)
+        *$self->{FH}->seek($end_offset, SEEK_SET)
             or return $self->saveErrorString(undef, $!, $!) ;
     }
 
@@ -199,7 +199,7 @@ sub createMerge
 
 #### zlib specific methods
 
-sub deflateParams 
+sub deflateParams
 {
     my $self = shift ;
 
@@ -210,7 +210,7 @@ sub deflateParams
     return $self->saveErrorString(0, *$self->{Compress}{Error}, *$self->{Compress}{ErrorNo})
         if $status == STATUS_ERROR;
 
-    return 1;    
+    return 1;
 }
 
 
@@ -231,7 +231,7 @@ IO::Compress::RawDeflate - Write RFC 1951 files/buffers
     my $status = rawdeflate $input => $output [,OPTS]
         or die "rawdeflate failed: $RawDeflateError\n";
 
-    my $z = new IO::Compress::RawDeflate $output [,OPTS]
+    my $z = IO::Compress::RawDeflate->new( $output [,OPTS] )
         or die "rawdeflate failed: $RawDeflateError\n";
 
     $z->print($string);
@@ -511,7 +511,7 @@ compressed data to a buffer, C<$buffer>.
     use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt"
+    my $input = IO::File->new( "<file1.txt" )
         or die "Cannot open 'file1.txt': $!\n" ;
     my $buffer ;
     rawdeflate $input => \$buffer
@@ -548,7 +548,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for C<IO::Compress::RawDeflate> is shown below
 
-    my $z = new IO::Compress::RawDeflate $output [,OPTS]
+    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.
@@ -1007,8 +1007,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 63bd998..16d9561 100644 (file)
@@ -4,40 +4,41 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 qw(:Status );
-use IO::Compress::RawDeflate 2.096 ();
-use IO::Compress::Adapter::Deflate 2.096 ;
-use IO::Compress::Adapter::Identity 2.096 ;
-use IO::Compress::Zlib::Extra 2.096 ;
-use IO::Compress::Zip::Constants 2.096 ;
+use IO::Compress::Base::Common  2.100 qw(:Status );
+use IO::Compress::RawDeflate 2.100 ();
+use IO::Compress::Adapter::Deflate 2.100 ;
+use IO::Compress::Adapter::Identity 2.100 ;
+use IO::Compress::Zlib::Extra 2.100 ;
+use IO::Compress::Zip::Constants 2.100 ;
 
 use File::Spec();
 use Config;
 
-use Compress::Raw::Zlib  2.096 ();
+use Compress::Raw::Zlib  2.100 ();
 
 BEGIN
 {
     eval { require IO::Compress::Adapter::Bzip2 ;
-           import  IO::Compress::Adapter::Bzip2 2.096 ;
+           IO::Compress::Adapter::Bzip2->import( 2.096 );
            require IO::Compress::Bzip2 ;
-           import  IO::Compress::Bzip2 2.096 ;
+           IO::Compress::Bzip2->import( 2.096 );
          } ;
 
     eval { require IO::Compress::Adapter::Lzma ;
-           import  IO::Compress::Adapter::Lzma 2.096 ;
+           IO::Compress::Adapter::Lzma->import( 2.096 );
            require IO::Compress::Lzma ;
-           import  IO::Compress::Lzma 2.096 ;
+           IO::Compress::Lzma->import( 2.096 );
          } ;
+
     eval { require IO::Compress::Adapter::Xz ;
-           import  IO::Compress::Adapter::Xz 2.096 ;
+           IO::Compress::Adapter::Xz->import( 2.096 );
            require IO::Compress::Xz ;
-           import  IO::Compress::Xz 2.096 ;
+           IO::Compress::Xz->import( 2.096 );
          } ;
     eval { require IO::Compress::Adapter::Zstd ;
-           import  IO::Compress::Adapter::Zstd 2.096 ;
+           IO::Compress::Adapter::Zstd->import( 2.096 );
            require IO::Compress::Zstd ;
-           import  IO::Compress::Zstd 2.096 ;
+           IO::Compress::Zstd->import( 2.096 );
          } ;
 }
 
@@ -46,7 +47,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $ZipError = '';
 
 @ISA = qw(IO::Compress::RawDeflate Exporter);
@@ -177,7 +178,7 @@ sub mkComp
 
     if (! defined *$self->{ZipData}{SizesOffset}) {
         *$self->{ZipData}{SizesOffset} = 0;
-        *$self->{ZipData}{Offset} = new U64 ;
+        *$self->{ZipData}{Offset} = U64->new();
     }
 
     *$self->{ZipData}{AnyZip64} = 0
@@ -753,6 +754,7 @@ sub getExtraParams
 
 sub getInverseClass
 {
+    no warnings 'once';
     return ('IO::Uncompress::Unzip',
                 \$IO::Uncompress::Unzip::UnzipError);
 }
@@ -905,7 +907,7 @@ IO::Compress::Zip - Write zip files/buffers
     my $status = zip $input => $output [,OPTS]
         or die "zip failed: $ZipError\n";
 
-    my $z = new IO::Compress::Zip $output [,OPTS]
+    my $z = IO::Compress::Zip->new( $output [,OPTS] )
         or die "zip failed: $ZipError\n";
 
     $z->print($string);
@@ -1251,7 +1253,7 @@ compressed data to a buffer, C<$buffer>.
     use IO::Compress::Zip qw(zip $ZipError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt"
+    my $input = IO::File->new( "<file1.txt" )
         or die "Cannot open 'file1.txt': $!\n" ;
     my $buffer ;
     zip $input => \$buffer
@@ -1292,7 +1294,7 @@ or more succinctly
 
 The format of the constructor for C<IO::Compress::Zip> is shown below
 
-    my $z = new IO::Compress::Zip $output [,OPTS]
+    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.
@@ -1730,10 +1732,10 @@ By default, no comment field is written to the zip file.
 =item C<< Method => $method >>
 
 Controls which compression method is used. At present the compression
-methods are supported are: Store (no compression at all), Deflate,
-Bzip2, Xz and Lzma.
+methods supported are: Store (no compression at all), Deflate,
+Bzip2, Zstd, Xz and Lzma.
 
-The symbols, ZIP_CM_STORE, ZIP_CM_DEFLATE, ZIP_CM_BZIP2, ZIP_CM_XZ and ZIP_CM_LZMA
+The symbols ZIP_CM_STORE, ZIP_CM_DEFLATE, ZIP_CM_BZIP2, ZIP_CM_ZSTD, ZIP_CM_XZ and ZIP_CM_LZMA
 are used to select the compression method.
 
 These constants are not imported by C<IO::Compress::Zip> by default.
@@ -1754,6 +1756,10 @@ Note that to create Xz content, the module C<IO::Compress::Xz> must
 be installed. A fatal error will be thrown if you attempt to create Xz
 content when C<IO::Compress::Xz> is not available.
 
+Note that to create Zstd content, the module C<IO::Compress::Zstd> must
+be installed. A fatal error will be thrown if you attempt to create Zstd
+content when C<IO::Compress::Zstd> is not available.
+
 The default method is ZIP_CM_DEFLATE.
 
 =item C<< TextFlag => 0|1 >>
@@ -2137,8 +2143,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 526e0ba..c81a4ad 100644 (file)
@@ -7,7 +7,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 @ISA = qw(Exporter);
 
index a6903a7..1b95351 100644 (file)
@@ -9,7 +9,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 @ISA = qw(Exporter);
 
@@ -23,7 +23,7 @@ $VERSION = '2.096';
         ZLIB_CMF_CM_DEFLATED
 
         ZLIB_CMF_CINFO_OFFSET
-        ZLIB_CMF_CINFO_BITS 
+        ZLIB_CMF_CINFO_BITS
         ZLIB_CMF_CINFO_MAX
 
         ZLIB_FLG_FCHECK_OFFSET
index b5c49b7..0bbef35 100644 (file)
@@ -8,9 +8,9 @@ use bytes;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
-use IO::Compress::Gzip::Constants 2.096 ;
+use IO::Compress::Gzip::Constants 2.100 ;
 
 sub ExtraFieldError
 {
@@ -36,11 +36,11 @@ sub validateExtraFieldPair
     return ExtraFieldError("SubField Data is a reference")
         if ref $pair->[1] ;
 
-    # ID is exactly two chars   
+    # ID is exactly two chars
     return ExtraFieldError("SubField ID not two chars long")
         unless length $pair->[0] == GZIP_FEXTRA_SUBFIELD_ID_SIZE ;
 
-    # Check that the 2nd byte of the ID isn't 0    
+    # Check that the 2nd byte of the ID isn't 0
     return ExtraFieldError("SubField ID 2nd byte is 0x00")
         if $strict && $gzipMode && substr($pair->[0], 1, 1) eq "\x00" ;
 
@@ -74,7 +74,7 @@ sub parseRawExtra
         return ExtraFieldError("Truncated in FEXTRA Body Section")
             if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
 
-        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);
         $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
 
         my $subLen =  unpack("v", substr($data, $offset,
@@ -84,8 +84,8 @@ sub parseRawExtra
         return ExtraFieldError("Truncated in FEXTRA Body Section")
             if $offset + $subLen > $XLEN ;
 
-        my $bad = validateExtraFieldPair( [$id, 
-                                           substr($data, $offset, $subLen)], 
+        my $bad = validateExtraFieldPair( [$id,
+                                           substr($data, $offset, $subLen)],
                                            $strict, $gzipMode );
         return $bad if $bad ;
         push @$extraRef, [$id => substr($data, $offset, $subLen)]
@@ -94,7 +94,7 @@ sub parseRawExtra
         $offset += $subLen ;
     }
 
-        
+
     return undef ;
 }
 
@@ -111,7 +111,7 @@ sub findID
         return undef
             if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
 
-        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);
         $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
 
         my $subLen =  unpack("v", substr($data, $offset,
@@ -126,7 +126,7 @@ sub findID
 
         $offset += $subLen ;
     }
-        
+
     return undef ;
 }
 
@@ -165,7 +165,7 @@ sub parseExtraField
     #                     $id2 => $data2,
     #                     ...
     #                   }
-    
+
     if ( ! ref $dataRef ) {
 
         return undef
@@ -177,7 +177,7 @@ sub parseExtraField
     my $data = $dataRef;
     my $out = '' ;
 
-    if (ref $data eq 'ARRAY') {    
+    if (ref $data eq 'ARRAY') {
         if (ref $data->[0]) {
 
             foreach my $pair (@$data) {
@@ -188,30 +188,30 @@ sub parseExtraField
                 return $bad if $bad ;
 
                 $out .= mkSubField(@$pair);
-            }   
-        }   
+            }
+        }
         else {
             return ExtraFieldError("Not even number of elements")
                 unless @$data % 2  == 0;
 
             for (my $ix = 0; $ix <= @$data -1 ; $ix += 2) {
                 my $bad = validateExtraFieldPair([$data->[$ix],
-                                                  $data->[$ix+1]], 
+                                                  $data->[$ix+1]],
                                                  $strict, $gzipMode) ;
                 return $bad if $bad ;
 
                 $out .= mkSubField($data->[$ix], $data->[$ix+1]);
-            }   
+            }
         }
-    }   
-    elsif (ref $data eq 'HASH') {    
+    }
+    elsif (ref $data eq 'HASH') {
         while (my ($id, $info) = each %$data) {
             my $bad = validateExtraFieldPair([$id, $info], $strict, $gzipMode);
             return $bad if $bad ;
 
             $out .= mkSubField($id, $info);
-        }   
-    }   
+        }
+    }
     else {
         return ExtraFieldError("Not a scalar, array ref or hash ref") ;
     }
index 60b34ba..92f3945 100644 (file)
@@ -4,19 +4,19 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.096 qw(:Status);
+use IO::Compress::Base::Common 2.100 qw(:Status);
 
-use Compress::Raw::Bzip2 2.096 ;
+use Compress::Raw::Bzip2 2.100 ;
 
 our ($VERSION, @ISA);
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 sub mkUncompObject
 {
     my $small     = shift || 0;
     my $verbosity = shift || 0;
 
-    my ($inflate, $status) = new Compress::Raw::Bunzip2(1, 1, $small, $verbosity, 1);
+    my ($inflate, $status) = Compress::Raw::Bunzip2->new(1, 1, $small, $verbosity, 1);
 
     return (undef, "Could not create Inflation object: $status", $status)
         if $status != BZ_OK ;
@@ -26,8 +26,8 @@ sub mkUncompObject
                   'UnCompSize'    => 0,
                   'Error'         => '',
                   'ConsumesInput' => 1,
-                 }  ;     
-    
+                 }  ;
+
 }
 
 sub uncompr
@@ -48,7 +48,7 @@ sub uncompr
         return STATUS_ERROR;
     }
 
-    
+
     return STATUS_OK        if $status == BZ_OK ;
     return STATUS_ENDSTREAM if $status == BZ_STREAM_END ;
     return STATUS_ERROR ;
@@ -59,12 +59,12 @@ sub reset
 {
     my $self = shift ;
 
-    my ($inf, $status) = new Compress::Raw::Bunzip2();
+    my ($inf, $status) = Compress::Raw::Bunzip2->new();
     $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
 
     if ($status != BZ_OK)
     {
-        $self->{Error} = "Cannot create Inflate object: $status"; 
+        $self->{Error} = "Cannot create Inflate object: $status";
         return STATUS_ERROR;
     }
 
@@ -100,8 +100,8 @@ sub adler32
 sub sync
 {
     my $self = shift ;
-    #( $self->{Inf}->inflateSync(@_) == BZ_OK) 
-    #        ? STATUS_OK 
+    #( $self->{Inf}->inflateSync(@_) == BZ_OK)
+    #        ? STATUS_OK
     #        : STATUS_ERROR ;
 }
 
@@ -109,4 +109,3 @@ sub sync
 1;
 
 __END__
-
index 84d74c9..07621b4 100644 (file)
@@ -4,14 +4,14 @@ use warnings;
 use strict;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 qw(:Status);
+use IO::Compress::Base::Common  2.100 qw(:Status);
 use IO::Compress::Zip::Constants ;
 
 our ($VERSION);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
-use Compress::Raw::Zlib  2.096 ();
+use Compress::Raw::Zlib  2.100 ();
 
 sub mkUncompObject
 {
@@ -21,7 +21,7 @@ sub mkUncompObject
     my $crc32 = 1; #shift ;
     my $adler32 = shift;
 
-    bless { 'CompSize'   => new U64 , # 0,
+    bless { 'CompSize'   => U64->new(), # 0,
             'UnCompSize' => 0,
             'wantCRC32'  => $crc32,
             'CRC32'      => Compress::Raw::Zlib::crc32(''),
@@ -70,7 +70,7 @@ sub uncompr
                     $ind = $len - 1 ;
                 }
             }
-           
+
             if ($ind >= 0) {
                 $remainder = substr($$in, $ind) ;
                 substr($$in, $ind) = '' ;
@@ -94,7 +94,7 @@ sub uncompr
                     $l1 = U64::newUnpack_V32(substr($remainder, 8));
                     $l2 = U64::newUnpack_V32(substr($remainder, 12));
                 }
-                    
+
                 my $newLen = $self->{CompSize}->clone();
                 $newLen->add(length $$in);
                 if ($l1->equal($l2) && $l1->equal($newLen) ) {
@@ -142,7 +142,7 @@ sub reset
     $self->{CompSize}->reset();
     $self->{UnCompSize} = 0;
     $self->{CRC32}      = Compress::Raw::Zlib::crc32('');
-    $self->{ADLER32}    = Compress::Raw::Zlib::adler32('');      
+    $self->{ADLER32}    = Compress::Raw::Zlib::adler32('');
 
     return STATUS_OK ;
 }
index 63e8707..9d5dba9 100644 (file)
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 qw(:Status);
-use Compress::Raw::Zlib  2.096 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common  2.100 qw(:Status);
+use Compress::Raw::Zlib  2.100 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
 
 our ($VERSION);
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 
 
@@ -23,23 +23,23 @@ sub mkUncompObject
 
     if ($scan)
     {
-        ($inflate, $status) = new Compress::Raw::Zlib::InflateScan
+        ($inflate, $status) = Compress::Raw::Zlib::InflateScan->new(
                                     #LimitOutput  => 1,
                                     CRC32        => $crc32,
                                     ADLER32      => $adler32,
-                                    WindowBits   => - MAX_WBITS ;
+                                    WindowBits   => - MAX_WBITS );
     }
     else
     {
-        ($inflate, $status) = new Compress::Raw::Zlib::Inflate
+        ($inflate, $status) = Compress::Raw::Zlib::Inflate->new(
                                     AppendOutput => 1,
                                     LimitOutput  => 1,
                                     CRC32        => $crc32,
                                     ADLER32      => $adler32,
-                                    WindowBits   => - MAX_WBITS ;
+                                    WindowBits   => - MAX_WBITS );
     }
 
-    return (undef, "Could not create Inflation object: $status", $status) 
+    return (undef, "Could not create Inflation object: $status", $status)
         if $status != Z_OK ;
 
     return bless {'Inf'        => $inflate,
@@ -47,8 +47,8 @@ sub mkUncompObject
                   'UnCompSize' => 0,
                   'Error'      => '',
                   'ConsumesInput' => 1,
-                 } ;     
-    
+                 } ;
+
 }
 
 sub uncompr
@@ -67,7 +67,7 @@ sub uncompr
         $self->{Error} = "Inflation Error: $status";
         return STATUS_ERROR;
     }
-            
+
     return STATUS_OK        if $status == Z_BUF_ERROR ; # ???
     return STATUS_OK        if $status == Z_OK ;
     return STATUS_ENDSTREAM if $status == Z_STREAM_END ;
@@ -115,8 +115,8 @@ sub adler32
 sub sync
 {
     my $self = shift ;
-    ( $self->{Inf}->inflateSync(@_) == Z_OK) 
-            ? STATUS_OK 
+    ( $self->{Inf}->inflateSync(@_) == Z_OK)
+            ? STATUS_OK
             : STATUS_ERROR ;
 }
 
@@ -154,4 +154,3 @@ sub createDeflateStream
 
 
 __END__
-
index 63ada56..7e2066d 100644 (file)
@@ -6,27 +6,27 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 ();
+use IO::Compress::Base::Common  2.100 qw(:Parse);
 
-use IO::Uncompress::Adapter::Inflate  2.096 ();
+use IO::Uncompress::Adapter::Inflate  2.100 ();
 
 
-use IO::Uncompress::Base  2.096 ;
-use IO::Uncompress::Gunzip  2.096 ;
-use IO::Uncompress::Inflate  2.096 ;
-use IO::Uncompress::RawInflate  2.096 ;
-use IO::Uncompress::Unzip  2.096 ;
+use IO::Uncompress::Base  2.100 ;
+use IO::Uncompress::Gunzip  2.100 ;
+use IO::Uncompress::Inflate  2.100 ;
+use IO::Uncompress::RawInflate  2.100 ;
+use IO::Uncompress::Unzip  2.100 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $AnyInflateError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
 @EXPORT_OK = qw( $AnyInflateError anyinflate ) ;
-%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS ;
+%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS if keys %IO::Uncompress::Base::DEFLATE_CONSTANTS;
 push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
 Exporter::export_ok_tags('all');
 
@@ -48,7 +48,6 @@ sub anyinflate
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.096 qw(:Parse);
     return ( 'rawinflate' => [Parse_boolean,  0] ) ;
 }
 
@@ -75,9 +74,9 @@ sub mkUncomp
         if ! defined $obj;
 
     *$self->{Uncomp} = $obj;
-    
+
      my @possible = qw( Inflate Gunzip Unzip );
-     unshift @possible, 'RawInflate' 
+     unshift @possible, 'RawInflate'
         if 1 || $got->getValue('rawinflate');
 
      my $magic = $self->ckMagic( @possible );
@@ -113,7 +112,7 @@ sub ckMagic
 
         $self->pushBack(*$self->{HeaderPending})  ;
         *$self->{HeaderPending} = ''  ;
-    }    
+    }
 
     bless $self => $keep;
     return undef;
@@ -135,7 +134,7 @@ IO::Uncompress::AnyInflate - Uncompress zlib-based (zip, gzip) file/buffer
     my $status = anyinflate $input => $output [,OPTS]
         or die "anyinflate failed: $AnyInflateError\n";
 
-    my $z = new IO::Uncompress::AnyInflate $input [OPTS]
+    my $z = IO::Uncompress::AnyInflate->new( $input [OPTS] )
         or die "anyinflate failed: $AnyInflateError\n";
 
     $status = $z->read($buffer)
@@ -444,7 +443,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.Compressed"
+    my $input = IO::File->new( "<file1.txt.Compressed" )
         or die "Cannot open 'file1.txt.Compressed': $!\n" ;
     my $buffer ;
     anyinflate $input => \$buffer
@@ -479,7 +478,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::AnyInflate is shown below
 
-    my $z = new IO::Uncompress::AnyInflate $input [OPTS]
+    my $z = IO::Uncompress::AnyInflate->new( $input [OPTS] )
         or die "IO::Uncompress::AnyInflate failed: $AnyInflateError\n";
 
 Returns an C<IO::Uncompress::AnyInflate> object on success and undef on failure.
@@ -999,8 +998,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index ae8acdf..b17a3ed 100644 (file)
@@ -4,21 +4,21 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.096 ();
+use IO::Compress::Base::Common 2.100 ();
 
-use IO::Uncompress::Base 2.096 ;
+use IO::Uncompress::Base 2.100 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $AnyUncompressError = '';
 
 @ISA = qw(IO::Uncompress::Base Exporter);
 @EXPORT_OK = qw( $AnyUncompressError anyuncompress ) ;
-%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS ;
+%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS if keys %IO::Uncompress::Base::DEFLATE_CONSTANTS;
 push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
 Exporter::export_ok_tags('all');
 
@@ -33,26 +33,26 @@ BEGIN
    # Don't trigger any __DIE__ Hooks.
    local $SIG{__DIE__};
 
-   eval ' use IO::Uncompress::Adapter::Inflate 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzma 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::UnXz 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::UnZstd 2.096 ;';
-   eval ' use IO::Uncompress::Adapter::UnLzip 2.096 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.096 ;';
-   eval ' use IO::Uncompress::UnLzop 2.096 ;';
-   eval ' use IO::Uncompress::Gunzip 2.096 ;';
-   eval ' use IO::Uncompress::Inflate 2.096 ;';
-   eval ' use IO::Uncompress::RawInflate 2.096 ;';
-   eval ' use IO::Uncompress::Unzip 2.096 ;';
-   eval ' use IO::Uncompress::UnLzf 2.096 ;';
-   eval ' use IO::Uncompress::UnLzma 2.096 ;';
-   eval ' use IO::Uncompress::UnXz 2.096 ;';
-   eval ' use IO::Uncompress::UnZstd 2.096 ;';
-   eval ' use IO::Uncompress::UnLzip 2.096 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::UnZstd 2.100 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzip 2.100 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.100 ;';
+   eval ' use IO::Uncompress::UnLzop 2.100 ;';
+   eval ' use IO::Uncompress::Gunzip 2.100 ;';
+   eval ' use IO::Uncompress::Inflate 2.100 ;';
+   eval ' use IO::Uncompress::RawInflate 2.100 ;';
+   eval ' use IO::Uncompress::Unzip 2.100 ;';
+   eval ' use IO::Uncompress::UnLzf 2.100 ;';
+   eval ' use IO::Uncompress::UnLzma 2.100 ;';
+   eval ' use IO::Uncompress::UnXz 2.100 ;';
+   eval ' use IO::Uncompress::UnZstd 2.100 ;';
+   eval ' use IO::Uncompress::UnLzip 2.100 ;';
 
 }
 
@@ -279,7 +279,7 @@ IO::Uncompress::AnyUncompress - Uncompress gzip, zip, bzip2, zstd, xz, lzma, lzi
     my $status = anyuncompress $input => $output [,OPTS]
         or die "anyuncompress failed: $AnyUncompressError\n";
 
-    my $z = new IO::Uncompress::AnyUncompress $input [OPTS]
+    my $z = IO::Uncompress::AnyUncompress->new( $input [OPTS] )
         or die "anyuncompress failed: $AnyUncompressError\n";
 
     $status = $z->read($buffer)
@@ -600,7 +600,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.Compressed"
+    my $input = IO::File->new( "<file1.txt.Compressed" )
         or die "Cannot open 'file1.txt.Compressed': $!\n" ;
     my $buffer ;
     anyuncompress $input => \$buffer
@@ -635,7 +635,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::AnyUncompress is shown below
 
-    my $z = new IO::Uncompress::AnyUncompress $input [OPTS]
+    my $z = IO::Uncompress::AnyUncompress->new( $input [OPTS] )
         or die "IO::Uncompress::AnyUncompress failed: $AnyUncompressError\n";
 
 Returns an C<IO::Uncompress::AnyUncompress> object on success and undef on failure.
@@ -1077,8 +1077,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 91a50e7..5627bc6 100644 (file)
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
 @ISA    = qw(IO::File Exporter);
 
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 use constant G_EOF => 0 ;
 use constant G_ERR => -1 ;
 
-use IO::Compress::Base::Common 2.096 ;
+use IO::Compress::Base::Common 2.100 ;
 
 use IO::File ;
 use Symbol;
@@ -58,7 +58,7 @@ sub smartRead
 
     if (defined *$self->{FH}) {
         if ($offset) {
-            # Not using this 
+            # Not using this
             #
             #  *$self->{FH}->read($$out, $get_size, $offset);
             #
@@ -75,7 +75,7 @@ sub smartRead
     elsif (defined *$self->{InputEvent}) {
         my $got = 1 ;
         while (length $$out < $size) {
-            last 
+            last
                 if ($got = *$self->{InputEvent}->($$out, $get_size)) <= 0;
         }
 
@@ -93,13 +93,13 @@ sub smartRead
        substr($$out, $offset) = substr($$buf, *$self->{BufferOffset}, $get_size);
        if (*$self->{ConsumeInput})
          { substr($$buf, 0, $get_size) = '' }
-       else  
+       else
          { *$self->{BufferOffset} += length($$out) - $offset }
     }
 
-    *$self->{InputLengthRemaining} -= length($$out) #- $offset 
+    *$self->{InputLengthRemaining} -= length($$out) #- $offset
         if defined *$self->{InputLength};
-        
+
     if (! defined $status) {
         $self->saveStatus($!) ;
         return STATUS_ERROR;
@@ -169,7 +169,7 @@ sub smartTell
 
     if (defined *$self->{FH})
       { return *$self->{FH}->tell() }
-    else 
+    else
       { return *$self->{BufferOffset} }
 }
 
@@ -179,7 +179,7 @@ sub smartWrite
     my $out_data = shift ;
 
     if (defined *$self->{FH}) {
-        # flush needed for 5.8.0 
+        # flush needed for 5.8.0
         defined *$self->{FH}->write($out_data, length $out_data) &&
         defined *$self->{FH}->flush() ;
     }
@@ -199,7 +199,7 @@ sub smartReadExact
 sub smartEof
 {
     my ($self) = $_[0];
-    local $.; 
+    local $.;
 
     return 0 if length *$self->{Prime} || *$self->{PushMode};
 
@@ -207,15 +207,15 @@ sub smartEof
     {
         # Could use
         #
-        #  *$self->{FH}->eof() 
+        #  *$self->{FH}->eof()
         #
         # here, but this can cause trouble if
         # the filehandle is itself a tied handle, but it uses sysread.
-        # Then we get into mixing buffered & non-buffered IO, 
+        # Then we get into mixing buffered & non-buffered IO,
         # which will cause trouble
 
         my $info = $self->getErrInfo();
-        
+
         my $buffer = '';
         my $status = $self->smartRead(\$buffer, 1);
         $self->pushBack($buffer) if length $buffer;
@@ -225,7 +225,7 @@ sub smartEof
     }
     elsif (defined *$self->{InputEvent})
      { *$self->{EventEof} }
-    else 
+    else
      { *$self->{BufferOffset} >= length(${ *$self->{Buffer} }) }
 }
 
@@ -347,7 +347,7 @@ sub checkParams
     my $class = shift ;
 
     my $got = shift || IO::Compress::Base::Parameters::new();
-    
+
     my $Valid = {
                     'blocksize'     => [IO::Compress::Base::Common::Parse_unsigned, 16 * 1024],
                     'autoclose'     => [IO::Compress::Base::Common::Parse_boolean,  0],
@@ -362,7 +362,7 @@ sub checkParams
                    #'decode'        => [IO::Compress::Base::Common::Parse_any,      undef],
 
                    #'consumeinput'  => [IO::Compress::Base::Common::Parse_boolean,  0],
-                   
+
                     $self->getExtraParams(),
 
                     #'Todo - Revert to ordinary file on end Z_STREAM_END'=> 0,
@@ -371,11 +371,11 @@ sub checkParams
 
     $Valid->{trailingdata} = [IO::Compress::Base::Common::Parse_writable_scalar, undef]
         if  *$self->{OneShot} ;
-        
-    $got->parse($Valid, @_ ) 
+
+    $got->parse($Valid, @_ )
         or $self->croakError("${class}: " . $got->getError()) ;
 
-    $self->postCheckParams($got) 
+    $self->postCheckParams($got)
         or $self->croakError("${class}: " . $self->error()) ;
 
     return $got;
@@ -403,7 +403,7 @@ sub _create
 
     my $inType  = whatIsInput($inValue, 1);
 
-    $obj->ckInputParam($class, $inValue, 1) 
+    $obj->ckInputParam($class, $inValue, 1)
         or return undef ;
 
     *$obj->{InNew} = 1;
@@ -412,8 +412,8 @@ sub _create
         or $obj->croakError("${class}: " . *$obj->{Error});
 
     if ($inType eq 'buffer' || $inType eq 'code') {
-        *$obj->{Buffer} = $inValue ;        
-        *$obj->{InputEvent} = $inValue 
+        *$obj->{Buffer} = $inValue ;
+        *$obj->{InputEvent} = $inValue
            if $inType eq 'code' ;
     }
     else {
@@ -422,18 +422,18 @@ sub _create
             *$obj->{Handle} = 1 ;
 
             # Need to rewind for Scan
-            *$obj->{FH}->seek(0, SEEK_SET) 
+            *$obj->{FH}->seek(0, SEEK_SET)
                 if $got->getValue('scan');
-        }  
-        else {    
+        }
+        else {
             no warnings ;
             my $mode = '<';
             $mode = '+<' if $got->getValue('scan');
             *$obj->{StdIO} = ($inValue eq '-');
-            *$obj->{FH} = new IO::File "$mode $inValue"
+            *$obj->{FH} = IO::File->new( "$mode $inValue" )
                 or return $obj->saveErrorString(undef, "cannot open file '$inValue': $!", $!) ;
         }
-        
+
         *$obj->{LineNo} = $. = 0;
         setBinModeInput(*$obj->{FH}) ;
 
@@ -441,7 +441,7 @@ sub _create
         *$obj->{Buffer} = \$buff ;
     }
 
-#    if ($got->getValue('decode')) { 
+#    if ($got->getValue('decode')) {
 #        my $want_encoding = $got->getValue('decode');
 #        *$obj->{Encoding} = IO::Compress::Base::Common::getEncoding($obj, $class, $want_encoding);
 #    }
@@ -449,7 +449,7 @@ sub _create
 #        *$obj->{Encoding} = undef;
 #    }
 
-    *$obj->{InputLength}       = $got->parsed('inputlength') 
+    *$obj->{InputLength}       = $got->parsed('inputlength')
                                     ? $got->getValue('inputlength')
                                     : undef ;
     *$obj->{InputLengthRemaining} = $got->getValue('inputlength');
@@ -465,7 +465,7 @@ sub _create
 
     # TODO - move these two into RawDeflate
     *$obj->{Scan}              = $got->getValue('scan');
-    *$obj->{ParseExtra}        = $got->getValue('parseextra') 
+    *$obj->{ParseExtra}        = $got->getValue('parseextra')
                                   || $got->getValue('strict')  ;
     *$obj->{Type}              = '';
     *$obj->{Prime}             = $got->getValue('prime') || '' ;
@@ -473,8 +473,8 @@ sub _create
     *$obj->{Plain}             = 0;
     *$obj->{PlainBytesRead}    = 0;
     *$obj->{InflatedBytesRead} = 0;
-    *$obj->{UnCompSize}        = new U64;
-    *$obj->{CompSize}          = new U64;
+    *$obj->{UnCompSize}        = U64->new;
+    *$obj->{CompSize}          = U64->new;
     *$obj->{TotalInflatedBytesRead} = 0;
     *$obj->{NewStream}         = 0 ;
     *$obj->{EventEof}          = 0 ;
@@ -494,19 +494,19 @@ sub _create
 
     *$obj->{InNew} = 0;
     *$obj->{Closed} = 0;
-    
-    return $obj 
+
+    return $obj
         if *$obj->{Pause} ;
 
     if ($status) {
         # Need to try uncompressing to catch the case
         # where the compressed file uncompresses to an
         # empty string - so eof is set immediately.
-        
+
         my $out_buffer = '';
 
         $status = $obj->read(\$out_buffer);
-    
+
         if ($status < 0) {
             *$obj->{ReadStatus} = [ $status, $obj->error(), $obj->errorNo() ];
         }
@@ -515,7 +515,7 @@ sub _create
             if length $out_buffer;
     }
     else {
-        return undef 
+        return undef
             unless *$obj->{Transparent};
 
         $obj->clearError();
@@ -549,7 +549,7 @@ sub ckInputParam
 #
 #        if ($_[0] ne '-' && ! -e $_[0] )
 #        {
-#            return $self->saveErrorString(1, 
+#            return $self->saveErrorString(1,
 #                            "input file '$_[0]' does not exist", STATUS_ERROR);
 #        }
 #    }
@@ -573,13 +573,13 @@ sub _inf
     my $output = shift ;
 
 
-    my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output)
+    my $x = IO::Compress::Base::Validator->new($class, *$obj->{Error}, $name, $input, $output)
         or return undef ;
-    
+
     push @_, $output if $haveOut && $x->{Hash};
 
     *$obj->{OneShot} = 1 ;
-    
+
     my $got = $obj->checkParams($name, undef, @_)
         or return undef ;
 
@@ -589,25 +589,25 @@ sub _inf
 #        warn "TD $value ";
 #        #$value = $$value;
 ##                warn "TD $value $$value ";
-#       
+#
 #        return retErr($obj, "Parameter 'TrailingData' not writable")
-#            if readonly $$value ;          
+#            if readonly $$value ;
 #
-#        if (ref $$value) 
+#        if (ref $$value)
 #        {
 #            return retErr($obj,"Parameter 'TrailingData' not a scalar reference")
 #                if ref $$value ne 'SCALAR' ;
-#              
+#
 #            *$obj->{TrailingData} = $$value ;
 #        }
-#        else  
+#        else
 #        {
 #            return retErr($obj,"Parameter 'TrailingData' not a scalar")
-#                if ref $value ne 'SCALAR' ;               
+#                if ref $value ne 'SCALAR' ;
 #
 #            *$obj->{TrailingData} = $value ;
 #        }
-        
+
         *$obj->{TrailingData} = $got->getValue('trailingdata');
     }
 
@@ -620,7 +620,7 @@ sub _inf
 #    {
 #        while (my($k, $v) = each %$input)
 #        {
-#            $v = \$input->{$k} 
+#            $v = \$input->{$k}
 #                unless defined $v ;
 #
 #            $obj->_singleTarget($x, $k, $v, @_)
@@ -629,7 +629,7 @@ sub _inf
 #
 #        return keys %$input ;
 #    }
-    
+
     if ($x->{GlobMap})
     {
         $x->{oneInput} = 1 ;
@@ -645,11 +645,11 @@ sub _inf
 
     if (! $x->{oneOutput} )
     {
-        my $inFile = ($x->{inType} eq 'filenames' 
+        my $inFile = ($x->{inType} eq 'filenames'
                         || $x->{inType} eq 'filename');
 
         $x->{inType} = $inFile ? 'filename' : 'buffer';
-        
+
         foreach my $in ($x->{oneInput} ? $input : @$input)
         {
             my $out ;
@@ -684,7 +684,7 @@ sub _singleTarget
     my $x         = shift ;
     my $input     = shift;
     my $output    = shift;
-    
+
     my $buff = '';
     $x->{buff} = \$buff ;
 
@@ -693,7 +693,7 @@ sub _singleTarget
         my $mode = '>' ;
         $mode = '>>'
             if $x->{Got}->getValue('append') ;
-        $x->{fh} = new IO::File "$mode $output" 
+        $x->{fh} = IO::File->new( "$mode $output" )
             or return retErr($x, "cannot open file '$output': $!") ;
         binmode $x->{fh} ;
 
@@ -708,10 +708,10 @@ sub _singleTarget
             }
     }
 
-    
+
     elsif ($x->{outType} eq 'buffer' )
     {
-        $$output = '' 
+        $$output = ''
             unless $x->{Got}->getValue('append');
         $x->{buff} = $output ;
     }
@@ -719,22 +719,22 @@ sub _singleTarget
     if ($x->{oneInput})
     {
         defined $self->_rd2($x, $input, $output)
-            or return undef; 
+            or return undef;
     }
     else
     {
         for my $element ( ($x->{inType} eq 'hash') ? keys %$input : @$input)
         {
-            defined $self->_rd2($x, $element, $output) 
+            defined $self->_rd2($x, $element, $output)
                 or return undef ;
         }
     }
 
 
-    if ( ($x->{outType} eq 'filename' && $output ne '-') || 
+    if ( ($x->{outType} eq 'filename' && $output ne '-') ||
          ($x->{outType} eq 'handle' && $x->{Got}->getValue('autoclose'))) {
-        $x->{fh}->close() 
-            or return retErr($x, $!); 
+        $x->{fh}->close()
+            or return retErr($x, $!);
         delete $x->{fh};
     }
 
@@ -747,15 +747,15 @@ sub _rd2
     my $x         = shift ;
     my $input     = shift;
     my $output    = shift;
-        
+
     my $z = IO::Compress::Base::Common::createSelfTiedObject($x->{Class}, *$self->{Error});
-    
+
     $z->_create($x->{Got}, 1, $input, @_)
         or return undef ;
 
     my $status ;
     my $fh = $x->{fh};
-    
+
     while (1) {
 
         while (($status = $z->read($x->{buff})) > 0) {
@@ -770,9 +770,9 @@ sub _rd2
         if (! $x->{oneOutput} ) {
             my $ot = $x->{outType} ;
 
-            if ($ot eq 'array') 
+            if ($ot eq 'array')
               { push @$output, $x->{buff} }
-            elsif ($ot eq 'hash') 
+            elsif ($ot eq 'hash')
               { $output->{$input} = $x->{buff} }
 
             my $buff = '';
@@ -781,12 +781,12 @@ sub _rd2
 
         last if $status < 0 || $z->smartEof();
 
-        last 
+        last
             unless *$self->{MultiStream};
 
         $status = $z->nextStream();
 
-        last 
+        last
             unless $status == 1 ;
     }
 
@@ -796,7 +796,7 @@ sub _rd2
     ${ *$self->{TrailingData} } = $z->trailingData()
         if defined *$self->{TrailingData} ;
 
-    $z->close() 
+    $z->close()
         or return undef ;
 
     return 1 ;
@@ -808,7 +808,7 @@ sub TIEHANDLE
     die "OOPS\n" ;
 
 }
-  
+
 sub UNTIE
 {
     my $self = shift ;
@@ -836,7 +836,7 @@ sub readBlock
         $size = List::Util::min($size, *$self->{CompressedInputLengthRemaining} );
         *$self->{CompressedInputLengthRemaining} -= $size ;
     }
-    
+
     my $status = $self->smartRead($buff, $size) ;
     return $self->saveErrorString(STATUS_ERROR, "Error Reading Data: $!", $!)
         if $status == STATUS_ERROR  ;
@@ -861,7 +861,7 @@ sub _raw_read
     # >0 - ok, number of bytes read
     # =0 - ok, eof
     # <0 - not ok
-    
+
     my $self = shift ;
 
     return G_EOF if *$self->{Closed} ;
@@ -873,8 +873,8 @@ sub _raw_read
     if (*$self->{Plain}) {
         my $tmp_buff ;
         my $len = $self->smartRead(\$tmp_buff, *$self->{BlockSize}) ;
-        
-        return $self->saveErrorString(G_ERR, "Error reading data: $!", $!) 
+
+        return $self->saveErrorString(G_ERR, "Error reading data: $!", $!)
                 if $len == STATUS_ERROR ;
 
         if ($len == 0 ) {
@@ -898,13 +898,13 @@ sub _raw_read
         $$buffer .=  *$self->{Pending} ;
         my $len = length  *$self->{Pending} ;
         *$self->{Pending} = '';
-        return $len; 
+        return $len;
     }
 
     my $temp_buf = '';
     my $outSize = 0;
     my $status = $self->readBlock(\$temp_buf, *$self->{BlockSize}, $outSize) ;
-    
+
     return G_ERR
         if $status == STATUS_ERROR  ;
 
@@ -915,18 +915,18 @@ sub _raw_read
         $status = *$self->{Uncomp}->uncompr(\$temp_buf, $buffer,
                                     defined *$self->{CompressedInputLengthDone} ||
                                                 $self->smartEof(), $outSize);
-                                                
+
         # Remember the input buffer if it wasn't consumed completely
         $self->pushBack($temp_buf) if *$self->{Uncomp}{ConsumesInput};
 
         return $self->saveErrorString(G_ERR, *$self->{Uncomp}{Error}, *$self->{Uncomp}{ErrorNo})
-            if $self->saveStatus($status) == STATUS_ERROR;    
+            if $self->saveStatus($status) == STATUS_ERROR;
 
         $self->postBlockChk($buffer, $before_len) == STATUS_OK
             or return G_ERR;
 
         $buf_len = defined $$buffer ? length($$buffer) - $before_len : 0;
-    
+
         *$self->{CompSize}->add($beforeC_len - length $temp_buf) ;
 
         *$self->{InflatedBytesRead} += $buf_len ;
@@ -960,7 +960,7 @@ sub _raw_read
                 or return G_ERR;
         }
         else {
-            return $self->TrailerError("trailer truncated. Expected " . 
+            return $self->TrailerError("trailer truncated. Expected " .
                                       "$trailer_size bytes, got $got")
                 if *$self->{Strict};
             $self->pushBack($trailer)  ;
@@ -978,7 +978,7 @@ sub _raw_read
         }
 
     }
-    
+
 
     # return the number of uncompressed bytes read
     return $buf_len ;
@@ -1029,7 +1029,7 @@ sub gotoNextStream
 
         # TODO - make this more efficient if know the offset for the end of
         # the stream and seekable
-        $status = $self->read($buffer) 
+        $status = $self->read($buffer)
             while $status > 0 ;
 
         return $status
@@ -1074,7 +1074,7 @@ sub gotoNextStream
 
     push @{ *$self->{InfoList} }, *$self->{Info} ;
 
-    return 1; 
+    return 1;
 }
 
 sub streamCount
@@ -1090,7 +1090,7 @@ sub read
     # >0 - ok, number of bytes read
     # =0 - ok, eof
     # <0 - not ok
-    
+
     my $self = shift ;
 
     if (defined *$self->{ReadStatus} ) {
@@ -1123,7 +1123,7 @@ sub read
     my $offset = $_[2] || 0;
 
     if (! *$self->{AppendOutput}) {
-        if (! $offset) {    
+        if (! $offset) {
 
             $$buffer = '' ;
         }
@@ -1161,13 +1161,13 @@ sub read
         }
         else {
             my $len = 0;
-            $len = $self->_raw_read($buffer) 
+            $len = $self->_raw_read($buffer)
                 while ! *$self->{EndStream} && $len == 0 ;
             return $len ;
         }
     }
 
-    # Need to jump through more hoops - either length or offset 
+    # Need to jump through more hoops - either length or offset
     # or both are specified.
     my $out_buffer = *$self->{Pending} ;
     *$self->{Pending} = '';
@@ -1176,17 +1176,17 @@ sub read
     while (! *$self->{EndStream} && length($out_buffer) < $length)
     {
         my $buf_len = $self->_raw_read(\$out_buffer);
-        return $buf_len 
+        return $buf_len
             if $buf_len < 0 ;
     }
 
-    $length = length $out_buffer 
+    $length = length $out_buffer
         if length($out_buffer) < $length ;
 
-    return 0 
+    return 0
         if $length == 0 ;
 
-    $$buffer = '' 
+    $$buffer = ''
         if ! defined $$buffer;
 
     $offset = length $$buffer
@@ -1223,7 +1223,7 @@ sub _getline
 
     # Paragraph Mode
     if ( ! length $/ ) {
-        my $paragraph ;    
+        my $paragraph ;
         while (($status = $self->read($paragraph)) > 0 ) {
             if ($paragraph =~ s/^(.*?\n\n+)//s) {
                 *$self->{Pending}  = $paragraph ;
@@ -1236,13 +1236,13 @@ sub _getline
 
     # $/ isn't empty, or a reference, so it's Line Mode.
     {
-        my $line ;    
+        my $line ;
         my $p = \*$self->{Pending}  ;
         while (($status = $self->read($line)) > 0 ) {
             my $offset = index($line, $/);
             if ($offset >= 0) {
                 my $l = substr($line, 0, $offset + length $/ );
-                substr($line, 0, $offset + length $/) = '';    
+                substr($line, 0, $offset + length $/) = '';
                 $$p = $line;
                 return (1, \$l);
             }
@@ -1262,7 +1262,7 @@ sub getline
         return undef;
     }
 
-    return undef 
+    return undef
         if *$self->{Closed} || (!length *$self->{Pending} && *$self->{EndStream}) ;
 
     my $current_append = *$self->{AppendOutput} ;
@@ -1271,7 +1271,7 @@ sub getline
     my ($status, $lineref) = $self->_getline();
     *$self->{AppendOutput} = $current_append;
 
-    return undef 
+    return undef
         if $status < 0 || length $$lineref == 0 ;
 
     $. = ++ *$self->{LineNo} ;
@@ -1282,10 +1282,10 @@ sub getline
 sub getlines
 {
     my $self = shift;
-    $self->croakError(*$self->{ClassName} . 
+    $self->croakError(*$self->{ClassName} .
             "::getlines: called in scalar context\n") unless wantarray;
     my($line, @lines);
-    push(@lines, $line) 
+    push(@lines, $line)
         while defined($line = $self->getline);
     return @lines;
 }
@@ -1307,8 +1307,8 @@ sub getc
 sub ungetc
 {
     my $self = shift;
-    *$self->{Pending} = ""  unless defined *$self->{Pending} ;    
-    *$self->{Pending} = $_[0] . *$self->{Pending} ;    
+    *$self->{Pending} = ""  unless defined *$self->{Pending} ;
+    *$self->{Pending} = $_[0] . *$self->{Pending} ;
 }
 
 
@@ -1332,7 +1332,7 @@ sub eof
     my $self = shift ;
 
     return (*$self->{Closed} ||
-              (!length *$self->{Pending} 
+              (!length *$self->{Pending}
                 && ( $self->smartEof() || *$self->{EndStream}))) ;
 }
 
@@ -1362,14 +1362,14 @@ sub close
 
     return 1 if *$self->{Closed} ;
 
-    untie *$self 
+    untie *$self
         if $] >= 5.008 ;
 
     my $status = 1 ;
 
     if (defined *$self->{FH}) {
         if ((! *$self->{Handle} || *$self->{AutoClose}) && ! *$self->{StdIO}) {
-            local $.; 
+            local $.;
             $! = 0 ;
             $status = *$self->{FH}->close();
             return $self->saveErrorString(0, $!, $!)
@@ -1449,8 +1449,8 @@ sub seek
 sub fileno
 {
     my $self = shift ;
-    return defined *$self->{FH} 
-           ? fileno *$self->{FH} 
+    return defined *$self->{FH}
+           ? fileno *$self->{FH}
            : undef ;
 }
 
@@ -1458,8 +1458,8 @@ sub binmode
 {
     1;
 #    my $self     = shift ;
-#    return defined *$self->{FH} 
-#            ? binmode *$self->{FH} 
+#    return defined *$self->{FH}
+#            ? binmode *$self->{FH}
 #            : 1 ;
 }
 
@@ -1472,8 +1472,8 @@ sub opened
 sub autoflush
 {
     my $self     = shift ;
-    return defined *$self->{FH} 
-            ? *$self->{FH}->autoflush(@_) 
+    return defined *$self->{FH}
+            ? *$self->{FH}->autoflush(@_)
             : undef ;
 }
 
@@ -1485,33 +1485,35 @@ sub input_line_number
     return $last;
 }
 
-
-*BINMODE  = \&binmode;
-*SEEK     = \&seek; 
-*READ     = \&read;
-*sysread  = \&read;
-*TELL     = \&tell;
-*EOF      = \&eof;
-
-*FILENO   = \&fileno;
-*CLOSE    = \&close;
-
 sub _notAvailable
 {
     my $name = shift ;
     return sub { croak "$name Not Available: File opened only for intput" ; } ;
 }
 
-
-*print    = _notAvailable('print');
-*PRINT    = _notAvailable('print');
-*printf   = _notAvailable('printf');
-*PRINTF   = _notAvailable('printf');
-*write    = _notAvailable('write');
-*WRITE    = _notAvailable('write');
-
-#*sysread  = \&read;
-#*syswrite = \&_notAvailable;
+{
+    no warnings 'once';
+
+    *BINMODE  = \&binmode;
+    *SEEK     = \&seek;
+    *READ     = \&read;
+    *sysread  = \&read;
+    *TELL     = \&tell;
+    *EOF      = \&eof;
+
+    *FILENO   = \&fileno;
+    *CLOSE    = \&close;
+
+    *print    = _notAvailable('print');
+    *PRINT    = _notAvailable('print');
+    *printf   = _notAvailable('printf');
+    *PRINTF   = _notAvailable('printf');
+    *write    = _notAvailable('write');
+    *WRITE    = _notAvailable('write');
+
+    #*sysread  = \&read;
+    #*syswrite = \&_notAvailable;
+}
 
 
 
@@ -1560,8 +1562,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 65932c1..1bc8ac2 100644 (file)
@@ -4,15 +4,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.096 qw(:Status );
+use IO::Compress::Base::Common 2.100 qw(:Status );
 
-use IO::Uncompress::Base 2.096 ;
-use IO::Uncompress::Adapter::Bunzip2 2.096 ;
+use IO::Uncompress::Base 2.100 ;
+use IO::Uncompress::Adapter::Bunzip2 2.100 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $Bunzip2Error = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -72,7 +72,7 @@ sub mkUncomp
 
     return $self->saveErrorString(undef, $errstr, $errno)
         if ! defined $obj;
-    
+
     *$self->{Uncomp} = $obj;
 
     return 1;
@@ -88,15 +88,15 @@ sub ckMagic
     $self->smartReadExact(\$magic, 4);
 
     *$self->{HeaderPending} = $magic ;
-    
-    return $self->HeaderError("Header size is " . 
-                                        4 . " bytes") 
+
+    return $self->HeaderError("Header size is " .
+                                        4 . " bytes")
         if length $magic != 4;
 
     return $self->HeaderError("Bad Magic.")
         if ! isBzip2Magic($magic) ;
-                      
-        
+
+
     *$self->{Type} = 'bzip2';
     return $magic;
 }
@@ -117,7 +117,7 @@ sub readHeader
         'TrailerLength'     => 0,
         'Header'            => '$magic'
         };
-    
+
 }
 
 sub chkTrailer
@@ -149,7 +149,7 @@ IO::Uncompress::Bunzip2 - Read bzip2 files/buffers
     my $status = bunzip2 $input => $output [,OPTS]
         or die "bunzip2 failed: $Bunzip2Error\n";
 
-    my $z = new IO::Uncompress::Bunzip2 $input [OPTS]
+    my $z = IO::Uncompress::Bunzip2->new( $input [OPTS] )
         or die "bunzip2 failed: $Bunzip2Error\n";
 
     $status = $z->read($buffer)
@@ -440,7 +440,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.bz2"
+    my $input = IO::File->new( "<file1.txt.bz2" )
         or die "Cannot open 'file1.txt.bz2': $!\n" ;
     my $buffer ;
     bunzip2 $input => \$buffer
@@ -475,7 +475,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::Bunzip2 is shown below
 
-    my $z = new IO::Uncompress::Bunzip2 $input [OPTS]
+    my $z = IO::Uncompress::Bunzip2->new( $input [OPTS] )
         or die "IO::Uncompress::Bunzip2 failed: $Bunzip2Error\n";
 
 Returns an C<IO::Uncompress::Bunzip2> object on success and undef on failure.
@@ -907,8 +907,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 2bb383c..2c2529d 100644 (file)
@@ -9,12 +9,12 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.096 ;
+use IO::Uncompress::RawInflate 2.100 ;
 
-use Compress::Raw::Zlib 2.096 () ;
-use IO::Compress::Base::Common 2.096 qw(:Status );
-use IO::Compress::Gzip::Constants 2.096 ;
-use IO::Compress::Zlib::Extra 2.096 ;
+use Compress::Raw::Zlib 2.100 () ;
+use IO::Compress::Base::Common 2.100 qw(:Status );
+use IO::Compress::Gzip::Constants 2.100 ;
+use IO::Compress::Zlib::Extra 2.100 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
 
 $GunzipError = '';
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 
 sub new
 {
@@ -70,9 +70,9 @@ sub ckMagic
 
     *$self->{HeaderPending} = $magic ;
 
-    return $self->HeaderError("Minimum header size is " . 
-                              GZIP_MIN_HEADER_SIZE . " bytes") 
-        if length $magic != GZIP_ID_SIZE ;                                    
+    return $self->HeaderError("Minimum header size is " .
+                              GZIP_MIN_HEADER_SIZE . " bytes")
+        if length $magic != GZIP_ID_SIZE ;
 
     return $self->HeaderError("Bad Magic")
         if ! isGzipMagic($magic) ;
@@ -95,10 +95,10 @@ sub chkTrailer
     my $self = shift;
     my $trailer = shift;
 
-    # Check CRC & ISIZE 
+    # Check CRC & ISIZE
     my ($CRC32, $ISIZE) = unpack("V V", $trailer) ;
-    *$self->{Info}{CRC32} = $CRC32;    
-    *$self->{Info}{ISIZE} = $ISIZE;    
+    *$self->{Info}{CRC32} = $CRC32;
+    *$self->{Info}{ISIZE} = $ISIZE;
 
     if (*$self->{Strict}) {
         return $self->TrailerError("CRC mismatch")
@@ -130,9 +130,9 @@ sub _readFullGzipHeader($)
 
     *$self->{HeaderPending} = $magic ;
 
-    return $self->HeaderError("Minimum header size is " . 
-                              GZIP_MIN_HEADER_SIZE . " bytes") 
-        if length $magic != GZIP_ID_SIZE ;                                    
+    return $self->HeaderError("Minimum header size is " .
+                              GZIP_MIN_HEADER_SIZE . " bytes")
+        if length $magic != GZIP_ID_SIZE ;
 
 
     return $self->HeaderError("Bad Magic")
@@ -150,7 +150,7 @@ sub _readGzipHeader($)
     my ($buffer) = '' ;
 
     $self->smartReadExact(\$buffer, GZIP_MIN_HEADER_SIZE - GZIP_ID_SIZE)
-        or return $self->HeaderError("Minimum header size is " . 
+        or return $self->HeaderError("Minimum header size is " .
                                      GZIP_MIN_HEADER_SIZE . " bytes") ;
 
     my $keep = $magic . $buffer ;
@@ -159,22 +159,22 @@ sub _readGzipHeader($)
     # now split out the various parts
     my ($cm, $flag, $mtime, $xfl, $os) = unpack("C C V C C", $buffer) ;
 
-    $cm == GZIP_CM_DEFLATED 
+    $cm == GZIP_CM_DEFLATED
         or return $self->HeaderError("Not Deflate (CM is $cm)") ;
 
     # check for use of reserved bits
     return $self->HeaderError("Use of Reserved Bits in FLG field.")
-        if $flag & GZIP_FLG_RESERVED ; 
+        if $flag & GZIP_FLG_RESERVED ;
 
     my $EXTRA ;
     my @EXTRA = () ;
     if ($flag & GZIP_FLG_FEXTRA) {
         $EXTRA = "" ;
-        $self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE) 
+        $self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE)
             or return $self->TruncatedHeader("FEXTRA Length") ;
 
         my ($XLEN) = unpack("v", $buffer) ;
-        $self->smartReadExact(\$EXTRA, $XLEN) 
+        $self->smartReadExact(\$EXTRA, $XLEN)
             or return $self->TruncatedHeader("FEXTRA Body");
         $keep .= $buffer . $EXTRA ;
 
@@ -190,10 +190,10 @@ sub _readGzipHeader($)
     if ($flag & GZIP_FLG_FNAME) {
         $origname = "" ;
         while (1) {
-            $self->smartReadExact(\$buffer, 1) 
+            $self->smartReadExact(\$buffer, 1)
                 or return $self->TruncatedHeader("FNAME");
             last if $buffer eq GZIP_NULL_BYTE ;
-            $origname .= $buffer 
+            $origname .= $buffer
         }
         $keep .= $origname . GZIP_NULL_BYTE ;
 
@@ -205,10 +205,10 @@ sub _readGzipHeader($)
     if ($flag & GZIP_FLG_FCOMMENT) {
         $comment = "";
         while (1) {
-            $self->smartReadExact(\$buffer, 1) 
+            $self->smartReadExact(\$buffer, 1)
                 or return $self->TruncatedHeader("FCOMMENT");
             last if $buffer eq GZIP_NULL_BYTE ;
-            $comment .= $buffer 
+            $comment .= $buffer
         }
         $keep .= $comment . GZIP_NULL_BYTE ;
 
@@ -217,7 +217,7 @@ sub _readGzipHeader($)
     }
 
     if ($flag & GZIP_FLG_FHCRC) {
-        $self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE) 
+        $self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE)
             or return $self->TruncatedHeader("FHCRC");
 
         $HeaderCRC = unpack("v", $buffer) ;
@@ -254,7 +254,7 @@ sub _readGzipHeader($)
         'Comment'       => $comment,
         'Time'          => $mtime,
         'OsID'          => $os,
-        'OsName'        => defined $GZIP_OS_Names{$os} 
+        'OsName'        => defined $GZIP_OS_Names{$os}
                                  ? $GZIP_OS_Names{$os} : "Unknown",
         'HeaderCRC'     => $HeaderCRC,
         'Flags'         => $flag,
@@ -286,7 +286,7 @@ IO::Uncompress::Gunzip - Read RFC 1952 files/buffers
     my $status = gunzip $input => $output [,OPTS]
         or die "gunzip failed: $GunzipError\n";
 
-    my $z = new IO::Uncompress::Gunzip $input [OPTS]
+    my $z = IO::Uncompress::Gunzip->new( $input [OPTS] )
         or die "gunzip failed: $GunzipError\n";
 
     $status = $z->read($buffer)
@@ -579,7 +579,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.gz"
+    my $input = IO::File->new( "<file1.txt.gz" )
         or die "Cannot open 'file1.txt.gz': $!\n" ;
     my $buffer ;
     gunzip $input => \$buffer
@@ -614,7 +614,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::Gunzip is shown below
 
-    my $z = new IO::Uncompress::Gunzip $input [OPTS]
+    my $z = IO::Uncompress::Gunzip->new( $input [OPTS] )
         or die "IO::Uncompress::Gunzip failed: $GunzipError\n";
 
 Returns an C<IO::Uncompress::Gunzip> object on success and undef on failure.
@@ -1122,8 +1122,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 3d576f9..5621959 100644 (file)
@@ -5,15 +5,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.096 qw(:Status );
-use IO::Compress::Zlib::Constants 2.096 ;
+use IO::Compress::Base::Common  2.100 qw(:Status );
+use IO::Compress::Zlib::Constants 2.100 ;
 
-use IO::Uncompress::RawInflate  2.096 ;
+use IO::Uncompress::RawInflate  2.100 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $InflateError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
@@ -62,14 +62,14 @@ sub ckMagic
 
     *$self->{HeaderPending} = $magic ;
 
-    return $self->HeaderError("Header size is " . 
-                                        ZLIB_HEADER_SIZE . " bytes") 
+    return $self->HeaderError("Header size is " .
+                                        ZLIB_HEADER_SIZE . " bytes")
         if length $magic != ZLIB_HEADER_SIZE;
 
     #return $self->HeaderError("CRC mismatch.")
     return undef
         if ! $self->isZlibMagic($magic) ;
-                      
+
     *$self->{Type} = 'rfc1950';
     return $magic;
 }
@@ -88,7 +88,7 @@ sub chkTrailer
     my $trailer = shift;
 
     my $ADLER32 = unpack("N", $trailer) ;
-    *$self->{Info}{ADLER32} = $ADLER32;    
+    *$self->{Info}{ADLER32} = $ADLER32;
     return $self->TrailerError("CRC mismatch")
         if *$self->{Strict} && $ADLER32 != *$self->{Uncomp}->adler32() ;
 
@@ -102,7 +102,7 @@ sub isZlibMagic
     my $self = shift;
     my $buffer = shift ;
 
-    return 0 
+    return 0
         if length $buffer < ZLIB_HEADER_SIZE ;
 
     my $hdr = unpack("n", $buffer) ;
@@ -114,16 +114,16 @@ sub isZlibMagic
     my $cm =    bits($CMF, ZLIB_CMF_CM_OFFSET,    ZLIB_CMF_CM_BITS) ;
 
     # Only Deflate supported
-    return $self->HeaderError("Not Deflate (CM is $cm)") 
+    return $self->HeaderError("Not Deflate (CM is $cm)")
         if $cm != ZLIB_CMF_CM_DEFLATED ;
 
     # Max window value is 7 for Deflate.
     my $cinfo = bits($CMF, ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS) ;
-    return $self->HeaderError("CINFO > " . ZLIB_CMF_CINFO_MAX . 
-                              " (CINFO is $cinfo)") 
+    return $self->HeaderError("CINFO > " . ZLIB_CMF_CINFO_MAX .
+                              " (CINFO is $cinfo)")
         if $cinfo > ZLIB_CMF_CINFO_MAX ;
 
-    return 1;    
+    return 1;
 }
 
 sub bits
@@ -145,19 +145,19 @@ sub _readDeflateHeader
 #
 #        *$self->{HeaderPending} = $buffer ;
 #
-#        return $self->HeaderError("Header size is " . 
-#                                            ZLIB_HEADER_SIZE . " bytes") 
+#        return $self->HeaderError("Header size is " .
+#                                            ZLIB_HEADER_SIZE . " bytes")
 #            if length $buffer != ZLIB_HEADER_SIZE;
 #
 #        return $self->HeaderError("CRC mismatch.")
 #            if ! isZlibMagic($buffer) ;
 #    }
-                                        
+
     my ($CMF, $FLG) = unpack "C C", $buffer;
     my $FDICT = bits($FLG, ZLIB_FLG_FDICT_OFFSET,  ZLIB_FLG_FDICT_BITS ),
 
     my $cm = bits($CMF, ZLIB_CMF_CM_OFFSET, ZLIB_CMF_CM_BITS) ;
-    $cm == ZLIB_CMF_CM_DEFLATED 
+    $cm == ZLIB_CMF_CM_DEFLATED
         or return $self->HeaderError("Not Deflate (CM is $cm)") ;
 
     my $DICTID;
@@ -208,7 +208,7 @@ IO::Uncompress::Inflate - Read RFC 1950 files/buffers
     my $status = inflate $input => $output [,OPTS]
         or die "inflate failed: $InflateError\n";
 
-    my $z = new IO::Uncompress::Inflate $input [OPTS]
+    my $z = IO::Uncompress::Inflate->new( $input [OPTS] )
         or die "inflate failed: $InflateError\n";
 
     $status = $z->read($buffer)
@@ -501,7 +501,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::Inflate qw(inflate $InflateError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.1950"
+    my $input = IO::File->new( "<file1.txt.1950" )
         or die "Cannot open 'file1.txt.1950': $!\n" ;
     my $buffer ;
     inflate $input => \$buffer
@@ -536,7 +536,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::Inflate is shown below
 
-    my $z = new IO::Uncompress::Inflate $input [OPTS]
+    my $z = IO::Uncompress::Inflate->new( $input [OPTS] )
         or die "IO::Uncompress::Inflate failed: $InflateError\n";
 
 Returns an C<IO::Uncompress::Inflate> object on success and undef on failure.
@@ -994,8 +994,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index b5a4b8a..1a6c1f5 100644 (file)
@@ -5,16 +5,16 @@ use strict ;
 use warnings;
 use bytes;
 
-use Compress::Raw::Zlib  2.096 ;
-use IO::Compress::Base::Common  2.096 qw(:Status );
+use Compress::Raw::Zlib  2.100 ;
+use IO::Compress::Base::Common  2.100 qw(:Status );
 
-use IO::Uncompress::Base  2.096 ;
-use IO::Uncompress::Adapter::Inflate  2.096 ;
+use IO::Uncompress::Base  2.100 ;
+use IO::Uncompress::Adapter::Inflate  2.100 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $RawInflateError = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -25,16 +25,16 @@ push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
 Exporter::export_ok_tags('all');
 
 #{
-#    # Execute at runtime  
+#    # Execute at runtime
 #    my %bad;
 #    for my $module (qw(Compress::Raw::Zlib IO::Compress::Base::Common IO::Uncompress::Base IO::Uncompress::Adapter::Inflate))
 #    {
 #        my $ver = ${ $module . "::VERSION"} ;
-#        
+#
 #        $bad{$module} = $ver
 #            if $ver ne $VERSION;
 #    }
-#    
+#
 #    if (keys %bad)
 #    {
 #        my $string = join "\n", map { "$_ $bad{$_}" } keys %bad;
@@ -148,14 +148,14 @@ sub _isRawx
 
     my $buffer = '';
 
-    $self->smartRead(\$buffer, *$self->{BlockSize}) >= 0  
+    $self->smartRead(\$buffer, *$self->{BlockSize}) >= 0
         or return $self->saveErrorString(undef, "No data to read");
 
     my $temp_buf = $magic . $buffer ;
-    *$self->{HeaderPending} = $temp_buf ;    
+    *$self->{HeaderPending} = $temp_buf ;
     $buffer = '';
     my $status = *$self->{Uncomp}->uncompr(\$temp_buf, \$buffer, $self->smartEof()) ;
-    
+
     return $self->saveErrorString(undef, *$self->{Uncomp}{Error}, STATUS_ERROR)
         if $status == STATUS_ERROR;
 
@@ -163,12 +163,12 @@ sub _isRawx
 
     return $self->saveErrorString(undef, "unexpected end of file", STATUS_ERROR)
         if $self->smartEof() && $status != STATUS_ENDSTREAM;
-            
+
     #my $buf_len = *$self->{Uncomp}->uncompressedBytes();
     my $buf_len = length $buffer;
 
     if ($status == STATUS_ENDSTREAM) {
-        if (*$self->{MultiStream} 
+        if (*$self->{MultiStream}
                     && (length $temp_buf || ! $self->smartEof())){
             *$self->{NewStream} = 1 ;
             *$self->{EndStream} = 0 ;
@@ -177,9 +177,9 @@ sub _isRawx
             *$self->{EndStream} = 1 ;
         }
     }
-    *$self->{HeaderPending} = $buffer ;    
-    *$self->{InflatedBytesRead} = $buf_len ;    
-    *$self->{TotalInflatedBytesRead} += $buf_len ;    
+    *$self->{HeaderPending} = $buffer ;
+    *$self->{InflatedBytesRead} = $buf_len ;
+    *$self->{TotalInflatedBytesRead} += $buf_len ;
     *$self->{Type} = 'rfc1951';
 
     $self->saveStatus(STATUS_OK);
@@ -229,7 +229,7 @@ sub inflateSync
                 return $self->saveErrorString(0, "unexpected end of file", STATUS_ERROR);
             }
         }
-        
+
         $status = *$self->{Uncomp}->sync($temp_buf) ;
 
         if ($status == STATUS_OK)
@@ -251,23 +251,23 @@ sub inflateSync
 #    my $status ;
 #    my $end_offset = 0;
 #
-#    $status = $self->scan() 
+#    $status = $self->scan()
 #    #or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $self->errorNo) ;
 #        or return $self->saveErrorString(G_ERR, "Error Scanning: $status")
 #
-#    $status = $self->zap($end_offset) 
+#    $status = $self->zap($end_offset)
 #        or return $self->saveErrorString(G_ERR, "Error Zapping: $status");
 #    #or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $self->errorNo) ;
 #
 #    #(*$obj->{Deflate}, $status) = $inf->createDeflate();
 #
 ##    *$obj->{Header} = *$inf->{Info}{Header};
-##    *$obj->{UnCompSize_32bit} = 
+##    *$obj->{UnCompSize_32bit} =
 ##        *$obj->{BytesWritten} = *$inf->{UnCompSize_32bit} ;
 ##    *$obj->{CompSize_32bit} = *$inf->{CompSize_32bit} ;
 #
 #
-##    if ( $outType eq 'buffer') 
+##    if ( $outType eq 'buffer')
 ##      { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
 ##    elsif ($outType eq 'handle' || $outType eq 'filename') {
 ##        *$self->{FH} = *$inf->{FH} ;
@@ -275,11 +275,11 @@ sub inflateSync
 ##        *$obj->{FH}->flush() ;
 ##        *$obj->{Handle} = 1 if $outType eq 'handle';
 ##
-##        #seek(*$obj->{FH}, $end_offset, SEEK_SET) 
-##        *$obj->{FH}->seek($end_offset, SEEK_SET) 
+##        #seek(*$obj->{FH}, $end_offset, SEEK_SET)
+##        *$obj->{FH}->seek($end_offset, SEEK_SET)
 ##            or return $obj->saveErrorString(undef, $!, $!) ;
 ##    }
-#    
+#
 #}
 
 sub scan
@@ -292,7 +292,7 @@ sub scan
     my $buffer = '' ;
     my $len = 0;
 
-    $len = $self->_raw_read(\$buffer, 1) 
+    $len = $self->_raw_read(\$buffer, 1)
         while ! *$self->{EndStream} && $len >= 0 ;
 
     #return $len if $len < 0 ? $len : 0 ;
@@ -310,16 +310,16 @@ sub zap
     #printf "# block_offset $block_offset %x\n", $block_offset;
     my $byte ;
     ( $self->smartSeek($block_offset) &&
-      $self->smartRead(\$byte, 1) ) 
-        or return $self->saveErrorString(0, $!, $!); 
+      $self->smartRead(\$byte, 1) )
+        or return $self->saveErrorString(0, $!, $!);
 
     #printf "#byte is %x\n", unpack('C*',$byte);
     *$self->{Uncomp}->resetLastBlockByte($byte);
     #printf "#to byte is %x\n", unpack('C*',$byte);
 
-    ( $self->smartSeek($block_offset) && 
+    ( $self->smartSeek($block_offset) &&
       $self->smartWrite($byte) )
-        or return $self->saveErrorString(0, $!, $!); 
+        or return $self->saveErrorString(0, $!, $!);
 
     #$self->smartSeek($end_offset, 1);
 
@@ -335,12 +335,12 @@ sub createDeflate
                                     -CRC32      => *$self->{Params}->getValue('crc32'),
                                     -ADLER32    => *$self->{Params}->getValue('adler32'),
                                 );
-    
-    return wantarray ? ($status, $def) : $def ;                                
+
+    return wantarray ? ($status, $def) : $def ;
 }
 
 
-1; 
+1;
 
 __END__
 
@@ -356,7 +356,7 @@ IO::Uncompress::RawInflate - Read RFC 1951 files/buffers
     my $status = rawinflate $input => $output [,OPTS]
         or die "rawinflate failed: $RawInflateError\n";
 
-    my $z = new IO::Uncompress::RawInflate $input [OPTS]
+    my $z = IO::Uncompress::RawInflate->new( $input [OPTS] )
         or die "rawinflate failed: $RawInflateError\n";
 
     $status = $z->read($buffer)
@@ -646,7 +646,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.1951"
+    my $input = IO::File->new( "<file1.txt.1951" )
         or die "Cannot open 'file1.txt.1951': $!\n" ;
     my $buffer ;
     rawinflate $input => \$buffer
@@ -681,7 +681,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::RawInflate is shown below
 
-    my $z = new IO::Uncompress::RawInflate $input [OPTS]
+    my $z = IO::Uncompress::RawInflate->new( $input [OPTS] )
         or die "IO::Uncompress::RawInflate failed: $RawInflateError\n";
 
 Returns an C<IO::Uncompress::RawInflate> object on success and undef on failure.
@@ -1122,8 +1122,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 24cd66e..55eb89e 100644 (file)
@@ -9,14 +9,14 @@ use warnings;
 use bytes;
 
 use IO::File;
-use IO::Uncompress::RawInflate  2.096 ;
-use IO::Compress::Base::Common  2.096 qw(:Status );
-use IO::Uncompress::Adapter::Inflate  2.096 ;
-use IO::Uncompress::Adapter::Identity 2.096 ;
-use IO::Compress::Zlib::Extra 2.096 ;
-use IO::Compress::Zip::Constants 2.096 ;
+use IO::Uncompress::RawInflate  2.100 ;
+use IO::Compress::Base::Common  2.100 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.100 ;
+use IO::Uncompress::Adapter::Identity 2.100 ;
+use IO::Compress::Zlib::Extra 2.100 ;
+use IO::Compress::Zip::Constants 2.100 ;
 
-use Compress::Raw::Zlib  2.096 () ;
+use Compress::Raw::Zlib  2.100 () ;
 
 BEGIN
 {
@@ -24,13 +24,13 @@ BEGIN
    local $SIG{__DIE__};
 
     eval{ require IO::Uncompress::Adapter::Bunzip2 ;
-          import  IO::Uncompress::Adapter::Bunzip2 } ;
+          IO::Uncompress::Adapter::Bunzip2->import() } ;
     eval{ require IO::Uncompress::Adapter::UnLzma ;
-          import  IO::Uncompress::Adapter::UnLzma } ;
+          IO::Uncompress::Adapter::UnLzma->import() } ;
     eval{ require IO::Uncompress::Adapter::UnXz ;
-          import  IO::Uncompress::Adapter::UnXz } ;
+          IO::Uncompress::Adapter::UnXz->import() } ;
     eval{ require IO::Uncompress::Adapter::UnZstd ;
-          import  IO::Uncompress::Adapter::UnZstd } ;
+          IO::Uncompress::Adapter::UnZstd->import() } ;
 }
 
 
@@ -38,7 +38,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.096';
+$VERSION = '2.100';
 $UnzipError = '';
 
 @ISA    = qw(IO::Uncompress::RawInflate Exporter);
@@ -932,7 +932,7 @@ sub scanCentralDirectory
 
         $self->skip($filename_length ) ;
 
-        my $v64 = new U64 $compressedLength ;
+        my $v64 = U64->new( $compressedLength );
 
         if (U64::full32 $compressedLength ) {
             $self->smartReadExact(\$buffer, $extra_length) ;
@@ -1093,7 +1093,7 @@ IO::Uncompress::Unzip - Read zip files/buffers
     my $status = unzip $input => $output [,OPTS]
         or die "unzip failed: $UnzipError\n";
 
-    my $z = new IO::Uncompress::Unzip $input [OPTS]
+    my $z = IO::Uncompress::Unzip->new( $input [OPTS] )
         or die "unzip failed: $UnzipError\n";
 
     $status = $z->read($buffer)
@@ -1445,7 +1445,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.zip"
+    my $input = IO::File->new( "<file1.zip" )
         or die "Cannot open 'file1.zip': $!\n" ;
     my $buffer ;
     unzip $input => \$buffer
@@ -1457,7 +1457,7 @@ uncompressed data to a buffer, C<$buffer>.
 
 The format of the constructor for IO::Uncompress::Unzip is shown below
 
-    my $z = new IO::Uncompress::Unzip $input [OPTS]
+    my $z = IO::Uncompress::Unzip->new( $input [OPTS] )
         or die "IO::Uncompress::Unzip failed: $UnzipError\n";
 
 Returns an C<IO::Uncompress::Unzip> object on success and undef on failure.
@@ -1890,7 +1890,7 @@ stream at a time.
     use IO::Uncompress::Unzip qw($UnzipError);
 
     my $zipfile = "somefile.zip";
-    my $u = new IO::Uncompress::Unzip $zipfile
+    my $u = IO::Uncompress::Unzip->new( $zipfile )
         or die "Cannot open $zipfile: $UnzipError";
 
     my $status;
@@ -1965,8 +1965,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2020 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-
index 12fa26f..aa540c6 100644 (file)
@@ -42,14 +42,14 @@ sub MY::libscan
     return $path;
 }
 
-sub MY::postamble 
+sub MY::postamble
 {
     return ''
         if $ENV{PERL_CORE} ;
 
     my @files = getPerlFiles('MANIFEST');
 
-    # Note: Once you remove all the layers of shell/makefile escaping 
+    # Note: Once you remove all the layers of shell/makefile escaping
     # the regular expression below reads
     #
     #    /^\s*local\s*\(\s*\$^W\s*\)/
@@ -215,7 +215,7 @@ sub UpDowngrade
     foreach (@files) {
         #if (-l $_ )
           { doUpDown($our_sub, $warn_sub, $_) }
-          #else  
+          #else
           #{ doUpDownViaCopy($our_sub, $warn_sub, $_) }
     }
 
@@ -234,7 +234,7 @@ sub doUpDown
 
     local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
     local (@ARGV) = shift;
+
     while (<>)
     {
         print, last if /^__(END|DATA)__/ ;
@@ -277,7 +277,7 @@ sub doUpDownViaCopy
                 push @keep, $_;
                 last ;
             }
-            
+
             &{ $our_sub }() if $our_sub ;
             &{ $warn_sub }() if $warn_sub ;
             push @keep, $_;
@@ -334,7 +334,7 @@ sub FindBrokenDependencies
 
                     Compress::Zlib
                     );
-    
+
     my @broken = ();
 
     foreach my $module ( grep { ! $thisModule{$_} } @modules)
@@ -342,12 +342,12 @@ sub FindBrokenDependencies
         my $hasVersion = getInstalledVersion($module);
 
         # No need to upgrade if the module isn't installed at all
-        next 
+        next
             if ! defined $hasVersion;
 
         # If already have C::Z version 1, then an upgrade to any of the
         # IO::Compress modules will not break it.
-        next 
+        next
             if $module eq 'Compress::Zlib' && $hasVersion < 2;
 
         if ($hasVersion < $version)
@@ -370,14 +370,12 @@ sub getInstalledVersion
     {
         no strict 'refs';
         $version = ${ $module . "::VERSION" };
-        $version = 0 
+        $version = 0
     }
-    
+
     return $version;
 }
 
 package MakeUtil ;
 
 1;
-
-
index 205e032..f657083 100644 (file)
@@ -25,7 +25,7 @@ BEGIN
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
 
-    my $VERSION = '2.096';
+    my $VERSION = '2.100';
     my @NAMES = qw(
                        Compress::Raw::Bzip2
                        Compress::Raw::Zlib
@@ -60,7 +60,7 @@ BEGIN
 
                        );
 
-    my @OPT = qw(                      
+    my @OPT = qw(
                        );
 
     plan tests => 1 + 2 + @NAMES + @OPT + $extra ;
@@ -76,21 +76,21 @@ BEGIN
         eval " require $name " ;
         if ($@)
         {
-            ok 1, "$name not available" 
+            ok 1, "$name not available"
         }
-        else  
+        else
         {
             my $ver = eval("\$${name}::VERSION");
-            is $ver, $VERSION, "$name version should be $VERSION" 
+            is $ver, $VERSION, "$name version should be $VERSION"
                 or diag "$name version is $ver, need $VERSION" ;
-        }         
+        }
     }
 
     # need zlib 1.2.0 or better
-    
+
     cmp_ok Compress::Raw::Zlib::ZLIB_VERNUM(), ">=", 0x1200
-        or diag "IO::Compress needs zlib 1.2.0 or better, you have " . Compress::Raw::Zlib::zlib_version(); 
-    
+        or diag "IO::Compress needs zlib 1.2.0 or better, you have " . Compress::Raw::Zlib::zlib_version();
+
     use_ok('Scalar::Util') ;
 
 }
@@ -99,4 +99,3 @@ ok gotScalarUtilXS(), "Got XS Version of Scalar::Util"
     or diag <<EOM;
 You don't have the XS version of Scalar::Util
 EOM
-
index 40b9bcc..cb4fa99 100644 (file)
@@ -14,8 +14,8 @@ use bytes;
 use Test::More ;
 use CompTestUtils;
 
-BEGIN 
-{ 
+BEGIN
+{
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
@@ -40,10 +40,10 @@ sub myBZreadFile
     my $init = shift ;
 
 
-    my $fil = new $UncompressClass $filename,
+    my $fil = $UncompressClass->can('new')->( $UncompressClass, $filename,
                                     -Strict   => 1,
                                     -Append   => 1
-                                    ;
+                                    );
 
     my $data = '';
     $data = $init if defined $init ;
@@ -66,7 +66,7 @@ sub myBZreadFile
         title "BlockSize100K => $stringValue";
         my $err = "Parameter 'BlockSize100K' must be an unsigned int, got '$stringValue'";
         my $bz ;
-        eval { $bz = new IO::Compress::Bzip2(\$buffer, BlockSize100K => $value) };
+        eval { $bz = IO::Compress::Bzip2->new(\$buffer, BlockSize100K => $value) };
         like $@,  mkErr("IO::Compress::Bzip2: $err"),
             "  value $stringValue is bad";
         is $Bzip2Error, "IO::Compress::Bzip2: $err",
@@ -80,7 +80,7 @@ sub myBZreadFile
         title "BlockSize100K => $stringValue";
         my $err = "Parameter 'BlockSize100K' not between 1 and 9, got $stringValue";
         my $bz ;
-        eval { $bz = new IO::Compress::Bzip2(\$buffer, BlockSize100K => $value) };
+        eval { $bz = IO::Compress::Bzip2->new(\$buffer, BlockSize100K => $value) };
         like $@,  mkErr("IO::Compress::Bzip2: $err"),
             "  value $stringValue is bad";
         is $Bzip2Error,  "IO::Compress::Bzip2: $err",
@@ -94,7 +94,7 @@ sub myBZreadFile
         title "WorkFactor => $stringValue";
         my $err = "Parameter 'WorkFactor' must be an unsigned int, got '$stringValue'";
         my $bz ;
-        eval { $bz = new IO::Compress::Bzip2(\$buffer, WorkFactor => $value) };
+        eval { $bz = IO::Compress::Bzip2->new(\$buffer, WorkFactor => $value) };
         like $@,  mkErr("IO::Compress::Bzip2: $err"),
             "  value $stringValue is bad";
         is $Bzip2Error, "IO::Compress::Bzip2: $err",
@@ -108,7 +108,7 @@ sub myBZreadFile
         title "WorkFactor => $stringValue";
         my $err = "Parameter 'WorkFactor' not between 0 and 250, got $stringValue";
         my $bz ;
-        eval { $bz = new IO::Compress::Bzip2(\$buffer, WorkFactor => $value) };
+        eval { $bz = IO::Compress::Bzip2->new(\$buffer, WorkFactor => $value) };
         like $@,  mkErr("IO::Compress::Bzip2: $err"),
             "  value $stringValue is bad";
         is $Bzip2Error,  "IO::Compress::Bzip2: $err",
@@ -130,7 +130,7 @@ sub myBZreadFile
         title "Small => $stringValue";
         my $err = "Parameter 'Small' must be an int, got '$stringValue'";
         my $bz ;
-        eval { $bz = new IO::Uncompress::Bunzip2(\$buffer, Small => $value) };
+        eval { $bz = IO::Uncompress::Bunzip2->new(\$buffer, Small => $value) };
         like $@,  mkErr("IO::Uncompress::Bunzip2: $err"),
             "  value $stringValue is bad";
         is $Bunzip2Error, "IO::Uncompress::Bunzip2: $err",
@@ -151,9 +151,9 @@ EOM
     for my $value ( 1 .. 9 )
     {
         title "$CompressClass - BlockSize100K => $value";
-        my $lex = new LexFile my $name ;
+        my $lex = LexFile->new( my $name );
         my $bz ;
-        $bz = new IO::Compress::Bzip2($name, BlockSize100K => $value)
+        $bz = IO::Compress::Bzip2->new($name, BlockSize100K => $value)
             or diag $IO::Compress::Bzip2::Bzip2Error ;
         ok $bz, "  bz object ok";
         $bz->write($hello);
@@ -165,9 +165,9 @@ EOM
     for my $value ( 0 .. 250 )
     {
         title "$CompressClass - WorkFactor => $value";
-        my $lex = new LexFile my $name ;
+        my $lex = LexFile->new( my $name );
         my $bz ;
-        $bz = new IO::Compress::Bzip2($name, WorkFactor => $value);
+        $bz = IO::Compress::Bzip2->new($name, WorkFactor => $value);
         ok $bz, "  bz object ok";
         $bz->write($hello);
         $bz->close($hello);
@@ -178,16 +178,16 @@ EOM
     for my $value ( 0 .. 1 )
     {
         title "$UncompressClass - Small => $value";
-        my $lex = new LexFile my $name ;
+        my $lex = LexFile->new( my $name );
         my $bz ;
-        $bz = new IO::Compress::Bzip2($name);
+        $bz = IO::Compress::Bzip2->new($name);
         ok $bz, "  bz object ok";
         $bz->write($hello);
         $bz->close($hello);
 
-        my $fil = new $UncompressClass $name,
+        my $fil = $UncompressClass->can('new')->( $UncompressClass, $name,
                                        Append  => 1,
-                                       Small   => $value ;
+                                       Small   => $value );
 
         my $data = '';
         1 while $fil->read($data) > 0;
@@ -200,7 +200,3 @@ EOM
 
 
 1;
-
-
-
-
index bb26bbc..bb32392 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
 }
 
 use lib qw(t t/compress);
+
 use strict;
 use warnings;
 use bytes;
@@ -38,7 +38,7 @@ EOM
     {
         title "AnyInflate with Non-compressed data (File $file)" ;
 
-        my $lex = new LexFile my $output;
+        my $lex = LexFile->new( my $output );
         my $input ;
 
         if ($file) {
@@ -52,12 +52,12 @@ EOM
 
         my $unc ;
         my $keep = $buffer ;
-        $unc = new IO::Uncompress::AnyInflate $input, -Transparent => 0 ;
+        $unc = IO::Uncompress::AnyInflate->new( $input, -Transparent => 0 );
         ok ! $unc,"  no AnyInflate object when -Transparent => 0" ;
         is $buffer, $keep ;
 
         $buffer = $keep ;
-        $unc = new IO::Uncompress::AnyInflate \$buffer, -Transparent => 1 ;
+        $unc = IO::Uncompress::AnyInflate->new( \$buffer, -Transparent => 1 );
         ok $unc, "  AnyInflate object when -Transparent => 1"  ;
 
         my $uncomp ;
index 27a9013..0ed4099 100644 (file)
@@ -37,7 +37,7 @@ BEGIN {
 
 my $ThisOS_code = $Compress::Raw::Zlib::gzip_os_code;
 
-my $lex = new LexFile my $name ;
+my $lex = LexFile->new( my $name );
 
 {
     title "Check Defaults";
@@ -63,12 +63,12 @@ my $lex = new LexFile my $name ;
     title "Check name can be different from filename" ;
     # Check Name can be different from filename
     # Comment and Extra can be set
-    # Can specify a zero Time 
+    # Can specify a zero Time
 
     my $comment = "This is a Comment" ;
     my $extra = "A little something extra" ;
     my $aname = "a new name" ;
-    my $hdr = readHeaderInfo $name, 
+    my $hdr = readHeaderInfo $name,
                                      -Strict     => 0,
                                      -Name       => $aname,
                                  -Comment    => $comment,
@@ -92,7 +92,7 @@ my $lex = new LexFile my $name ;
     # Check Time defaults to now
     # and that can have empty name, comment and extrafield
     my $before = time ;
-    my $hdr = readHeaderInfo $name, 
+    my $hdr = readHeaderInfo $name,
                          -TextFlag   => 1,
                          -Name       => "",
                      -Comment    => "",
@@ -121,7 +121,7 @@ my $lex = new LexFile my $name ;
     title "can have null extrafield" ;
 
     my $before = time ;
-    my $hdr = readHeaderInfo $name, 
+    my $hdr = readHeaderInfo $name,
                                      -strict     => 0,
                              -Name       => "a",
                              -Comment    => "b",
@@ -144,7 +144,7 @@ my $lex = new LexFile my $name ;
 {
     title "can have undef name, comment, time and extrafield" ;
 
-    my $hdr = readHeaderInfo $name, 
+    my $hdr = readHeaderInfo $name,
                          -Name       => undef,
                          -Comment    => undef,
                          -ExtraField => undef,
@@ -167,9 +167,9 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
 
     my $v = pack "h*", $value;
     my $comment = "my${v}comment$v";
-    my $hdr = readHeaderInfo $name, 
+    my $hdr = readHeaderInfo $name,
                     Time => 0,
-                  -TextFlag   => 1, 
+                  -TextFlag   => 1,
                   -Name       => "",
                   -Comment    => $comment,
                   -ExtraField => "";
@@ -249,14 +249,14 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
     for my $code ( -1, undef, '', 'fred' )
     {
         my $code_name = defined $code ? "'$code'" : "'undef'";
-        eval { new IO::Compress::Gzip $name, -OS_Code => $code } ;
+        eval { IO::Compress::Gzip->new( $name, -OS_Code => $code ) } ;
         like $@, mkErr("^IO::Compress::Gzip: Parameter 'OS_Code' must be an unsigned int, got $code_name"),
             " Trap OS Code $code_name";
     }
 
     for my $code ( qw( 256 ) )
     {
-        eval { ok ! new IO::Compress::Gzip($name, OS_Code => $code) };
+        eval { ok ! IO::Compress::Gzip->new($name, OS_Code => $code) };
         like $@, mkErr("OS_Code must be between 0 and 255, got '$code'"),
             " Trap OS Code $code";
         like $GzipError, "/OS_Code must be between 0 and 255, got '$code'/",
@@ -285,34 +285,34 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
         [1, ['Xx' => '','AB' => 'Fred']    => [['Xx' => ''],['AB'=>'Fred']] ],
         [1, ['Xx' => '','Xx' => 'Fred']    => [['Xx' => ''],['Xx'=>'Fred']] ],
         [1, ['Xx' => '',
-             'Xx' => 'Fred', 
+             'Xx' => 'Fred',
              'Xx' => 'Fred']               => [['Xx' => ''],['Xx'=>'Fred'],
                                                ['Xx'=>'Fred']] ],
         [1, [ ['Xx' => 'a'],
               ['AB' => 'Fred'] ]           => [['Xx' => 'a'],['AB'=>'Fred']] ],
-        [0, {'AB' => 'Fred', 
-             'Pq' => 'r', 
+        [0, {'AB' => 'Fred',
+             'Pq' => 'r',
              "\x01\x02" => "\x03"}         => [['AB'=>'Fred'],
-                                               ['Pq'=>'r'], 
+                                               ['Pq'=>'r'],
                                                ["\x01\x02"=>"\x03"]] ],
-        [1, ['AB' => 'z' x GZIP_FEXTRA_SUBFIELD_MAX_SIZE] => 
+        [1, ['AB' => 'z' x GZIP_FEXTRA_SUBFIELD_MAX_SIZE] =>
                             [['AB'=>'z' x GZIP_FEXTRA_SUBFIELD_MAX_SIZE]] ],
                 );
 
     foreach my $test (@tests) {
         my ($order, $input, $result) = @$test ;
-        ok my $x = new IO::Compress::Gzip $name,
+        ok my $x = IO::Compress::Gzip->new( $name,
                                 -ExtraField  => $input,
-                                -HeaderCRC   => 1
+                                -HeaderCRC   => 1 )
             or diag "GzipError is $GzipError" ;                            ;
         my $string = "abcd" ;
         ok $x->write($string) ;
         ok $x->close ;
         #is GZreadFile($name), $string ;
 
-        ok $x = new IO::Uncompress::Gunzip $name,
+        ok $x = IO::Uncompress::Gunzip->new( $name,
                               #-Strict     => 1,
-                               -ParseExtra => 1
+                               -ParseExtra => 1 )
             or diag "GunzipError is $GunzipError" ;                            ;
         my $hdr = $x->getHeaderInfo();
         ok $hdr;
@@ -331,7 +331,7 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
             eq_array $extra, $result;
         } else {
             eq_set $extra, $result;
-        } 
+        }
     }
 
 }
@@ -351,7 +351,7 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
             [ [ ['ab'=>'x'],{"a" => "fred"} ] => "Not list of lists"],
             [ [ ["aa"] ]          => "SubField must have two parts"],
             [ [ ["aa", "b", "c"] ] => "SubField must have two parts"],
-            [ [ ["ab" => 'x' x (GZIP_FEXTRA_SUBFIELD_MAX_SIZE + 1) ] ] 
+            [ [ ["ab" => 'x' x (GZIP_FEXTRA_SUBFIELD_MAX_SIZE + 1) ] ]
                                    => "SubField Data too long"],
 
             [ { 'abc', 1 }        => "SubField ID not two chars long"],
@@ -359,15 +359,15 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
             [ { "ab", \1 }     => "SubField Data is a reference"],
         );
 
-    
+
 
     foreach my $test (@tests) {
         my ($input, $string) = @$test ;
         my $buffer ;
         my $x ;
-        eval { $x = new IO::Compress::Gzip \$buffer, -ExtraField  => $input; };
-        like $@, mkErr("$prefix$string");  
-        like $GzipError, "/$prefix$string/";  
+        eval { $x = IO::Compress::Gzip->new( \$buffer, -ExtraField  => $input ); };
+        like $@, mkErr("$prefix$string");
+        like $GzipError, "/$prefix$string/";
         ok ! $x ;
 
     }
@@ -378,19 +378,19 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
     # Corrupt ExtraField
 
     my @tests = (
-        ["Sub-field truncated",           
+        ["Sub-field truncated",
             "Error with ExtraField Parameter: Truncated in FEXTRA Body Section",
             "Header Error: Truncated in FEXTRA Body Section",
             ['a', undef, undef]              ],
-        ["Length of field incorrect",     
+        ["Length of field incorrect",
             "Error with ExtraField Parameter: Truncated in FEXTRA Body Section",
             "Header Error: Truncated in FEXTRA Body Section",
             ["ab", 255, "abc"]               ],
-        ["Length of 2nd field incorrect", 
+        ["Length of 2nd field incorrect",
             "Error with ExtraField Parameter: Truncated in FEXTRA Body Section",
             "Header Error: Truncated in FEXTRA Body Section",
             ["ab", 3, "abc"], ["de", 7, "x"] ],
-        ["Length of 2nd field incorrect", 
+        ["Length of 2nd field incorrect",
             "Error with ExtraField Parameter: SubField ID 2nd byte is 0x00",
             "Header Error: SubField ID 2nd byte is 0x00",
             ["a\x00", 3, "abc"], ["de", 7, "x"] ],
@@ -418,31 +418,31 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
 
         my $buffer ;
         my $x ;
-        eval {$x = new IO::Compress::Gzip \$buffer, -ExtraField  => $input, Strict => 1; };
-        like $@, mkErr("$gzip_error"), "  $name";  
-        like $GzipError, "/$gzip_error/", "  $name";  
+        eval {$x = IO::Compress::Gzip->new( \$buffer, -ExtraField  => $input, Strict => 1 ); };
+        like $@, mkErr("$gzip_error"), "  $name";
+        like $GzipError, "/$gzip_error/", "  $name";
 
         ok ! $x, "  IO::Compress::Gzip fails";
-        like $GzipError, "/$gzip_error/", "  $name";  
+        like $GzipError, "/$gzip_error/", "  $name";
 
-        foreach my $check (0, 1)    
+        foreach my $check (0, 1)
         {
-            ok $x = new IO::Compress::Gzip \$buffer, 
-                                           ExtraField => $input, 
-                                           Strict     => 0
+            ok $x = IO::Compress::Gzip->new( \$buffer,
+                                           ExtraField => $input,
+                                           Strict     => 0 )
                 or diag "GzipError is $GzipError" ;
             my $string = "abcd" ;
             $x->write($string) ;
             $x->close ;
             is anyUncompress(\$buffer), $string ;
 
-            $x = new IO::Uncompress::Gunzip \$buffer, 
+            $x = IO::Uncompress::Gunzip->new( \$buffer,
                                        Strict      => 0,
                                        Transparent => 0,
-                                       ParseExtra  => $check;
+                                       ParseExtra  => $check );
             if ($check) {
                 ok ! $x ;
-                like $GunzipError, "/^$gunzip_error/";  
+                like $GunzipError, "/^$gunzip_error/";
             }
             else {
                 ok $x ;
@@ -456,13 +456,13 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
 {
     title 'Check Minimal';
 
-    ok my $x = new IO::Compress::Gzip $name, -Minimal => 1;
+    ok my $x = IO::Compress::Gzip->new( $name, -Minimal => 1 );
     my $string = "abcd" ;
     ok $x->write($string) ;
     ok $x->close ;
     #is GZreadFile($name), $string ;
 
-    ok $x = new IO::Uncompress::Gunzip $name  ;
+    ok $x = IO::Uncompress::Gunzip->new( $name );
     my $hdr = $x->getHeaderInfo();
     ok $hdr;
     ok $hdr->{Time} == 0;
@@ -482,11 +482,11 @@ for my $value ( "0D", "0A", "0A0D", "0D0A", "0A0A", "0D0D")
     title "Check Minimal + no compressed data";
     # This is the smallest possible gzip file (20 bytes)
 
-    ok my $x = new IO::Compress::Gzip $name, -Minimal => 1;
+    ok my $x = IO::Compress::Gzip->new( $name, -Minimal => 1 );
     isa_ok $x, "IO::Compress::Gzip";
     ok $x->close, "closed" ;
 
-    ok $x = new IO::Uncompress::Gunzip $name, -Append => 0 ;
+    ok $x = IO::Uncompress::Gunzip->new( $name, -Append => 0 );
     isa_ok $x, "IO::Uncompress::Gunzip";
     my $data ;
     my $status  = 1;
@@ -528,7 +528,7 @@ some text
 EOM
 
     my $good = '';
-    ok my $x = new IO::Compress::Gzip \$good, -HeaderCRC => 1 ;
+    ok my $x = IO::Compress::Gzip->new( \$good, -HeaderCRC => 1 );
     ok $x->write($string) ;
     ok $x->close ;
 
@@ -537,7 +537,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 0, 1) = 'x' ;
 
-        ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0  ;
+        ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
         ok $GunzipError =~ /Header Error: Bad Magic/;
     }
 
@@ -546,7 +546,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 1, 1) = "\xFF" ;
 
-        ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0  ;
+        ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
         ok $GunzipError =~ /Header Error: Bad Magic/;
         #print "$GunzipError\n";
     }
@@ -556,7 +556,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 2, 1) = 'x' ;
 
-        ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0  ;
+        ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
         like $GunzipError, '/Header Error: Not Deflate \(CM is \d+\)/';
     }
 
@@ -565,7 +565,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 3, 1) = "\xff";
 
-        ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0  ;
+        ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0 );
         like $GunzipError, '/Header Error: Use of Reserved Bits in FLG field./';
     }
 
@@ -574,7 +574,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 10, 1) = chr((ord(substr($buffer, 10, 1)) + 1) & 0xFF);
 
-        ok ! new IO::Uncompress::Gunzip \$buffer, -Transparent => 0, Strict => 1
+        ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0, Strict => 1 )
          or print "# $GunzipError\n";
         like $GunzipError, '/Header Error: CRC16 mismatch/'
             #or diag "buffer length " . length($buffer);
@@ -587,10 +587,10 @@ EOM
     my $x ;
     my $store = "x" x GZIP_FEXTRA_MAX_SIZE ;
     {
-        my $z = new IO::Compress::Gzip(\$x, ExtraField => $store, Strict => 0) ;
+        my $z = IO::Compress::Gzip->new(\$x, ExtraField => $store, Strict => 0) ;
         ok $z,  "Created IO::Compress::Gzip object" ;
     }
-    my $gunz = new IO::Uncompress::Gunzip \$x, Strict => 0;
+    my $gunz = IO::Uncompress::Gunzip->new( \$x, Strict => 0 );
     ok $gunz, "Created IO::Uncompress::Gunzip object" ;
     my $hdr = $gunz->getHeaderInfo();
     ok $hdr;
@@ -601,7 +601,7 @@ EOM
 {
     title "Header Corruption - ExtraField too big";
     my $x;
-    eval { new IO::Compress::Gzip(\$x, -ExtraField => "x" x (GZIP_FEXTRA_MAX_SIZE + 1)) ;};
+    eval { IO::Compress::Gzip->new(\$x, -ExtraField => "x" x (GZIP_FEXTRA_MAX_SIZE + 1)) ;};
     like $@, mkErr('Error with ExtraField Parameter: Too Large');
     like $GzipError, '/Error with ExtraField Parameter: Too Large/';
 }
@@ -610,24 +610,24 @@ EOM
     title "Header Corruption - Create Name with Illegal Chars";
 
     my $x;
-    eval { new IO::Compress::Gzip \$x, -Name => "fred\x02" };
+    eval { IO::Compress::Gzip->new( \$x, -Name => "fred\x02" ) };
     like $@, mkErr('Non ISO 8859-1 Character found in Name');
     like $GzipError, '/Non ISO 8859-1 Character found in Name/';
 
-    ok  my $gz = new IO::Compress::Gzip \$x,
+    ok  my $gz = IO::Compress::Gzip->new( \$x,
                                      -Strict => 0,
-                                     -Name => "fred\x02" ;
-    ok $gz->close();                          
+                                     -Name => "fred\x02" );
+    ok $gz->close();
 
-    ok ! new IO::Uncompress::Gunzip \$x,
+    ok ! IO::Uncompress::Gunzip->new( \$x,
                         -Transparent => 0,
-                        -Strict => 1;
+                        -Strict => 1 );
 
-    like $GunzipError, '/Header Error: Non ISO 8859-1 Character found in Name/';                    
-    ok my $gunzip = new IO::Uncompress::Gunzip \$x,
-                                   -Strict => 0;
+    like $GunzipError, '/Header Error: Non ISO 8859-1 Character found in Name/';
+    ok my $gunzip = IO::Uncompress::Gunzip->new( \$x,
+                                   -Strict => 0 );
 
-    my $hdr = $gunzip->getHeaderInfo() ;                  
+    my $hdr = $gunzip->getHeaderInfo() ;
 
     is $hdr->{Name}, "fred\x02";
 
@@ -636,47 +636,47 @@ EOM
 {
     title "Header Corruption - Null Chars in Name";
     my $x;
-    eval { new IO::Compress::Gzip \$x, -Name => "\x00" };
+    eval { IO::Compress::Gzip->new( \$x, -Name => "\x00" ) };
     like $@, mkErr('Null Character found in Name');
     like $GzipError, '/Null Character found in Name/';
 
-    eval { new IO::Compress::Gzip \$x, -Name => "abc\x00" };
+    eval { IO::Compress::Gzip->new( \$x, -Name => "abc\x00" ) };
     like $@, mkErr('Null Character found in Name');
     like $GzipError, '/Null Character found in Name/';
 
-    ok my $gz = new IO::Compress::Gzip \$x,
+    ok my $gz = IO::Compress::Gzip->new( \$x,
                                     -Strict  => 0,
-                                    -Name => "abc\x00de" ;
-    ok $gz->close() ;                             
-    ok my $gunzip = new IO::Uncompress::Gunzip \$x,
-                                   -Strict => 0;
+                                    -Name => "abc\x00de" );
+    ok $gz->close() ;
+    ok my $gunzip = IO::Uncompress::Gunzip->new( \$x,
+                                   -Strict => 0 );
 
-    my $hdr = $gunzip->getHeaderInfo() ;                  
+    my $hdr = $gunzip->getHeaderInfo() ;
 
     is $hdr->{Name}, "abc";
-    
+
 }
 
 {
     title "Header Corruption - Create Comment with Illegal Chars";
 
     my $x;
-    eval { new IO::Compress::Gzip \$x, -Comment => "fred\x02" };
+    eval { IO::Compress::Gzip->new( \$x, -Comment => "fred\x02" ) };
     like $@, mkErr('Non ISO 8859-1 Character found in Comment');
     like $GzipError, '/Non ISO 8859-1 Character found in Comment/';
 
-    ok  my $gz = new IO::Compress::Gzip \$x,
+    ok  my $gz = IO::Compress::Gzip->new( \$x,
                                      -Strict => 0,
-                                     -Comment => "fred\x02" ;
-    ok $gz->close();                          
+                                     -Comment => "fred\x02" );
+    ok $gz->close();
 
-    ok ! new IO::Uncompress::Gunzip \$x, Strict => 1,
-                        -Transparent => 0;
+    ok ! IO::Uncompress::Gunzip->new( \$x, Strict => 1,
+                        -Transparent => 0 );
 
     like $GunzipError, '/Header Error: Non ISO 8859-1 Character found in Comment/';
-    ok my $gunzip = new IO::Uncompress::Gunzip \$x, Strict => 0;
+    ok my $gunzip = IO::Uncompress::Gunzip->new( \$x, Strict => 0 );
 
-    my $hdr = $gunzip->getHeaderInfo() ;                  
+    my $hdr = $gunzip->getHeaderInfo() ;
 
     is $hdr->{Comment}, "fred\x02";
 
@@ -685,25 +685,25 @@ EOM
 {
     title "Header Corruption - Null Char in Comment";
     my $x;
-    eval { new IO::Compress::Gzip \$x, -Comment => "\x00" };
+    eval { IO::Compress::Gzip->new( \$x, -Comment => "\x00" ) };
     like $@, mkErr('Null Character found in Comment');
     like $GzipError, '/Null Character found in Comment/';
 
-    eval { new IO::Compress::Gzip \$x, -Comment => "abc\x00" } ;
+    eval { IO::Compress::Gzip->new( \$x, -Comment => "abc\x00" ) } ;
     like $@, mkErr('Null Character found in Comment');
     like $GzipError, '/Null Character found in Comment/';
 
-    ok my $gz = new IO::Compress::Gzip \$x,
+    ok my $gz = IO::Compress::Gzip->new( \$x,
                                     -Strict  => 0,
-                                    -Comment => "abc\x00de" ;
-    ok $gz->close() ;                             
-    ok my $gunzip = new IO::Uncompress::Gunzip \$x,
-                                   -Strict => 0;
+                                    -Comment => "abc\x00de" );
+    ok $gz->close() ;
+    ok my $gunzip = IO::Uncompress::Gunzip->new( \$x,
+                                   -Strict => 0 );
 
-    my $hdr = $gunzip->getHeaderInfo() ;                  
+    my $hdr = $gunzip->getHeaderInfo() ;
 
     is $hdr->{Comment}, "abc";
-    
+
 }
 
 
@@ -715,18 +715,18 @@ some text
 EOM
 
     my $truncated ;
-    ok my $x = new IO::Compress::Gzip \$truncated, -HeaderCRC => 1, Strict => 0,
-                               -ExtraField => "hello" x 10  ;
+    ok my $x = IO::Compress::Gzip->new( \$truncated, -HeaderCRC => 1, Strict => 0,
+                               -ExtraField => "hello" x 10 );
     ok $x->write($string) ;
     ok $x->close ;
 
     substr($truncated, $index) = '' ;
-    #my $lex = new LexFile my $name ;
+    #my $lex = LexFile->new( my $name );
     #writeFile($name, $truncated) ;
 
-    #my $g = new IO::Uncompress::Gunzip $name, -Transparent => 0; 
-    my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0; 
-    ok ! $g 
+    #my $g = IO::Uncompress::Gunzip->new( $name, -Transparent => 0 );
+    my $g = IO::Uncompress::Gunzip->new( \$truncated, -Transparent => 0 );
+    ok ! $g
        or print "# $g\n" ;
 
     like($GunzipError, '/^Header Error: Truncated in FEXTRA/');
@@ -744,14 +744,14 @@ some text
 EOM
 
     my $truncated ;
-    ok my $x = new IO::Compress::Gzip \$truncated, -Name => $Name;
+    ok my $x = IO::Compress::Gzip->new( \$truncated, -Name => $Name );
     ok $x->write($string) ;
     ok $x->close ;
 
     substr($truncated, $index) = '' ;
 
-    my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0; 
-    ok ! $g 
+    my $g = IO::Uncompress::Gunzip->new( \$truncated, -Transparent => 0 );
+    ok ! $g
        or print "# $g\n" ;
 
     like $GunzipError, '/^Header Error: Truncated in FNAME Section/';
@@ -767,17 +767,17 @@ some text
 EOM
 
     my $truncated ;
-    ok my $x = new IO::Compress::Gzip \$truncated, -Comment => $Comment;
+    ok my $x = IO::Compress::Gzip->new( \$truncated, -Comment => $Comment );
     ok $x->write($string) ;
     ok $x->close ;
 
     substr($truncated, $index) = '' ;
-    #my $lex = new LexFile my $name ;
+    #my $lex = LexFile->new( my $name );
     #writeFile($name, $truncated) ;
 
-    #my $g = new IO::Uncompress::Gunzip $name, -Transparent => 0; 
-    my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0; 
-    ok ! $g 
+    #my $g = IO::Uncompress::Gunzip->new( $name, -Transparent => 0 );
+    my $g = IO::Uncompress::Gunzip->new( \$truncated, -Transparent => 0 );
+    ok ! $g
        or print "# $g\n" ;
 
     like $GunzipError, '/^Header Error: Truncated in FCOMMENT Section/';
@@ -792,17 +792,16 @@ some text
 EOM
 
     my $truncated ;
-    ok my $x = new IO::Compress::Gzip \$truncated, -HeaderCRC => 1;
+    ok my $x = IO::Compress::Gzip->new( \$truncated, -HeaderCRC => 1 );
     ok $x->write($string) ;
     ok $x->close ;
 
     substr($truncated, $index) = '' ;
-    my $lex = new LexFile my $name ;
+    my $lex = LexFile->new( my $name );
     writeFile($name, $truncated) ;
 
-    my $g = new IO::Uncompress::Gunzip $name, -Transparent => 0; 
-    #my $g = new IO::Uncompress::Gunzip \$truncated, -Transparent => 0; 
-    ok ! $g 
+    my $g = IO::Uncompress::Gunzip->new( $name, -Transparent => 0 );
+    ok ! $g
        or print "# $g\n" ;
 
     like $GunzipError, '/^Header Error: Truncated in FHCRC Section/';
@@ -820,19 +819,19 @@ EOM
 
     my $good ;
     {
-        ok my $x = new IO::Compress::Gzip \$good ;
+        ok my $x = IO::Compress::Gzip->new( \$good );
         ok $x->write($string) ;
         ok $x->close ;
     }
 
     writeFile($name, $good) ;
-    ok my $gunz = new IO::Uncompress::Gunzip $name, 
+    ok my $gunz = IO::Uncompress::Gunzip->new( $name,
                                        -Append   => 1,
-                                       -Strict   => 1;
+                                       -Strict   => 1 );
     my $uncomp ;
     1 while  $gunz->read($uncomp) > 0 ;
     ok $gunz->close() ;
-    ok $uncomp eq $string 
+    ok $uncomp eq $string
        or print "# got [$uncomp] wanted [$string]\n";;
 
     foreach my $trim (-8 .. -1)
@@ -848,7 +847,7 @@ EOM
 
         foreach my $strict (0, 1)
         {
-            ok my $gunz = new IO::Uncompress::Gunzip $name, Append => 1, -Strict   => $strict ;
+            ok my $gunz = IO::Uncompress::Gunzip->new( $name, Append => 1, -Strict   => $strict );
             my $uncomp ;
             my $status = 1;
             $status = $gunz->read($uncomp) while $status > 0;
@@ -860,7 +859,7 @@ EOM
             else
             {
                 is $status, 0, "status 0";
-                ok ! $GunzipError, "no error" 
+                ok ! $GunzipError, "no error"
                     or diag "$GunzipError";
                 my $expected = substr($buffer, - $got);
                 is  $gunz->trailingData(),  $expected_trailing, "trailing data";
@@ -881,9 +880,9 @@ EOM
 
         foreach my $strict (0, 1)
         {
-            ok my $gunz = new IO::Uncompress::Gunzip $name, 
+            ok my $gunz = IO::Uncompress::Gunzip->new( $name,
                                                Append   => 1,
-                                               -Strict   => $strict ;
+                                               -Strict   => $strict );
             my $uncomp ;
             my $status = 1;
             $status = $gunz->read($uncomp) while $status > 0;
@@ -916,9 +915,9 @@ EOM
 
         foreach my $strict (0, 1)
         {
-            ok my $gunz = new IO::Uncompress::Gunzip $name, 
+            ok my $gunz = IO::Uncompress::Gunzip->new( $name,
                                                -Append   => 1,
-                                               -Strict   => $strict ;
+                                               -Strict   => $strict );
             my $uncomp ;
             my $status = 1;
             $status = $gunz->read($uncomp) while $status > 0;
@@ -951,9 +950,9 @@ EOM
 
         foreach my $strict (0, 1)
         {
-            ok my $gunz = new IO::Uncompress::Gunzip $name, 
+            ok my $gunz = IO::Uncompress::Gunzip->new( $name,
                                                -Append   => 1,
-                                               -Strict   => $strict ;
+                                               -Strict   => $strict );
             my $uncomp ;
             my $status = 1;
             $status = $gunz->read($uncomp) while $status > 0;
@@ -980,11 +979,11 @@ EOM
                     'SubField ID not two chars long' ;
         my $buffer ;
         my $x ;
-        eval { $x = new IO::Compress::Gzip \$buffer, 
-                -ExtraField  => [ at => 'mouse', bad => 'dog'] ;
+        eval { $x = IO::Compress::Gzip->new( \$buffer,
+                -ExtraField  => [ at => 'mouse', bad => 'dog'] );
              };
-        like $@, mkErr("$error");  
-        like $GzipError, "/$error/";  
+        like $@, mkErr("$error");
+        like $GzipError, "/$error/";
         ok ! $x ;
     }
 }
index 28059ce..8d4d163 100644 (file)
@@ -37,12 +37,12 @@ sub ReadHeaderInfo
     my %opts = @_ ;
 
     my $buffer ;
-    ok my $def = new IO::Compress::Deflate \$buffer, %opts ;
+    ok my $def = IO::Compress::Deflate->new( \$buffer, %opts );
     is $def->write($string), length($string), "write" ;
     ok $def->close, "closed" ;
     #print "ReadHeaderInfo\n"; hexDump(\$buffer);
 
-    ok my $inf = new IO::Uncompress::Inflate \$buffer, Append => 1  ;
+    ok my $inf = IO::Uncompress::Inflate->new( \$buffer, Append => 1 );
     my $uncomp = "";
     #ok $inf->read($uncomp) ;
     my $actual = 0 ;
@@ -67,12 +67,12 @@ sub ReadHeaderInfoZlib
     my %opts = @_ ;
 
     my $buffer ;
-    ok my $def = new Compress::Raw::Zlib::Deflate AppendOutput => 1, %opts ;
+    ok my $def = Compress::Raw::Zlib::Deflate->new( AppendOutput => 1, %opts );
     cmp_ok $def->deflate($string, $buffer), '==',  Z_OK;
     cmp_ok $def->flush($buffer), '==', Z_OK;
     #print "ReadHeaderInfoZlib\n"; hexDump(\$buffer);
-    
-    ok my $inf = new IO::Uncompress::Inflate \$buffer, Append => 1  ;
+
+    ok my $inf = IO::Uncompress::Inflate->new( \$buffer, Append => 1 );
     my $uncomp ;
     #ok $inf->read($uncomp) ;
     my $actual = 0 ;
@@ -94,7 +94,7 @@ sub ReadHeaderInfoZlib
 sub printHeaderInfo
 {
     my $buffer = shift ;
-    my $inf = new IO::Uncompress::Inflate \$buffer  ;
+    my $inf = IO::Uncompress::Inflate->new( \$buffer );
     my $hdr = $inf->getHeaderInfo();
 
     no warnings 'uninitialized' ;
@@ -107,7 +107,7 @@ sub printHeaderInfo
 # Check the Deflate Header Parameters
 #========================================
 
-#my $lex = new LexFile my $name ;
+#my $lex = LexFile->new( my $name );
 
 {
     title "Check default header settings" ;
@@ -210,7 +210,7 @@ some text
 EOM
 
     my $good ;
-    ok my $x = new IO::Compress::Deflate \$good ;
+    ok my $x = IO::Compress::Deflate->new( \$good );
     ok $x->write($string) ;
     ok $x->close ;
 
@@ -219,7 +219,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 0, 1) = "\x00" ;
 
-        ok ! new IO::Uncompress::Inflate \$buffer, -Transparent => 0  ;
+        ok ! IO::Uncompress::Inflate->new( \$buffer, -Transparent => 0 );
         like $IO::Uncompress::Inflate::InflateError, '/Header Error: CRC mismatch/',
             "CRC mismatch";
     }
@@ -229,7 +229,7 @@ EOM
         my $buffer = $good ;
         substr($buffer, 1, 1) = "\x00" ;
 
-        ok ! new IO::Uncompress::Inflate \$buffer, -Transparent => 0  ;
+        ok ! IO::Uncompress::Inflate->new( \$buffer, -Transparent => 0 );
         like $IO::Uncompress::Inflate::InflateError, '/Header Error: CRC mismatch/',
             "CRC mismatch";
     }
@@ -260,8 +260,8 @@ EOM
 
         substr($buffer, 0, 2) = $header;
 
-        my $un = new IO::Uncompress::Inflate \$buffer, -Transparent => 0  ;
-        ok ! new IO::Uncompress::Inflate \$buffer, -Transparent => 0  ;
+        my $un = IO::Uncompress::Inflate->new( \$buffer, -Transparent => 0 );
+        ok ! IO::Uncompress::Inflate->new( \$buffer, -Transparent => 0 );
         like $IO::Uncompress::Inflate::InflateError, '/Header Error: Not Deflate \(CM is 3\)/',
             "  Not Deflate";
     }
@@ -277,7 +277,7 @@ EOM
 
     $string = $string x 1000;
     my $good ;
-    ok my $x = new IO::Compress::Deflate \$good ;
+    ok my $x = IO::Compress::Deflate->new( \$good );
     ok $x->write($string) ;
     ok $x->close ;
 
@@ -287,7 +287,7 @@ EOM
         foreach my $s (0, 1)
         {
             title "Trailer Corruption - Trailer truncated to $got bytes, strict $s" ;
-               my $lex = new LexFile my $name ;
+                   my $lex = LexFile->new( my $name );
             my $buffer = $good ;
             my $expected_trailing = substr($good, -4, 4) ;
             substr($expected_trailing, $trim) = '';
@@ -295,7 +295,7 @@ EOM
             substr($buffer, $trim) = '';
             writeFile($name, $buffer) ;
 
-            ok my $gunz = new IO::Uncompress::Inflate $name, Append => 1, Strict => $s;
+            ok my $gunz = IO::Uncompress::Inflate->new( $name, Append => 1, Strict => $s );
             my $uncomp ;
             if ($s)
             {
@@ -322,10 +322,10 @@ EOM
         my $buffer = $good ;
         my $crc = unpack("N", substr($buffer, -4, 4));
         substr($buffer, -4, 4) = pack('N', $crc+1);
-               my $lex = new LexFile my $name ;
+               my $lex = LexFile->new( my $name );
         writeFile($name, $buffer) ;
 
-        ok my $gunz = new IO::Uncompress::Inflate $name, Append => 1, Strict => 1;
+        ok my $gunz = IO::Uncompress::Inflate->new( $name, Append => 1, Strict => 1 );
         my $uncomp ;
         my $status ;
         1 while ($status = $gunz->read($uncomp)) > 0;
@@ -343,10 +343,10 @@ EOM
         my $buffer = $good ;
         my $crc = unpack("N", substr($buffer, -4, 4));
         substr($buffer, -4, 4) = pack('N', $crc+1);
-               my $lex = new LexFile my $name ;
+               my $lex = LexFile->new( my $name );
         writeFile($name, $buffer) ;
 
-        ok my $gunz = new IO::Uncompress::Inflate $name, Append => 1, Strict => 0;
+        ok my $gunz = IO::Uncompress::Inflate->new( $name, Append => 1, Strict => 0 );
         my $uncomp ;
         my $status ;
         1 while ($status = $gunz->read($uncomp)) > 0;
index cfc53d7..8300091 100644 (file)
@@ -24,11 +24,11 @@ BEGIN {
     use_ok('IO::Compress::Zip', qw(:all)) ;
     use_ok('IO::Uncompress::Unzip', qw(unzip $UnzipError)) ;
 
-    eval { 
-           require IO::Compress::Bzip2 ; 
-           import  IO::Compress::Bzip2 2.010 ; 
-           require IO::Uncompress::Bunzip2 ; 
-           import  IO::Uncompress::Bunzip2 2.010 ; 
+    eval {
+           require IO::Compress::Bzip2 ;
+           IO::Compress::Bzip2->import( 2.010 );
+           require IO::Uncompress::Bunzip2 ;
+           IO::Uncompress::Bunzip2->import( 2.010 );
          } ;
 
 }
@@ -38,7 +38,7 @@ sub getContent
 {
     my $filename = shift;
 
-    my $u = new IO::Uncompress::Unzip $filename, Append => 1, @_
+    my $u = IO::Uncompress::Unzip->new( $filename, Append => 1, @_ )
         or die "Cannot open $filename: $UnzipError";
 
     isa_ok $u, "IO::Uncompress::Unzip";
@@ -59,7 +59,7 @@ sub getContent
     }
 
     die "Error processing $filename: $status $!\n"
-        if $status < 0 ;    
+        if $status < 0 ;
 
     return @content;
 }
@@ -69,7 +69,7 @@ sub getContent
 {
     title "Create a simple zip - All Deflate";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @content = (
                    'hello',
@@ -77,16 +77,16 @@ sub getContent
                    'goodbye ',
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
     $zip->newStream(Name=> "two", Method => ZIP_CM_DEFLATE);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
     $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
-    is $zip->write($content[2]), length($content[2]), "write"; 
-    ok $zip->close(), "closed";                    
+    is $zip->write($content[2]), length($content[2]), "write";
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -102,7 +102,7 @@ SKIP:
     skip "IO::Compress::Bzip2 not available", 9
         unless defined $IO::Compress::Bzip2::VERSION;
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @content = (
                    'hello',
@@ -110,16 +110,16 @@ SKIP:
                    'goodbye ',
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_BZIP2, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_BZIP2, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
     $zip->newStream(Name=> "two", Method => ZIP_CM_BZIP2);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
     $zip->newStream(Name=> "three", Method => ZIP_CM_BZIP2);
-    is $zip->write($content[2]), length($content[2]), "write"; 
-    ok $zip->close(), "closed";                    
+    is $zip->write($content[2]), length($content[2]), "write";
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -135,7 +135,7 @@ SKIP:
     skip "IO::Compress::Bzip2 not available", 9
         unless $IO::Compress::Bzip2::VERSION;
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @content = (
                    'hello',
@@ -143,16 +143,16 @@ SKIP:
                    'goodbye ',
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
     $zip->newStream(Name=> "two", Method => ZIP_CM_BZIP2);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
     $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
-    is $zip->write($content[2]), length($content[2]), "write"; 
-    ok $zip->close(), "closed";                    
+    is $zip->write($content[2]), length($content[2]), "write";
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -164,7 +164,7 @@ SKIP:
 {
     title "Create a simple zip - All STORE";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @content = (
                    'hello',
@@ -172,16 +172,16 @@ SKIP:
                    'goodbye ',
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_STORE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_STORE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
     $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
     $zip->newStream(Name=> "three", Method => ZIP_CM_STORE);
-    is $zip->write($content[2]), length($content[2]), "write"; 
-    ok $zip->close(), "closed";                    
+    is $zip->write($content[2]), length($content[2]), "write";
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -193,24 +193,24 @@ SKIP:
 {
     title "Create a simple zip - Deflate + STORE";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @content = qw(
-                   hello 
+                   hello
                        and
-                   goodbye 
+                   goodbye
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
     $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
     $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
-    is $zip->write($content[2]), length($content[2]), "write"; 
-    ok $zip->close(), "closed";                    
+    is $zip->write($content[2]), length($content[2]), "write";
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -222,7 +222,7 @@ SKIP:
 {
     title "Create a simple zip - Deflate + zero length STORE";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @content = (
                    'hello ',
@@ -230,16 +230,16 @@ SKIP:
                    'goodbye ',
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
     $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
     $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
-    is $zip->write($content[2]), length($content[2]), "write"; 
-    ok $zip->close(), "closed";                    
+    is $zip->write($content[2]), length($content[2]), "write";
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -251,7 +251,7 @@ SKIP:
 {
     title "RT #72548";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my $blockSize = 1024 * 16;
 
@@ -260,16 +260,16 @@ SKIP:
                    "x" x ($blockSize + 1)
                    );
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_STORE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_STORE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content[0]), length($content[0]), "write"; 
+    is $zip->write($content[0]), length($content[0]), "write";
 
     $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
-    is $zip->write($content[1]), length($content[1]), "write"; 
+    is $zip->write($content[1]), length($content[1]), "write";
 
-    ok $zip->close(), "closed";                    
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1, BlockSize => $blockSize);
 
@@ -280,15 +280,15 @@ SKIP:
 {
     title "Zip file with a single zero-length file";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one", Method => ZIP_CM_STORE, Stream => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one", Method => ZIP_CM_STORE, Stream => 0 );
     isa_ok $zip, "IO::Compress::Zip";
 
     $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
-    ok $zip->close(), "closed";                    
+    ok $zip->close(), "closed";
 
     my @got = getContent($file1);
 
@@ -307,13 +307,13 @@ for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
     my $content = "a single line\n";
     my $zip ;
 
-    my $status = zip \$content => \$zip, 
-                    Method => $method, 
-                    Stream => 0, 
+    my $status = zip \$content => \$zip,
+                    Method => $method,
+                    Stream => 0,
                     Name => "123";
     is $status, 1, "  Created a zip file";
 
-    my $u = new IO::Uncompress::Unzip \$zip;
+    my $u = IO::Uncompress::Unzip->new( \$zip );
     isa_ok $u, "IO::Uncompress::Unzip";
 
     is $u->getline, $content, "  Read first line ok";
@@ -324,39 +324,39 @@ for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
 
 {
     title "isMethodAvailable" ;
-    
+
     ok IO::Compress::Zip::isMethodAvailable(ZIP_CM_STORE), "ZIP_CM_STORE available";
     ok IO::Compress::Zip::isMethodAvailable(ZIP_CM_DEFLATE), "ZIP_CM_DEFLATE available";
     #ok IO::Compress::Zip::isMethodAvailable(ZIP_CM_STORE), "ZIP_CM_STORE available";
-    
-    ok ! IO::Compress::Zip::isMethodAvailable(999), "999 not available";    
+
+    ok ! IO::Compress::Zip::isMethodAvailable(999), "999 not available";
 }
 
 {
     title "Member & Comment 0";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my $content = 'hello' ;
-                 
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "0", Comment => "0" ;
+
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "0", Comment => "0" );
     isa_ok $zip, "IO::Compress::Zip";
 
-    is $zip->write($content), length($content), "write"; 
+    is $zip->write($content), length($content), "write";
 
-    ok $zip->close(), "closed";                    
+    ok $zip->close(), "closed";
 
 
 
-    my $u = new IO::Uncompress::Unzip $file1, Append => 1, @_
+    my $u = IO::Uncompress::Unzip->new( $file1, Append => 1, @_ )
         or die "Cannot open $file1: $UnzipError";
 
     isa_ok $u, "IO::Uncompress::Unzip";
 
     my $name = $u->getHeaderInfo()->{Name};
-    
+
     is $u->getHeaderInfo()->{Name}, "0", "Name is '0'";
 }
 
@@ -365,12 +365,12 @@ for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
     title "nexStream regression";
     # https://github.com/pmqs/IO-Compress/issues/3
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my $content1 = qq["organisation_path","collection_occasion_key","episode_key"\n] ;
-                 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name => "one";
+
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name => "one" );
     isa_ok $zip, "IO::Compress::Zip";
 
     print $zip $content1;
@@ -384,16 +384,16 @@ for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
 EOM
     print $zip $content2;
 
-    ok $zip->close(), "closed";                    
+    ok $zip->close(), "closed";
 
 
-    my $u = new IO::Uncompress::Unzip $file1, Append => 1, @_
+    my $u = IO::Uncompress::Unzip->new( $file1, Append => 1, @_ )
         or die "Cannot open $file1: $UnzipError";
 
     isa_ok $u, "IO::Uncompress::Unzip";
 
     my $name = $u->getHeaderInfo()->{Name};
-    
+
     is $u->getHeaderInfo()->{Name}, "one", "Name is 'one'";
 
     ok $u->nextStream(), "nextStream OK";
index df3fbfb..181371a 100644 (file)
@@ -15,11 +15,11 @@ use Test::More ;
 use CompTestUtils;
 use IO::Uncompress::Unzip 'unzip' ;
 
-BEGIN 
-{ 
+BEGIN
+{
     plan(skip_all => "Needs Perl 5.005 or better - you have Perl $]" )
         if $] < 5.005 ;
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
@@ -35,7 +35,7 @@ $Inc = '"-MExtUtils::testlib"'
 
 my $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
 $Perl = qq["$Perl"] if $^O eq 'MSWin32' ;
+
 $Perl = "$Perl $Inc -w" ;
 #$Perl .= " -Mblib " ;
 my $binDir = $ENV{PERL_CORE} ? "../ext/IO-Compress/bin/"
@@ -43,7 +43,7 @@ my $binDir = $ENV{PERL_CORE} ? "../ext/IO-Compress/bin/"
 
 my $hello1 = <<EOM ;
 hello
-this is 
+this is
 a test
 message
 x ttttt
@@ -54,7 +54,7 @@ EOM
 
 
 
-my $lex = new LexFile my $stderr ;
+my $lex = LexFile->new( my $stderr );
 
 
 sub check
@@ -62,7 +62,7 @@ sub check
     my $command = shift ;
     my $expected = shift ;
 
-    my $lex = new LexFile my $stderr ;
+    my $lex = LexFile->new( my $stderr );
 
     my $cmd = "$command 2>$stderr";
     my $stdout = `$cmd` ;
@@ -93,7 +93,7 @@ sub check
     title "streamzip" ;
 
     my ($infile, $outfile);
-    my $lex = new LexFile $infile, $outfile ;
+    my $lex = LexFile->new( $infile, $outfile );
 
     writeFile($infile, $hello1) ;
     check "$Perl ${binDir}/streamzip <$infile >$outfile";
@@ -107,7 +107,7 @@ sub check
     title "streamzip" ;
 
     my ($infile, $outfile);
-    my $lex = new LexFile $infile, $outfile ;
+    my $lex = LexFile->new( $infile, $outfile );
 
     writeFile($infile, $hello1) ;
     check "$Perl ${binDir}/streamzip -zipfile=$outfile <$infile";
index 7e0d6fd..36373db 100644 (file)
@@ -10,7 +10,7 @@ use strict;
 use warnings;
 use bytes;
 
-use Test::More ; 
+use Test::More ;
 use CompTestUtils;
 
 BEGIN {
@@ -36,35 +36,35 @@ EOM
 sub My::testParseParameters()
 {
     eval { ParseParameters(1, {}, 1) ; };
-    like $@, mkErr(': Expected even number of parameters, got 1'), 
+    like $@, mkErr(': Expected even number of parameters, got 1'),
             "Trap odd number of params";
 
     eval { ParseParameters(1, {}, undef) ; };
-    like $@, mkErr(': Expected even number of parameters, got 1'), 
+    like $@, mkErr(': Expected even number of parameters, got 1'),
             "Trap odd number of params";
 
     eval { ParseParameters(1, {}, []) ; };
-    like $@, mkErr(': Expected even number of parameters, got 1'), 
+    like $@, mkErr(': Expected even number of parameters, got 1'),
             "Trap odd number of params";
 
     eval { ParseParameters(1, {'fred' => [Parse_boolean, 0]}, fred => 'joe') ; };
-    like $@, mkErr("Parameter 'fred' must be an int, got 'joe'"), 
+    like $@, mkErr("Parameter 'fred' must be an int, got 'joe'"),
             "wanted unsigned, got undef";
 
     eval { ParseParameters(1, {'fred' => [Parse_unsigned, 0]}, fred => undef) ; };
-    like $@, mkErr("Parameter 'fred' must be an unsigned int, got 'undef'"), 
+    like $@, mkErr("Parameter 'fred' must be an unsigned int, got 'undef'"),
             "wanted unsigned, got undef";
 
     eval { ParseParameters(1, {'fred' => [Parse_signed, 0]}, fred => undef) ; };
-    like $@, mkErr("Parameter 'fred' must be a signed int, got 'undef'"), 
+    like $@, mkErr("Parameter 'fred' must be a signed int, got 'undef'"),
             "wanted signed, got undef";
 
     eval { ParseParameters(1, {'fred' => [Parse_signed, 0]}, fred => 'abc') ; };
-    like $@, mkErr("Parameter 'fred' must be a signed int, got 'abc'"), 
+    like $@, mkErr("Parameter 'fred' must be a signed int, got 'abc'"),
             "wanted signed, got 'abc'";
 
     eval { ParseParameters(1, {'fred' => [Parse_code, undef]}, fred => 'abc') ; };
-    like $@, mkErr("Parameter 'fred' must be a code reference, got 'abc'"), 
+    like $@, mkErr("Parameter 'fred' must be a code reference, got 'abc'"),
             "wanted code, got 'abc'";
 
 
@@ -76,25 +76,25 @@ sub My::testParseParameters()
             if $Config{useithreads};
 
         eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => 'abc') ; };
-        like $@, mkErr("Parameter 'fred' not writable"), 
+        like $@, mkErr("Parameter 'fred' not writable"),
                 "wanted writable, got readonly";
 
-        skip '\\ returns mutable value in 5.19.3', 1 
+        skip '\\ returns mutable value in 5.19.3', 1
             if $] >= 5.019003;
 
         eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => \'abc') ; };
-        like $@, mkErr("Parameter 'fred' not writable"), 
+        like $@, mkErr("Parameter 'fred' not writable"),
                 "wanted writable, got readonly";
     }
 
     my @xx;
     eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => \@xx) ; };
-    like $@, mkErr("Parameter 'fred' not a scalar reference"), 
+    like $@, mkErr("Parameter 'fred' not a scalar reference"),
             "wanted scalar reference";
 
     local *ABC;
     eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => *ABC) ; };
-    like $@, mkErr("Parameter 'fred' not a scalar"), 
+    like $@, mkErr("Parameter 'fred' not a scalar"),
             "wanted scalar";
 
     eval { ParseParameters(1, {'fred' => [Parse_any, 0]}, fred => 1, fred => 2) ; };
@@ -137,58 +137,58 @@ sub My::testParseParameters()
     {
         my $got1 = ParseParameters(1, {'fred' => [Parse_writable_scalar, undef]}, $got) ;
         is $got1, $got, "Same object";
-    
+
         ok $got1->parsed('fred'), "parsed" ;
         $xx_ref = $got1->getValue('fred');
-        
+
         $$xx_ref = 777 ;
         is $xx, 777;
     }
 
-    for my $type (Parse_unsigned, Parse_signed, Parse_any)    
+    for my $type (Parse_unsigned, Parse_signed, Parse_any)
     {
         my $value = 0;
         my $got1 ;
         eval { $got1 = ParseParameters(1, {'fred' => [$type, 1]}, fred => $value) } ;
-    
+
         ok ! $@;
         ok $got1->parsed('fred'), "parsed ok" ;
         is $got1->getValue('fred'), 0;
-    }    
+    }
 
     {
         # setValue/getValue
         my $value = 0;
         my $got1 ;
         eval { $got1 = ParseParameters(1, {'fred' => [Parse_any, 1]}, fred => $value) } ;
-    
+
         ok ! $@;
         ok $got1->parsed('fred'), "parsed ok" ;
         is $got1->getValue('fred'), 0;
         $got1->setValue('fred' => undef);
-        is $got1->getValue('fred'), undef;        
-    }  
-    
+        is $got1->getValue('fred'), undef;
+    }
+
     {
         # twice
         my $value = 0;
-        
+
         my $got = IO::Compress::Base::Parameters::new();
 
-       
+
         ok $got->parse({'fred' => [Parse_any, 1]}, fred => $value) ;
 
         ok $got->parsed('fred'), "parsed ok" ;
         is $got->getValue('fred'), 0;
-        
-        ok $got->parse({'fred' => [Parse_any, 1]}, fred => undef) ;  
+
+        ok $got->parse({'fred' => [Parse_any, 1]}, fred => undef) ;
         ok $got->parsed('fred'), "parsed ok" ;
-        is $got->getValue('fred'), undef;   
-        
-        ok $got->parse({'fred' => [Parse_any, 1]}, fred => 7) ;  
+        is $got->getValue('fred'), undef;
+
+        ok $got->parse({'fred' => [Parse_any, 1]}, fred => 7) ;
         ok $got->parsed('fred'), "parsed ok" ;
-        is $got->getValue('fred'), 7;   
-    }      
+        is $got->getValue('fred'), 7;
+    }
 }
 
 
@@ -208,7 +208,7 @@ My::testParseParameters();
 {
     title "whatIsInput" ;
 
-    my $lex = new LexFile my $out_file ;
+    my $lex = LexFile->new( my $out_file );
     open FH, ">$out_file" ;
     is whatIsInput(*FH), 'handle', "Match filehandle" ;
     close FH ;
@@ -227,7 +227,7 @@ My::testParseParameters();
 {
     title "whatIsOutput" ;
 
-    my $lex = new LexFile my $out_file ;
+    my $lex = LexFile->new( my $out_file );
     open FH, ">$out_file" ;
     is whatIsOutput(*FH), 'handle', "Match filehandle" ;
     close FH ;
@@ -248,34 +248,34 @@ My::testParseParameters();
 {
     title "U64" ;
 
-    my $x = new U64();
+    my $x = U64->new();
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 0, "  getLow is 0";
     ok ! $x->is64bit(), " ! is64bit";
 
-    $x = new U64(1,2);
+    $x = U64->new(1,2);
     is $x->getHigh, 1, "  getHigh is 1";
     is $x->getLow, 2, "  getLow is 2";
     ok $x->is64bit(), " is64bit";
 
-    $x = new U64(0xFFFFFFFF,2);
+    $x = U64->new(0xFFFFFFFF,2);
     is $x->getHigh, 0xFFFFFFFF, "  getHigh is 0xFFFFFFFF";
     is $x->getLow, 2, "  getLow is 2";
     ok $x->is64bit(), " is64bit";
 
-    $x = new U64(7, 0xFFFFFFFF);
+    $x = U64->new(7, 0xFFFFFFFF);
     is $x->getHigh, 7, "  getHigh is 7";
     is $x->getLow, 0xFFFFFFFF, "  getLow is 0xFFFFFFFF";
     ok $x->is64bit(), " is64bit";
 
-    $x = new U64(666);
+    $x = U64->new(666);
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 666, "  getLow is 666";
     ok ! $x->is64bit(), " ! is64bit";
 
     title "U64 - add" ;
 
-    $x = new U64(0, 1);
+    $x = U64->new(0, 1);
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 1, "  getLow is 1";
     ok ! $x->is64bit(), " ! is64bit";
@@ -285,7 +285,7 @@ My::testParseParameters();
     is $x->getLow, 2, "  getLow is 2";
     ok ! $x->is64bit(), " ! is64bit";
 
-    $x = new U64(0, 0xFFFFFFFE);
+    $x = U64->new(0, 0xFFFFFFFE);
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 0xFFFFFFFE, "  getLow is 0xFFFFFFFE";
     is $x->get32bit(),  0xFFFFFFFE, "  get32bit is 0xFFFFFFFE";
@@ -320,8 +320,8 @@ My::testParseParameters();
     is $x->get64bit(),  0xFFFFFFFF+3, "  get64bit is 0x100000002";
     ok $x->is64bit(), " is64bit";
 
-    $x = new U64(1, 0xFFFFFFFE);
-    my $y = new U64(2, 3);
+    $x = U64->new(1, 0xFFFFFFFE);
+    my $y = U64->new(2, 3);
 
     $x->add($y);
     is $x->getHigh, 4, "  getHigh is 4";
@@ -330,7 +330,7 @@ My::testParseParameters();
 
     title "U64 - subtract" ;
 
-    $x = new U64(0, 1);
+    $x = U64->new(0, 1);
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 1, "  getLow is 1";
     ok ! $x->is64bit(), " ! is64bit";
@@ -340,7 +340,7 @@ My::testParseParameters();
     is $x->getLow, 0, "  getLow is 0";
     ok ! $x->is64bit(), " ! is64bit";
 
-    $x = new U64(1, 0);
+    $x = U64->new(1, 0);
     is $x->getHigh, 1, "  getHigh is 1";
     is $x->getLow, 0, "  getLow is 0";
     is $x->get32bit(),  0, "  get32bit is 0xFFFFFFFE";
@@ -354,16 +354,16 @@ My::testParseParameters();
     is $x->get64bit(),  0xFFFFFFFF, "  get64bit is 0xFFFFFFFF";
     ok ! $x->is64bit(), " ! is64bit";
 
-    $x = new U64(2, 2);
-    $y = new U64(1, 3);
+    $x = U64->new(2, 2);
+    $y = U64->new(1, 3);
 
     $x->subtract($y);
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 0xFFFFFFFF, "  getLow is 1";
     ok ! $x->is64bit(), " ! is64bit";
 
-    $x = new U64(0x01CADCE2, 0x4E815983);
-    $y = new U64(0x19DB1DE, 0xD53E8000); # NTFS to Unix time delta
+    $x = U64->new(0x01CADCE2, 0x4E815983);
+    $y = U64->new(0x19DB1DE, 0xD53E8000); # NTFS to Unix time delta
 
     $x->subtract($y);
     is $x->getHigh, 0x2D2B03, "  getHigh is 2D2B03";
@@ -372,17 +372,17 @@ My::testParseParameters();
 
     title "U64 - equal" ;
 
-    $x = new U64(0, 1);
+    $x = U64->new(0, 1);
     is $x->getHigh, 0, "  getHigh is 0";
     is $x->getLow, 1, "  getLow is 1";
     ok ! $x->is64bit(), " ! is64bit";
 
-    $y = new U64(0, 1);
+    $y = U64->new(0, 1);
     is $y->getHigh, 0, "  getHigh is 0";
     is $y->getLow, 1, "  getLow is 1";
     ok ! $y->is64bit(), " ! is64bit";
 
-    my $z = new U64(0, 2);
+    my $z = U64->new(0, 2);
     is $z->getHigh, 0, "  getHigh is 0";
     is $z->getLow, 2, "  getLow is 2";
     ok ! $z->is64bit(), " ! is64bit";
@@ -391,14 +391,14 @@ My::testParseParameters();
     ok !$x->equal($z), "  ! equal";
 
     title "U64 - clone" ;
-    $x = new U64(21, 77);
+    $x = U64->new(21, 77);
     $z =  U64::clone($x);
     is $z->getHigh, 21, "  getHigh is 21";
     is $z->getLow, 77, "  getLow is 77";
 
     title "U64 - cmp.gt" ;
-    $x = new U64 1;
-    $y = new U64 0;
+    $x = U64->new( 1 );
+    $y = U64->new( 0 );
     cmp_ok $x->cmp($y), '>', 0, "  cmp > 0";
     is $x->gt($y), 1, "  gt";
     cmp_ok $y->cmp($x), '<', 0, "  cmp < 0";
index 825e46f..b24bb98 100644 (file)
@@ -13,8 +13,8 @@ use bytes;
 use Test::More ;
 use CompTestUtils;
 
-BEGIN 
-{ 
+BEGIN
+{
     plan skip_all => "Lengthy Tests Disabled\n" .
                      "set COMPRESS_ZLIB_RUN_ALL to run this test suite"
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} ;
@@ -33,7 +33,7 @@ BEGIN
     use_ok('IO::Compress::Gzip::Constants');
 }
 
-my $compressed ;    
+my $compressed ;
 my $expected_crc ;
 
 for my $wrap (0 .. 2)
@@ -59,7 +59,7 @@ for my $wrap (0 .. 2)
         else {
             $expected_isize = $offset - 1;
         }
-        
+
         sub gzipClosure
         {
             my $gzip = shift ;
@@ -70,7 +70,7 @@ for my $wrap (0 .. 2)
             my $buff = 'x' x $inc ;
             my $left = $max ;
 
-            return 
+            return
                 sub {
 
                     if ($max == 0 && $index == 0) {
@@ -113,16 +113,16 @@ for my $wrap (0 .. 2)
                 };
         }
 
-        my $gzip = new IO::Compress::Gzip \$compressed,
+        my $gzip = IO::Compress::Gzip->new( \$compressed,
                                 -Append     => 0,
-                                -HeaderCRC  => 1;
+                                -HeaderCRC  => 1 );
 
         ok $gzip, "  Created IO::Compress::Gzip object";
 
-        my $gunzip = new IO::Uncompress::Gunzip gzipClosure($gzip, $size),
+        my $gunzip = IO::Uncompress::Gunzip->new( gzipClosure($gzip, $size),
                                     -BlockSize  => 1024 * 500 ,
                                     -Append => 0,
-                                    -Strict => 1;
+                                    -Strict => 1 );
 
         ok $gunzip, "  Created IO::Uncompress::Gunzip object";
 
@@ -147,12 +147,11 @@ for my $wrap (0 .. 2)
 
         my $gunzip_hdr = $gunzip->getHeaderInfo();
 
-        is $gunzip_hdr->{ISIZE}, $expected_isize, 
+        is $gunzip_hdr->{ISIZE}, $expected_isize,
             sprintf("  ISIZE is $expected_isize [0x%X]", $expected_isize);
-        is $gunzip_hdr->{CRC32}, $expected_crc, 
+        is $gunzip_hdr->{CRC32}, $expected_crc,
             sprintf("  CRC32 is $expected_crc [0x%X]", $expected_crc);
 
         $expected_crc = 0 ;
     }
 }
-
index ae019c8..77b9d76 100644 (file)
@@ -19,7 +19,7 @@ my $GZIP ;
 
 sub ExternalGzipWorks
 {
-    my $lex = new LexFile my $outfile;
+    my $lex = LexFile->new( my $outfile );
     my $content = qq {
 Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut tempus odio id
  dolor. Camelus perlus.  Larrius in lumen numen.  Dolor en quiquum filia
@@ -28,7 +28,7 @@ Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut tempus odio id
 
     writeWithGzip($outfile, $content)
         or return 0;
-    
+
     my $got ;
     readWithGzip($outfile, $got)
         or return 0;
@@ -46,14 +46,14 @@ sub readWithGzip
 {
     my $file = shift ;
 
-    my $lex = new LexFile my $outfile;
+    my $lex = LexFile->new( my $outfile );
 
     my $comp = "$GZIP -d -c" ;
 
     if ( system("$comp $file >$outfile") == 0 )
     {
         $_[0] = readFile($outfile);
-        return 1 
+        return 1
     }
 
     diag "'$comp' failed: \$?=$? \$!=$!";
@@ -71,13 +71,13 @@ sub writeWithGzip
     my $content = shift ;
     my $options = shift || '';
 
-    my $lex = new LexFile my $infile;
+    my $lex = LexFile->new( my $infile );
     writeFile($infile, $content);
 
     unlink $file ;
     my $comp = "$GZIP -c $options $infile >$file" ;
 
-    return 1 
+    return 1
         if system($comp) == 0 ;
 
     diag "'$comp' failed: \$?=$? \$!=$!";
@@ -90,14 +90,14 @@ BEGIN {
     my $name = $^O =~ /mswin/i ? 'gzip.exe' : 'gzip';
     my $split = $^O =~ /mswin/i ? ";" : ":";
 
-    for my $dir (reverse split $split, $ENV{PATH})    
+    for my $dir (reverse split $split, $ENV{PATH})
     {
         $GZIP = File::Spec->catfile($dir,$name)
             if -x File::Spec->catfile($dir,$name)
     }
 
-    # Handle spaces in path to gzip 
-    $GZIP = "\"$GZIP\"" if defined $GZIP && $GZIP =~ /\s/;    
+    # Handle spaces in path to gzip
+    $GZIP = "\"$GZIP\"" if defined $GZIP && $GZIP =~ /\s/;
 
     plan(skip_all => "Cannot find $name")
         if ! $GZIP ;
@@ -105,7 +105,7 @@ BEGIN {
     plan(skip_all => "$name doesn't work as expected")
         if ! ExternalGzipWorks();
 
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
@@ -124,7 +124,7 @@ BEGIN {
 
     my $file;
     my $file1;
-    my $lex = new LexFile $file, $file1;
+    my $lex = LexFile->new( $file, $file1 );
     my $content = qq {
 Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut tempus odio id
  dolor. Camelus perlus.  Larrius in lumen numen.  Dolor en quiquum filia
@@ -143,5 +143,3 @@ Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut tempus odio id
     ok readWithGzip($file1, $got), "readWithGzip ok";
     is $got, $content, "got content";
 }
-
-
index d533f23..e8e4525 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
     plan skip_all => "Lengthy Tests Disabled\n" .
                      "set COMPRESS_ZLIB_RUN_ALL or COMPRESS_ZLIB_RUN_MOST to run this test suite"
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
index 49f9ae4..1e8b58e 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
     plan skip_all => "Lengthy Tests Disabled\n" .
                      "set COMPRESS_ZLIB_RUN_ALL or COMPRESS_ZLIB_RUN_MOST to run this test suite"
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
index 16b2d07..df5d877 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {
     plan skip_all => "Lengthy Tests Disabled\n" .
                      "set COMPRESS_ZLIB_RUN_ALL or COMPRESS_ZLIB_RUN_MOST to run this test suite"
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
index 177a3d5..371ed5c 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
     plan skip_all => "Lengthy Tests Disabled\n" .
                      "set COMPRESS_ZLIB_RUN_ALL or COMPRESS_ZLIB_RUN_MOST to run this test suite"
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
@@ -55,22 +55,22 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
     my $Error = getErrorRef($UncompressClass);
 
     my $compressed ;
-        ok( my $x = new IO::Compress::RawDeflate \$compressed);
+        ok( my $x = IO::Compress::RawDeflate->new( \$compressed ) );
         ok $x->write($hello) ;
         ok $x->close ;
 
-                           
+
     my $cc = $compressed ;
 
     my $gz ;
-    ok($gz = new $UncompressClass(\$cc,
+    ok($gz = $UncompressClass->can('new')->( $UncompressClass, \$cc,
                                   -Transparent => 0))
             or diag "$$Error\n";
     my $un;
     is $gz->read($un, length($hello)), length($hello);
     ok $gz->close();
     is $un, $hello ;
-    
+
     for my $trans (0 .. 1)
     {
         title "Testing $CompressClass, Transparent = $trans";
@@ -82,19 +82,19 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
         ok 1, "Header size is $header_size" ;
         ok 1, "Trailer size is $trailer_size" ;
 
-        
+
         title "Compressed Data Truncation";
         foreach my $i (0 .. $blocksize)
         {
-        
-            my $lex = new LexFile my $name ;
-        
+
+            my $lex = LexFile->new( my $name );
+
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);
             writeFile($name, $part);
-            my $gz = new $UncompressClass $name,
+            my $gz = $UncompressClass->can('new')->( $UncompressClass, $name,
                                        -BlockSize   => $blocksize,
-                                       -Transparent => $trans;
+                                       -Transparent => $trans );
             if ($trans) {
                 ok $gz;
                 ok ! $gz->error() ;
@@ -111,15 +111,15 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
 
         foreach my $i ($blocksize+1 .. length($compressed)-1)
         {
-        
-            my $lex = new LexFile my $name ;
-        
+
+            my $lex = LexFile->new( my $name );
+
             ok 1, "Length $i" ;
             my $part = substr($compressed, 0, $i);
             writeFile($name, $part);
-            ok my $gz = new $UncompressClass $name,
+            ok my $gz = $UncompressClass->can('new')->( $UncompressClass, $name,
                                              -BlockSize   => $blocksize,
-                                             -Transparent => $trans;
+                                             -Transparent => $trans );
             my $un ;
             my $status = 1 ;
             $status = $gz->read($un) while $status > 0 ;
@@ -129,6 +129,5 @@ foreach my $CompressClass ( 'IO::Compress::RawDeflate')
             $gz->close();
         }
     }
-    
-}
 
+}
index 80a0aee..94d4a8d 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {
     plan skip_all => "Lengthy Tests Disabled\n" .
                      "set COMPRESS_ZLIB_RUN_ALL or COMPRESS_ZLIB_RUN_MOST to run this test suite"
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
-    
+
     # use Test::NoWarnings, if available
     my $extra = 0 ;
     $extra = 1
index 0382df8..ff42b4f 100644 (file)
@@ -42,11 +42,11 @@ sub gzipGetHeader
     my $got ;
 
     ok IO::Compress::Gzip::gzip($in, \$out, %opts), "  gzip ok" ;
-    ok IO::Uncompress::Gunzip::gunzip(\$out, \$got), "  gunzip ok" 
+    ok IO::Uncompress::Gunzip::gunzip(\$out, \$got), "  gunzip ok"
         or diag $GunzipError ;
     is $got, $content, "  got expected content" ;
 
-    my $gunz = new IO::Uncompress::Gunzip \$out, Strict => 0
+    my $gunz = IO::Uncompress::Gunzip->new( \$out, Strict => 0 )
         or diag "GunzipError is $IO::Uncompress::Gunzip::GunzipError" ;
     ok $gunz, "  Created IO::Uncompress::Gunzip object";
     my $hdr = $gunz->getHeaderInfo();
@@ -57,13 +57,13 @@ sub gzipGetHeader
     ok $gunz->close, "  closed ok" ;
 
     return $hdr ;
-    
+
 }
 
 {
     title "Check gzip header default NAME & MTIME settings" ;
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my $content = "hello ";
     my $hdr ;
@@ -73,7 +73,7 @@ sub gzipGetHeader
     $mtime = (stat($file1))[9];
     # make sure that the gzip file isn't created in the same
     # second as the input file
-    sleep 3 ; 
+    sleep 3 ;
     $hdr = gzipGetHeader($file1, $content);
 
     is $hdr->{Name}, $file1, "  Name is '$file1'";
@@ -83,7 +83,7 @@ sub gzipGetHeader
 
     writeFile($file1, $content);
     $mtime = (stat($file1))[9];
-    sleep 3 ; 
+    sleep 3 ;
     $hdr = gzipGetHeader($file1, $content, Name => "abcde");
 
     is $hdr->{Name}, "abcde", "  Name is 'abcde'" ;
@@ -106,9 +106,9 @@ sub gzipGetHeader
     is $hdr->{Time}, 4321, "  Time is 4321";
 
     title "Filehandle doesn't have default Name or Time" ;
-    my $fh = new IO::File "< $file1"
+    my $fh = IO::File->new( "< $file1" )
         or diag "Cannot open '$file1': $!\n" ;
-    sleep 3 ; 
+    sleep 3 ;
     my $before = time ;
     $hdr = gzipGetHeader($fh, $content);
     my $after = time ;
@@ -131,4 +131,3 @@ sub gzipGetHeader
 }
 
 # TODO add more error cases
-
index ed3f8c7..abeefa7 100644 (file)
@@ -18,8 +18,8 @@ BEGIN {
         if $] < 5.005 ;
 
     plan(skip_all => "IO::Compress::Bzip2 not available" )
-        unless eval { require IO::Compress::Bzip2; 
-                      require IO::Uncompress::Bunzip2; 
+        unless eval { require IO::Compress::Bzip2;
+                      require IO::Uncompress::Bunzip2;
                       1
                     } ;
 
@@ -48,11 +48,11 @@ sub zipGetHeader
     my $got ;
 
     ok zip($in, \$out, %opts), "  zip ok" ;
-    ok unzip(\$out, \$got), "  unzip ok" 
+    ok unzip(\$out, \$got), "  unzip ok"
         or diag $UnzipError ;
     is $got, $content, "  got expected content" ;
 
-    my $gunz = new IO::Uncompress::Unzip \$out, Strict => 0
+    my $gunz = IO::Uncompress::Unzip->new( \$out, Strict => 0 )
         or diag "UnzipError is $IO::Uncompress::Unzip::UnzipError" ;
     ok $gunz, "  Created IO::Uncompress::Unzip object";
     my $hdr = $gunz->getHeaderInfo();
@@ -63,7 +63,7 @@ sub zipGetHeader
     ok $gunz->close, "  closed ok" ;
 
     return $hdr ;
-    
+
 }
 
 
@@ -79,8 +79,8 @@ for my $input (0, 1)
             {
                 title "Input $input, Stream $stream, Zip64 $zip64, Method $method";
 
-                my $lex1 = new LexFile my $file1;
-                my $lex2 = new LexFile my $file2;
+                my $lex1 = LexFile->new( my $file1 );
+                my $lex2 = LexFile->new( my $file2 );
                 my $content = "hello ";
                 my $in ;
 
@@ -95,9 +95,9 @@ for my $input (0, 1)
                 }
 
 
-                ok zip($in => $file1 , Method => $method, 
+                ok zip($in => $file1 , Method => $method,
                                        Zip64  => $zip64,
-                                       Stream => $stream), " zip ok" 
+                                       Stream => $stream), " zip ok"
                     or diag $ZipError ;
 
                 my $got ;
@@ -106,7 +106,7 @@ for my $input (0, 1)
 
                 is $got, $content, "  content ok";
 
-                my $u = new IO::Uncompress::Unzip $file1
+                my $u = IO::Uncompress::Unzip->new( $file1 )
                     or diag $ZipError ;
 
                 my $hdr = $u->getHeaderInfo();
@@ -133,7 +133,7 @@ for my $stream (0, 1)
             my $file1;
             my $file2;
             my $zipfile;
-            my $lex = new LexFile $file1, $file2, $zipfile;
+            my $lex = LexFile->new( $file1, $file2, $zipfile );
 
             my $content1 = "hello ";
             writeFile($file1, $content1);
@@ -145,9 +145,9 @@ for my $stream (0, 1)
                             $file2 => $content2,
                           );
 
-            ok zip([$file1, $file2] => $zipfile , Method => $method, 
+            ok zip([$file1, $file2] => $zipfile , Method => $method,
                                                   Zip64  => $zip64,
-                                                  Stream => $stream), " zip ok" 
+                                                  Stream => $stream), " zip ok"
                 or diag $ZipError ;
 
             for my $file ($file1, $file2)
@@ -163,4 +163,3 @@ for my $stream (0, 1)
 }
 
 # TODO add more error cases
-
index b0d6a43..ea7b1b2 100644 (file)
@@ -46,7 +46,7 @@ sub zipGetHeader
         or diag $UnzipError ;
     is $got, $content, "  got expected content" ;
 
-    my $gunz = new IO::Uncompress::Unzip \$out, Strict => 0
+    my $gunz = IO::Uncompress::Unzip->new( \$out, Strict => 0 )
         or diag "UnzipError is $IO::Uncompress::Unzip::UnzipError" ;
     ok $gunz, "  Created IO::Uncompress::Unzip object";
     my $hdr = $gunz->getHeaderInfo();
@@ -63,7 +63,7 @@ sub zipGetHeader
 {
     title "Check zip header default NAME & MTIME settings" ;
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my $content = "hello ";
     my $hdr ;
@@ -108,7 +108,7 @@ sub zipGetHeader
     is $hdr->{Time} >> 1 , $useTime >> 1 , "  Time is $useTime";
 
     title "Filehandle doesn't have default Name or Time" ;
-    my $fh = new IO::File "< $file1"
+    my $fh = IO::File->new( "< $file1" )
         or diag "Cannot open '$file1': $!\n" ;
     sleep 3 ;
     my $before = time ;
@@ -135,7 +135,7 @@ sub zipGetHeader
 {
     title "Check CanonicalName & FilterName";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my $content = "hello" ;
     writeFile($file1, $content);
@@ -222,7 +222,7 @@ for my $stream (0, 1)
 
             title "Stream $stream, Zip64 $zip64, Method $method";
 
-            my $lex = new LexFile my $file1;
+            my $lex = LexFile->new( my $file1 );
 
             my $content = "hello ";
             #writeFile($file1, $content);
@@ -241,7 +241,7 @@ for my $stream (0, 1)
 
             is $got, $content, "  content ok";
 
-            my $u = new IO::Uncompress::Unzip $file1
+            my $u = IO::Uncompress::Unzip->new( $file1 )
                 or diag $ZipError ;
 
             my $hdr = $u->getHeaderInfo();
@@ -266,7 +266,7 @@ for my $stream (0, 1)
             my $file1;
             my $file2;
             my $zipfile;
-            my $lex = new LexFile $file1, $file2, $zipfile;
+            my $lex = LexFile->new( $file1, $file2, $zipfile );
 
             my $content1 = "hello ";
             writeFile($file1, $content1);
index 641fb60..a7a1eb1 100644 (file)
@@ -22,8 +22,8 @@ BEGIN {
         unless defined $ENV{COMPRESS_ZLIB_RUN_ALL} or defined $ENV{COMPRESS_ZLIB_RUN_MOST};
 
     plan(skip_all => "IO::Compress::Bzip2 not available" )
-        unless eval { require IO::Compress::Bzip2; 
-                      require IO::Uncompress::Bunzip2; 
+        unless eval { require IO::Compress::Bzip2;
+                      require IO::Uncompress::Bunzip2;
                       1
                     } ;
 
@@ -86,7 +86,7 @@ for $content (@contents)
 
                 ok zip(\$content => \$zipped , Method => ZIP_CM_STORE,
                                                Zip64  => $zip64,
-                                               Stream => $stream), " zip ok" 
+                                               Stream => $stream), " zip ok"
                     or diag $ZipError ;
 
                 my $got ;
@@ -99,4 +99,3 @@ for $content (@contents)
         }
     }
 }
-
index 40c7fef..0a8e1ae 100644 (file)
@@ -49,9 +49,9 @@ EOM
 
 
 my $name = "n1";
-my $lex = new LexFile my $zipfile ;
+my $lex = LexFile->new( my $zipfile );
 
-my $x = new IO::Compress::Zip($zipfile, Name => $name++, AutoClose => 1);
+my $x = IO::Compress::Zip->new($zipfile, Name => $name++, AutoClose => 1);
 isa_ok $x, 'IO::Compress::Zip', '  $x' ;
 
 
@@ -67,10 +67,10 @@ push @buffers, undef;
 {
     open F, ">>$zipfile";
     print F "trailing";
-    close F;                    
+    close F;
 }
 
-my $u = new IO::Uncompress::Unzip $zipfile, Transparent => 1, MultiStream => 0
+my $u = IO::Uncompress::Unzip->new( $zipfile, Transparent => 1, MultiStream => 0 )
     or die "Cannot open $zipfile: $UnzipError";
 
 my @names ;
index 687b1f5..8d79a46 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
 }
 
 use lib qw(t t/compress);
+
 use strict;
 use warnings;
 use bytes;
@@ -38,7 +38,7 @@ EOM
     {
         title "AnyUncompress with Non-compressed data (File $file)" ;
 
-        my $lex = new LexFile my $output;
+        my $lex = LexFile->new( my $output );
         my $input ;
 
         if ($file) {
@@ -52,12 +52,12 @@ EOM
 
         my $unc ;
         my $keep = $buffer ;
-        $unc = new IO::Uncompress::AnyUncompress $input, -Transparent => 0 ;
+        $unc = IO::Uncompress::AnyUncompress->new( $input, -Transparent => 0 );
         ok ! $unc,"  no AnyUncompress object when -Transparent => 0" ;
         is $buffer, $keep ;
 
         $buffer = $keep ;
-        $unc = new IO::Uncompress::AnyUncompress \$buffer, -Transparent => 1 ;
+        $unc = IO::Uncompress::AnyUncompress->new( \$buffer, -Transparent => 1 );
         ok $unc, "  AnyUncompress object when -Transparent => 1"  ;
 
         my $uncomp ;
index 82a4414..bdb2eca 100644 (file)
@@ -26,75 +26,74 @@ BEGIN {
 
 {
     use Compress::Raw::Zlib ;
-        
+
     my %all;
     for my $symbol (@Compress::Raw::Zlib::DEFLATE_CONSTANTS)
     {
         eval "defined Compress::Raw::Zlib::$symbol" ;
         $all{$symbol} = ! $@ ;
-    }   
-           
+    }
+
     my $pkg = 1;
-   
-    for my $module ( qw( Adapter::Deflate RawDeflate Deflate Gzip Zip )) 
+
+    for my $module ( qw( Adapter::Deflate RawDeflate Deflate Gzip Zip ))
     {
-        ++ $pkg ; 
+        ++ $pkg ;
         eval <<EOM;
             package P$pkg;
             use Test::More ;
             use CompTestUtils;
-        
+
             use IO::Compress::$module () ;
-        
-            ::title "IO::Compress::$module - no import" ;       
+
+            ::title "IO::Compress::$module - no import" ;
 EOM
         is $@, "", "create package P$pkg";
         for my $symbol (@Compress::Raw::Zlib::DEFLATE_CONSTANTS)
         {
             if ( $all{$symbol})
             {
-                eval "package P$pkg; defined IO::Compress::${module}::$symbol ;";            
+                eval "package P$pkg; defined IO::Compress::${module}::$symbol ;";
                 is $@, "", "  has $symbol";
             }
             else
             {
                 ok 1, "  $symbol not available";
             }
-        }        
-    }    
-    
-    for my $module ( qw( Adapter::Deflate RawDeflate Deflate Gzip Zip )) 
+        }
+    }
+
+    for my $module ( qw( Adapter::Deflate RawDeflate Deflate Gzip Zip ))
     {
         for my $label (keys %Compress::Raw::Zlib::DEFLATE_CONSTANTS)
         {
-            ++ $pkg ; 
+            ++ $pkg ;
 
             eval <<EOM;
                 package P$pkg;
                 use Test::More ;
                 use CompTestUtils;
-            
+
                 use IO::Compress::$module qw(:$label) ;
-            
-                ::title "IO::Compress::$module - import :$label" ; 
-          
+
+                ::title "IO::Compress::$module - import :$label" ;
+
 EOM
             is $@, "", "create package P$pkg";
-            
+
             for my $symbol (@{ $Compress::Raw::Zlib::DEFLATE_CONSTANTS{$label} } )
             {
                 if ( $all{$symbol})
                 {
-                    eval "package P$pkg; defined $symbol ;";            
+                    eval "package P$pkg; defined $symbol ;";
                     is $@, "", "  has $symbol";
                 }
                 else
                 {
                     ok 1, "  $symbol not available";
-                }                               
-            }   
-        }     
-    }       
-    
-}
+                }
+            }
+        }
+    }
 
+}
index f90a3cb..ca6fc1a 100644 (file)
@@ -40,7 +40,7 @@ BEGIN {
 {
     title "EFS set in zip: Create a simple zip - language encoding flag set";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @names = ( 'alpha \N{GREEK SMALL LETTER ALPHA}',
                   'beta \N{GREEK SMALL LETTER BETA}',
@@ -48,12 +48,12 @@ BEGIN {
                   'delta \N{GREEK SMALL LETTER DELTA}'
                 ) ;
 
-    my @encoded = map { Encode::encode_utf8($_) } @names; 
+    my @encoded = map { Encode::encode_utf8($_) } @names;
 
     my @n = @names;
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name =>  $names[0], Efs => 1;
+    my $zip = IO::Compress::Zip->new( $file1,
+                    Name =>  $names[0], Efs => 1 );
 
     my $content = 'Hello, world!';
     ok $zip->print($content), "print";
@@ -66,7 +66,7 @@ BEGIN {
     ok $zip->close(), "closed";
 
     {
-        my $u = new IO::Uncompress::Unzip $file1, Efs => 1
+        my $u = IO::Uncompress::Unzip->new( $file1, Efs => 1 )
             or die "Cannot open $file1: $UnzipError";
 
         my $status;
@@ -88,7 +88,7 @@ BEGIN {
     }
 
     {
-        my $u = new IO::Uncompress::Unzip $file1, Efs => 0
+        my $u = IO::Uncompress::Unzip->new( $file1, Efs => 0 )
             or die "Cannot open $file1: $UnzipError";
 
         my $status;
@@ -107,14 +107,14 @@ BEGIN {
             or diag "Got " . Dumper(\@efs);
         is_deeply \@unzip_names, [@names], "Names round tripped"
             or diag "Got " . Dumper(\@unzip_names);
-    }    
+    }
 }
 
 
 {
     title "Create a simple zip - language encoding flag not set";
 
-    my $lex = new LexFile my $file1;
+    my $lex = LexFile->new( my $file1 );
 
     my @names = ( 'alpha \N{GREEK SMALL LETTER ALPHA}',
                   'beta \N{GREEK SMALL LETTER BETA}',
@@ -124,8 +124,8 @@ BEGIN {
 
     my @n = @names;
 
-    my $zip = new IO::Compress::Zip $file1,
-                    Name =>  $names[0], Efs => 0;
+    my $zip = IO::Compress::Zip->new( $file1,
+        &n