Compression Modules Update for EBCDIC
Paul Marquess [Sat, 10 Nov 2007 12:08:16 +0000 (12:08 +0000)]
From: "Paul Marquess" <Paul.Marquess@ntlworld.com>
Message-ID: <003f01c82392$6158b520$6501a8c0@myopwv.com>

p4raw-id: //depot/perl@32281

34 files changed:
ext/Compress/Raw/Zlib/Changes
ext/Compress/Raw/Zlib/README
ext/Compress/Raw/Zlib/lib/Compress/Raw/Zlib.pm
ext/Compress/Zlib/Changes
ext/Compress/Zlib/Makefile.PL
ext/Compress/Zlib/README
ext/Compress/Zlib/lib/Compress/Zlib.pm
ext/IO_Compress_Base/Changes
ext/IO_Compress_Base/README
ext/IO_Compress_Base/lib/IO/Compress/Base.pm
ext/IO_Compress_Base/lib/IO/Compress/Base/Common.pm
ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm
ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm
ext/IO_Compress_Zlib/Changes
ext/IO_Compress_Zlib/Makefile.PL
ext/IO_Compress_Zlib/README
ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm
ext/IO_Compress_Zlib/lib/IO/Compress/RawDeflate.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Zip.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Zip/Constants.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Constants.pm
ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Extra.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Identity.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Inflate.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/AnyInflate.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/Gunzip.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/Inflate.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/RawInflate.pm
ext/IO_Compress_Zlib/lib/IO/Uncompress/Unzip.pm
t/lib/compress/truncate.pl

index 6efaaf6..9cae2af 100644 (file)
@@ -1,6 +1,10 @@
 CHANGES
 -------
 
+  2.008 2 November 2007
+
+      * Minor documentation changes in README
+
   2.006 1 September 2007
 
       * Makefile.PL
index 58ef326..a296c4a 100644 (file)
@@ -1,9 +1,9 @@
 
-                             Compress::Raw::Zlib
+                             Compress-Raw-Zlib
 
-                             Version 2.006
+                             Version 2.008
 
-                            1st September 2007
+                             2nd November 2007
 
 
        Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
@@ -33,7 +33,7 @@ This module provides a Perl interface to the zlib compression library.
 PREREQUISITES
 -------------
 
-Before you can build Compress::Raw::Zlib you need to have the following
+Before you can build Compress-Raw-Zlib you need to have the following
 installed on your system:
 
 
@@ -43,10 +43,10 @@ installed on your system:
 
 
 
-By default, Compress::Raw::Zlib will build its own private copy of the 
+By default, Compress-Raw-Zlib will build its own private copy of the 
 zlib library. If you want to use a different version of 
 zlib, follow the instructions in the section called 
-"Controlling the version of zlib used by Compress::Raw::Zlib" 
+"Controlling the version of zlib used by Compress-Raw-Zlib" 
 later in this document.
 
 
@@ -66,17 +66,17 @@ using this sequence of commands:
 INSTALLATION
 ------------
 
-To install Compress::Raw::Zlib, run the command below:
+To install Compress-Raw-Zlib, run the command below:
 
     make install
 
 
 
 
-Controlling the version of zlib used by Compress::Raw::Zlib 
+Controlling the version of zlib used by Compress-Raw-Zlib 
 ----------------------------------------------------------
 
-Compress::Raw::Zlib interfaces to the zlib compression library. There
+Compress-Raw-Zlib interfaces to the zlib compression library. There
 are three options available to control which version/instance of the 
 zlib library is used:
 
@@ -120,7 +120,7 @@ before building this module.
   --------
   
   For option 2, fetch a copy of the zlib source distribution from
-  http://www.zlib.org and unpack it into the Compress::Raw::Zlib source 
+  http://www.zlib.org and unpack it into the Compress-Raw-Zlib source 
   directory. Assuming you have fetched zlib 1.2.3, 
   it will create a directory called zlib-1.2.3. 
   
@@ -170,13 +170,13 @@ Setting the Gzip OS Code
 
 Every gzip stream stores a byte in its header to identify the Operating
 System that was used to create the gzip stream. When you build
-Compress::Raw::Zlib it will attempt to determine the value that is correct for
+Compress-Raw-Zlib it will attempt to determine the value that is correct for
 your Operating System. This will then be used by IO::Gzip as the default
 value for the OS byte in all gzip headers it creates. 
  
 The variable GZIP_OS_CODE in the config.in file controls the setting of
-this value when building Compress::Raw::Zlib. If GZIP_OS_CODE is set to
-AUTO_DETECT, Compress::Raw::Zlib will attempt to determine the correct value for
+this value when building Compress-Raw-Zlib. If GZIP_OS_CODE is set to
+AUTO_DETECT, Compress-Raw-Zlib will attempt to determine the correct value for
 your Operating System.
 
 Alternatively, you can override auto-detection of the default OS code and
@@ -190,7 +190,7 @@ See RFC 1952 for valid OS codes that can be used.
 If you are running one of the less popular Operating Systems, it is
 possible that the default value picked by this module is incorrect or the
 default value (3) is used when there is a better value available. When
-Compress::Raw::Zlib cannot determine what operating system you are running, it
+Compress-Raw-Zlib cannot determine what operating system you are running, it
 will use the default value 3 for the OS code.
 
 If you find you have to change this value, because you think the value auto
@@ -281,7 +281,7 @@ The solution is either:
 HP-UX Notes
 -----------
 
-I've had a report that when building Compress::Raw::Zlib under HP-UX that it
+I've had a report that when building Compress-Raw-Zlib under HP-UX that it
 is necessary to have first built the zlib library with the -fpic
 option.
 
@@ -314,8 +314,8 @@ Win32 Notes
 -----------
 
 If you are running Activestate Perl (from http://www.activestate.com),
-it ships with a pre-compiled version of Compress::Raw::Zlib. To check if a
-newer version of Compress::Raw::Zlib is available run this from the command
+it ships with a pre-compiled version of Compress-Raw-Zlib. To check if a
+newer version of Compress-Raw-Zlib is available run this from the command
 prompt
 
     C:\> ppm verify -upgrade Compress-Zlib
@@ -330,19 +330,19 @@ to a C compiler, you will not be able to build and install this module.
 Win32 & Cygwin Notes
 --------------------
 
-It is not possible to install Compress::Raw::Zlib using the CPAN shell.
-This is because the Compress::Raw::Zlib DLL is itself used by the CPAN shell
+It is not possible to install Compress-Raw-Zlib using the CPAN shell.
+This is because the Compress-Raw-Zlib DLL is itself used by the CPAN shell
 and it is impossible to remove a DLL while it is already loaded under
 Windows.
 
-The workaround is to install Compress::Raw::Zlib manually using the
+The workaround is to install Compress-Raw-Zlib manually using the
 instructions given at the start of this file.
 
 
 FEEDBACK
 --------
 
-How to report a problem with Compress::Raw::Zlib.
+How to report a problem with Compress-Raw-Zlib.
 
 To help me help you, I need all of the following information:
 
@@ -359,24 +359,8 @@ To help me help you, I need all of the following information:
         If your perl does not understand the "-V" option it is too
         old. This module needs Perl version 5.004 or better.     
 
-     b. The version of Compress::Raw::Zlib you have. 
-        If you have successfully installed Compress::Raw::Zlib, this one-liner
-        will tell you:
-
-           perl -MCompress::Raw::Zlib -e 'print qq[ver $Compress::Raw::Zlib::VERSION\n]'
-
-        If you areplete* output from running this
-     
-            perl -V
-     
-        Do not edit the output in any way.
-        Note, I want you to run "perl -V" and NOT "perl -v".
-     
-        If your perl does not understand the "-V" option it is too
-        old. This module needs Perl version 5.004 or better.     
-
-     b. The version of Compress::Raw::Zlib you have. 
-        If you have successfully installed Compress::Raw::Zlib, this one-liner
+     b. The version of Compress-Raw-Zlib you have. 
+        If you have successfully installed Compress-Raw-Zlib, this one-liner
         will tell you:
 
            perl -MCompress::Raw::Zlib -e 'print qq[ver $Compress::Raw::Zlib::VERSION\n]'
@@ -385,14 +369,14 @@ To help me help you, I need all of the following information:
 
            perl -MCompress::Raw::Zlib -e "print qq[ver $Compress::Raw::Zlib::VERSION\n]"
 
-        If you haven't installed Compress::Raw::Zlib then search Compress::Raw::Zlib.pm
+        If you haven't installed Compress-Raw-Zlib then search Compress::Raw::Zlib.pm
         for a line like this:
 
-          $VERSION = "1.05" ;
+          $VERSION = "2.008" ;
 
 
      c. The version of zlib you have used.
-        If you have successfully installed Compress::Raw::Zlib, this one-liner
+        If you have successfully installed Compress-Raw-Zlib, this one-liner
         will tell you:
 
           perl -MCompress::Raw::Zlib -e "print q[zlib ver ]. Compress::Raw::Zlib::ZLIB_VERSION.qq[\n]" 
@@ -401,8 +385,8 @@ To help me help you, I need all of the following information:
         If not, look at the beginning of the file zlib.h. 
 
 
- 2. If you are having problems building Compress::Raw::Zlib, send me a
-    complete log of what happened. Start by unpacking the Compress::Raw::Zlib
+ 2. If you are having problems building Compress-Raw-Zlib, send me a
+    complete log of what happened. Start by unpacking the Compress-Raw-Zlib
     module into a fresh directory and keep a log of all the steps
 
         [edit config.in, if necessary]
index 4839ca2..9836740 100644 (file)
@@ -13,7 +13,7 @@ use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
index 3ee2c93..835a47d 100644 (file)
@@ -1,6 +1,10 @@
 CHANGES
 -------
 
+  2.008 2 November 2007
+
+      * Minor documentation changes in README
+
   2.007 22 September 20007
 
       * lib/Compress/Zlib.pm -- 1.x Backward Compatability issues
index 5c7e838..5855218 100755 (executable)
@@ -3,7 +3,7 @@
 use strict ;
 require 5.004 ;
 
-$::VERSION = '2.006' ;
+$::VERSION = '2.008' ;
 
 use private::MakeUtil;
 use ExtUtils::MakeMaker 5.16 ;
index 13f3996..8fd701b 100644 (file)
@@ -1,9 +1,9 @@
 
-                             Compress::Zlib
+                             Compress-Zlib
 
-                             Version 2.007
+                             Version 2.008
 
-                            22nd September 2007
+                             2nd November 2007
 
 
        Copyright (c) 1995-2007 Paul Marquess. All rights reserved.
@@ -26,13 +26,13 @@ This module provides a Perl interface to the zlib compression library.
 PREREQUISITES
 -------------
 
-Before you can build Compress::Zlib you need to have the following
+Before you can build Compress-Zlib you need to have the following
 installed on your system:
 
 
     * Perl 5.004 or better. 
     * Compress::Raw::Zlib
-    * IO::Compress::Zlib
+    * IO::Compress::Gzip
 
 
 
@@ -53,7 +53,7 @@ using this sequence of commands:
 INSTALLATION
 ------------
 
-To install Compress::Zlib, run the command below:
+To install Compress-Zlib, run the command below:
 
     make install
 
@@ -68,7 +68,7 @@ TROUBLESHOOTING
 Undefined Symbol gzsetparams
 ----------------------------
 
-If you get the error shown below when you run the Compress::Zlib test
+If you get the error shown below when you run the Compress-Zlib test
 harness it probably means you are running a copy of zlib that is
 version 1.0.5 or older.
 
@@ -107,7 +107,7 @@ Try removing the one you don't want to use and rebuild.
 FEEDBACK
 --------
 
-How to report a problem with Compress::Zlib.
+How to report a problem with Compress-Zlib.
 
 To help me help you, I need all of the following information:
 
@@ -124,24 +124,8 @@ To help me help you, I need all of the following information:
         If your perl does not understand the "-V" option it is too
         old. This module needs Perl version 5.004 or better.     
 
-     b. The version of Compress::Zlib you have. 
-        If you have successfully installed Compress::Zlib, this one-liner
-        will tell you:
-
-           perl -MCompress::Zlib -e 'print qq[ver $Compress::Zlib::VERSION\n]'
-
-        If you areplete* output from running this
-     
-            perl -V
-     
-        Do not edit the output in any way.
-        Note, I want you to run "perl -V" and NOT "perl -v".
-     
-        If your perl does not understand the "-V" option it is too
-        old. This module needs Perl version 5.004 or better.     
-
-     b. The version of Compress::Zlib you have. 
-        If you have successfully installed Compress::Zlib, this one-liner
+     b. The version of Compress-Zlib you have. 
+        If you have successfully installed Compress-Zlib, this one-liner
         will tell you:
 
            perl -MCompress::Zlib -e 'print qq[ver $Compress::Zlib::VERSION\n]'
@@ -150,15 +134,15 @@ To help me help you, I need all of the following information:
 
            perl -MCompress::Zlib -e "print qq[ver $Compress::Zlib::VERSION\n]"
 
-        If you haven't installed Compress::Zlib then search Compress::Zlib.pm
+        If you haven't installed Compress-Zlib then search Compress::Zlib.pm
         for a line like this:
 
-          $VERSION = "1.05" ;
+          $VERSION = "2.008" ;
 
 
 
- 2. If you are having problems building Compress::Zlib, send me a
-    complete log of what happened. Start by unpacking the Compress::Zlib
+ 2. If you are having problems building Compress-Zlib, send me a
+    complete log of what happened. Start by unpacking the Compress-Zlib
     module into a fresh directory and keep a log of all the steps
 
         [edit config.in, if necessary]
index ec29575..9e02746 100644 (file)
@@ -8,17 +8,17 @@ use Carp ;
 use IO::Handle ;
 use Scalar::Util qw(dualvar);
 
-use IO::Compress::Base::Common 2.006 ;
-use Compress::Raw::Zlib 2.006 ;
-use IO::Compress::Gzip 2.006 ;
-use IO::Uncompress::Gunzip 2.006 ;
+use IO::Compress::Base::Common 2.008 ;
+use Compress::Raw::Zlib 2.008 ;
+use IO::Compress::Gzip 2.008 ;
+use IO::Uncompress::Gunzip 2.008 ;
 
 use strict ;
 use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
 
-$VERSION = '2.007';
+$VERSION = '2.008';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
@@ -452,7 +452,7 @@ sub inflate
 
 package Compress::Zlib ;
 
-use IO::Compress::Gzip::Constants 2.006 ;
+use IO::Compress::Gzip::Constants 2.008 ;
 
 sub memGzip($)
 {
index 5cba002..13803d1 100644 (file)
@@ -1,6 +1,10 @@
 CHANGES
 -------
 
+  2.008 2 November 2007
+
+      * Minor documentation changes in README
+
   2.006 1 September 20007
 
       * Makefile.PL
index 77ff580..2f71ec4 100644 (file)
@@ -1,9 +1,9 @@
 
-                             IO::Compress::Base
+                             IO-Compress-Base
 
-                             Version 2.006
+                             Version 2.008
 
-                            1st September 2007
+                             2nd November 2007
 
 
        Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
@@ -27,7 +27,7 @@ modules.
 PREREQUISITES
 -------------
 
-Before you can build IO::Compress::Base you need to have the following
+Before you can build IO-Compress-Base you need to have the following
 installed on your system:
 
 
@@ -52,7 +52,7 @@ using this sequence of commands:
 INSTALLATION
 ------------
 
-To install IO::Compress::Base, run the command below:
+To install IO-Compress-Base, run the command below:
 
     make install
 
@@ -77,7 +77,7 @@ TROUBLESHOOTING
 FEEDBACK
 --------
 
-How to report a problem with IO::Compress::Base.
+How to report a problem with IO-Compress-Base.
 
 To help me help you, I need all of the following information:
 
@@ -94,24 +94,8 @@ To help me help you, I need all of the following information:
         If your perl does not understand the "-V" option it is too
         old. This module needs Perl version 5.004 or better.     
 
-     b. The version of IO::Compress::Base you have. 
-        If you have successfully installed IO::Compress::Base, this one-liner
-        will tell you:
-
-           perl -MIO::Compress::Base -e 'print qq[ver $IO::Compress::Base::VERSION\n]'
-
-        If you areplete* output from running this
-     
-            perl -V
-     
-        Do not edit the output in any way.
-        Note, I want you to run "perl -V" and NOT "perl -v".
-     
-        If your perl does not understand the "-V" option it is too
-        old. This module needs Perl version 5.004 or better.     
-
-     b. The version of IO::Compress::Base you have. 
-        If you have successfully installed IO::Compress::Base, this one-liner
+     b. The version of IO-Compress-Base you have. 
+        If you have successfully installed IO-Compress-Base, this one-liner
         will tell you:
 
            perl -MIO::Compress::Base -e 'print qq[ver $IO::Compress::Base::VERSION\n]'
@@ -120,15 +104,15 @@ To help me help you, I need all of the following information:
 
            perl -MIO::Compress::Base -e "print qq[ver $IO::Compress::Base::VERSION\n]"
 
-        If you haven't installed IO::Compress::Base then search IO::Compress::Base.pm
+        If you haven't installed IO-Compress-Base then search IO::Compress::Base.pm
         for a line like this:
 
-          $VERSION = "1.05" ;
+          $VERSION = "2.008" ;
 
 
 
- 2. If you are having problems building IO::Compress::Base, send me a
-    complete log of what happened. Start by unpacking the IO::Compress::Base
+ 2. If you are having problems building IO-Compress-Base, send me a
+    complete log of what happened. Start by unpacking the IO-Compress-Base
     module into a fresh directory and keep a log of all the steps
 
         [edit config.in, if necessary]
index 4545290..c77be0d 100644 (file)
@@ -6,7 +6,7 @@ require 5.004 ;
 use strict ;
 use warnings;
 
-use IO::Compress::Base::Common 2.006 ;
+use IO::Compress::Base::Common 2.008 ;
 
 use IO::File ;
 use Scalar::Util qw(blessed readonly);
@@ -20,7 +20,7 @@ use bytes;
 our (@ISA, $VERSION);
 @ISA    = qw(Exporter IO::File);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 #Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16.
 
index 99c2084..ddd2335 100644 (file)
@@ -11,7 +11,7 @@ use File::GlobMapper;
 require Exporter;
 our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
 @ISA = qw(Exporter);
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 @EXPORT = qw( isaFilehandle isaFilename whatIsInput whatIsOutput 
               isaFileGlobString cleanFileGlobString oneTarget
index e943411..998de37 100644 (file)
@@ -4,16 +4,16 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.006 qw(createSelfTiedObject);
+use IO::Compress::Base::Common 2.008 qw(createSelfTiedObject);
 
-use IO::Uncompress::Base 2.006 ;
+use IO::Uncompress::Base 2.008 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $AnyUncompressError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -27,18 +27,18 @@ Exporter::export_ok_tags('all');
 
 BEGIN
 {
-   eval ' use IO::Uncompress::Adapter::Inflate 2.006 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.006 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.006 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.006 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.006 ;';
-   eval ' use IO::Uncompress::UnLzop 2.006 ;';
-   eval ' use IO::Uncompress::Gunzip 2.006 ;';
-   eval ' use IO::Uncompress::Inflate 2.006 ;';
-   eval ' use IO::Uncompress::RawInflate 2.006 ;';
-   eval ' use IO::Uncompress::Unzip 2.006 ;';
-   eval ' use IO::Uncompress::UnLzf 2.006 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.008 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.008 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.008 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.008 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.008 ;';
+   eval ' use IO::Uncompress::UnLzop 2.008 ;';
+   eval ' use IO::Uncompress::Gunzip 2.008 ;';
+   eval ' use IO::Uncompress::Inflate 2.008 ;';
+   eval ' use IO::Uncompress::RawInflate 2.008 ;';
+   eval ' use IO::Uncompress::Unzip 2.008 ;';
+   eval ' use IO::Uncompress::UnLzf 2.008 ;';
 }
 
 sub new
@@ -56,7 +56,7 @@ sub anyuncompress
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common 2.006 qw(:Parse);
+    use IO::Compress::Base::Common 2.008 qw(:Parse);
     return ( 'RawInflate' => [1, 1, Parse_boolean,  0] ) ;
 }
 
index 02d7804..f4ab1e4 100644 (file)
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
 @ISA    = qw(Exporter IO::File);
 
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 use constant G_EOF => 0 ;
 use constant G_ERR => -1 ;
 
-use IO::Compress::Base::Common 2.006 ;
+use IO::Compress::Base::Common 2.008 ;
 #use Parse::Parameters ;
 
 use IO::File ;
index 959773d..4c0773c 100644 (file)
@@ -1,6 +1,17 @@
 CHANGES
 -------
 
+  2.008 2 November 2007
+
+      * Minor documentation changes in README
+
+      * t/compress/truncate.pl
+        EBCDIC Cleanup.
+
+      * IO::Compress::Gzip::Constants.pm
+        Tidied up the character classes used to defined invalid 
+        FNAME & FCOMMENT fields for EBCDIC.
+
   2.006 1 September 2007
 
       * Makefile.PL
index fbc3460..af9e6dd 100644 (file)
@@ -3,7 +3,7 @@
 use strict ;
 require 5.004 ;
 
-$::VERSION = '2.006' ;
+$::VERSION = '2.008' ;
 
 use private::MakeUtil;
 use ExtUtils::MakeMaker 5.16 ;
index 18e7d30..4c616e7 100644 (file)
@@ -1,9 +1,9 @@
 
-                             IO::Compress::Zlib
+                             IO-Compress-Zlib
 
-                             Version 2.006
+                             Version 2.008
 
-                            1st September 2007
+                             2nd November 2007
 
 
        Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
@@ -27,7 +27,7 @@ This module provides a Perl interface to allow reading and writing of RFC
 PREREQUISITES
 -------------
 
-Before you can build IO::Compress::Zlib you need to have the following
+Before you can build IO-Compress-Zlib you need to have the following
 installed on your system:
 
 
@@ -54,7 +54,7 @@ using this sequence of commands:
 INSTALLATION
 ------------
 
-To install IO::Compress::Zlib, run the command below:
+To install IO-Compress-Zlib, run the command below:
 
     make install
 
@@ -76,7 +76,7 @@ TROUBLESHOOTING
 The t/020isize Test Suite
 ------------------------
 
-This test suite checks that IO::Compress::Zlib can cope with gzip files
+This test suite checks that IO-Compress-Zlib can cope with gzip files
 that are larger than 2^32 bytes.
 
 By default these test are NOT run when you do a "make test". If you
@@ -86,7 +86,7 @@ Be warned though -- this test suite can take hours to run on a slow box.
 
 Also, due to the way the tests are constructed, some architectures will
 run out of memory during this test. This should not be considered a bug
-in the IO::Compress::Zlib module.
+in the IO-Compress-Zlib module.
 
 
 
@@ -94,7 +94,7 @@ in the IO::Compress::Zlib module.
 FEEDBACK
 --------
 
-How to report a problem with IO::Compress::Zlib.
+How to report a problem with IO-Compress-Zlib.
 
 To help me help you, I need all of the following information:
 
@@ -111,41 +111,25 @@ To help me help you, I need all of the following information:
         If your perl does not understand the "-V" option it is too
         old. This module needs Perl version 5.004 or better.     
 
-     b. The version of IO::Compress::Zlib you have. 
-        If you have successfully installed IO::Compress::Zlib, this one-liner
+     b. The version of IO-Compress-Zlib you have. 
+        If you have successfully installed IO-Compress-Zlib, this one-liner
         will tell you:
 
-           perl -MIO::Compress::Zlib -e 'print qq[ver $IO::Compress::Zlib::VERSION\n]'
-
-        If you areplete* output from running this
-     
-            perl -V
-     
-        Do not edit the output in any way.
-        Note, I want you to run "perl -V" and NOT "perl -v".
-     
-        If your perl does not understand the "-V" option it is too
-        old. This module needs Perl version 5.004 or better.     
-
-     b. The version of IO::Compress::Zlib you have. 
-        If you have successfully installed IO::Compress::Zlib, this one-liner
-        will tell you:
-
-           perl -MIO::Compress::Zlib -e 'print qq[ver $IO::Compress::Zlib::VERSION\n]'
+           perl -MIO::Compress::Gzip -e 'print qq[ver $IO::Compress::Gzip::VERSION\n]'
 
         If you are  running windows use this
 
-           perl -MIO::Compress::Zlib -e "print qq[ver $IO::Compress::Zlib::VERSION\n]"
+           perl -MIO::Compress::Gzip -e "print qq[ver $IO::Compress::Gzip::VERSION\n]"
 
-        If you haven't installed IO::Compress::Zlib then search IO::Compress::Zlib.pm
+        If you haven't installed IO-Compress-Zlib then search IO::Compress::Gzip.pm
         for a line like this:
 
-          $VERSION = "1.05" ;
+          $VERSION = "2.008" ;
 
 
 
- 2. If you are having problems building IO::Compress::Zlib, send me a
-    complete log of what happened. Start by unpacking the IO::Compress::Zlib
+ 2. If you are having problems building IO-Compress-Zlib, send me a
+    complete log of what happened. Start by unpacking the IO-Compress-Zlib
     module into a fresh directory and keep a log of all the steps
 
         [edit config.in, if necessary]
index 9190916..a712127 100644 (file)
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(:Status);
+use IO::Compress::Base::Common  2.008 qw(:Status);
 
-use Compress::Raw::Zlib  2.006 qw(Z_OK Z_FINISH MAX_WBITS) ;
+use Compress::Raw::Zlib  2.008 qw(Z_OK Z_FINISH MAX_WBITS) ;
 our ($VERSION);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 sub mkCompObject
 {
index 1269418..83ccfeb 100644 (file)
@@ -4,10 +4,10 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(:Status);
+use IO::Compress::Base::Common  2.008 qw(:Status);
 our ($VERSION);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 sub mkCompObject
 {
index 76b83db..7a8e172 100644 (file)
@@ -6,16 +6,16 @@ use bytes;
 
 require Exporter ;
 
-use IO::Compress::RawDeflate 2.006 ;
+use IO::Compress::RawDeflate 2.008 ;
 
-use Compress::Raw::Zlib  2.006 ;
-use IO::Compress::Zlib::Constants 2.006 ;
-use IO::Compress::Base::Common  2.006 qw(createSelfTiedObject);
+use Compress::Raw::Zlib  2.008 ;
+use IO::Compress::Zlib::Constants 2.008 ;
+use IO::Compress::Base::Common  2.008 qw(createSelfTiedObject);
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $DeflateError = '';
 
 @ISA    = qw(Exporter IO::Compress::RawDeflate);
index 360fa7f..8bf64fe 100644 (file)
@@ -8,12 +8,12 @@ use warnings;
 use bytes;
 
 
-use IO::Compress::RawDeflate 2.006 ;
+use IO::Compress::RawDeflate 2.008 ;
 
-use Compress::Raw::Zlib  2.006 ;
-use IO::Compress::Base::Common  2.006 qw(:Status :Parse createSelfTiedObject);
-use IO::Compress::Gzip::Constants 2.006 ;
-use IO::Compress::Zlib::Extra 2.006 ;
+use Compress::Raw::Zlib  2.008 ;
+use IO::Compress::Base::Common  2.008 qw(:Status :Parse createSelfTiedObject);
+use IO::Compress::Gzip::Constants 2.008 ;
+use IO::Compress::Zlib::Extra 2.008 ;
 
 BEGIN
 {
@@ -27,7 +27,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $GzipError = '' ;
 
 @ISA    = qw(Exporter IO::Compress::RawDeflate);
index 2b6a49d..47ed0e8 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.006';
+$VERSION = '2.008';
 
 @ISA = qw(Exporter);
 
@@ -96,8 +96,8 @@ use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE    => GZIP_FEXTRA_MAX_SIZE -
 if (ord('A') == 193)
 {
     # EBCDIC 
-    $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x03\x37\x2d-\x2f\x16\x05\x15\x0b-\x13\x3c\x3d\x32\x26\x18\x19\x3f\x27\x1c-\x1f\x07\x20-\x25\x06\x17\x28-\x2c\x09\x0a\x1b\x30\x31\x1a\x33-\x36\x08\x38-\x3b\x04\x14\x3e\xff]';
-    $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x03\x37\x2d-\x2f\x16\x05\x15\x0b-\x0f\x11-\x13\x3c\x3d\x32\x26\x18\x19\x3f\x27\x1c-\x1f\x07\x20-\x25\x06\x17\x28-\x2c\x09\x0a\x1b\x30\x31\x1a\x33-\x36\x08\x38-\x3b\x04\x14\x3e\xff]'; 
+    $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x3f\xff]';
+    $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x0a\x11-\x14\x16-\x3f\xff]';
     
 }
 else
index bf85d33..b2f5d26 100644 (file)
@@ -7,16 +7,16 @@ use warnings;
 use bytes;
 
 
-use IO::Compress::Base 2.006 ;
-use IO::Compress::Base::Common  2.006 qw(:Status createSelfTiedObject);
-use IO::Compress::Adapter::Deflate  2.006 ;
+use IO::Compress::Base 2.008 ;
+use IO::Compress::Base::Common  2.008 qw(:Status createSelfTiedObject);
+use IO::Compress::Adapter::Deflate  2.008 ;
 
 require Exporter ;
 
 
 our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $RawDeflateError = '';
 
 @ISA = qw(Exporter IO::Compress::Base);
@@ -143,8 +143,8 @@ sub getZlibParams
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.006 qw(:Parse);
-    use Compress::Raw::Zlib  2.006 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+    use IO::Compress::Base::Common  2.008 qw(:Parse);
+    use Compress::Raw::Zlib  2.008 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
 
     
     return (
index fb59059..c5c0662 100644 (file)
@@ -4,21 +4,21 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(:Status createSelfTiedObject);
-use IO::Compress::RawDeflate 2.006 ;
-use IO::Compress::Adapter::Deflate 2.006 ;
-use IO::Compress::Adapter::Identity 2.006 ;
-use IO::Compress::Zlib::Extra 2.006 ;
-use IO::Compress::Zip::Constants 2.006 ;
+use IO::Compress::Base::Common  2.008 qw(:Status createSelfTiedObject);
+use IO::Compress::RawDeflate 2.008 ;
+use IO::Compress::Adapter::Deflate 2.008 ;
+use IO::Compress::Adapter::Identity 2.008 ;
+use IO::Compress::Zlib::Extra 2.008 ;
+use IO::Compress::Zip::Constants 2.008 ;
 
 
-use Compress::Raw::Zlib  2.006 qw(crc32) ;
+use Compress::Raw::Zlib  2.008 qw(crc32) ;
 BEGIN
 {
     eval { require IO::Compress::Adapter::Bzip2 ; 
-           import  IO::Compress::Adapter::Bzip2 2.006 ; 
+           import  IO::Compress::Adapter::Bzip2 2.008 ; 
            require IO::Compress::Bzip2 ; 
-           import  IO::Compress::Bzip2 2.006 ; 
+           import  IO::Compress::Bzip2 2.008 ; 
          } ;
 }
 
@@ -27,7 +27,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $ZipError = '';
 
 @ISA = qw(Exporter IO::Compress::RawDeflate);
@@ -441,8 +441,8 @@ sub getExtraParams
 {
     my $self = shift ;
 
-    use IO::Compress::Base::Common  2.006 qw(:Parse);
-    use Compress::Raw::Zlib  2.006 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+    use IO::Compress::Base::Common  2.008 qw(:Parse);
+    use Compress::Raw::Zlib  2.008 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
 
     my @Bzip2 = ();
     
index e679566..4732c16 100644 (file)
@@ -7,7 +7,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 @ISA = qw(Exporter);
 
@@ -31,6 +31,7 @@ $VERSION = '2.006';
     ZIP_GP_FLAG_STREAMING_MASK
     ZIP_GP_FLAG_PATCHED_MASK
     ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK
+    ZIP_GP_FLAG_LZMA_EOS_PRESENT
 
     ZIP_EXTRA_ID_ZIP64
     ZIP_EXTRA_ID_EXT_TIMESTAMP
@@ -57,6 +58,7 @@ use constant ZIP_GP_FLAG_ENCRYPTED_MASK        => 1 ;
 use constant ZIP_GP_FLAG_STREAMING_MASK        => 8 ;
 use constant ZIP_GP_FLAG_PATCHED_MASK          => 32 ;
 use constant ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK => 64 ;
+use constant ZIP_GP_FLAG_LZMA_EOS_PRESENT      => 2 ;
 
 # Internal File Attributes
 use constant ZIP_IFA_TEXT_MASK                 => 1;
index 3b5cbff..4781669 100644 (file)
@@ -9,7 +9,7 @@ require Exporter;
 
 our ($VERSION, @ISA, @EXPORT);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 @ISA = qw(Exporter);
 
index 0cc3f5c..59919b8 100644 (file)
@@ -8,9 +8,9 @@ use bytes;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
-use IO::Compress::Gzip::Constants 2.006 ;
+use IO::Compress::Gzip::Constants 2.008 ;
 
 sub ExtraFieldError
 {
index be7253b..a55f321 100644 (file)
@@ -4,13 +4,13 @@ use warnings;
 use strict;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(:Status);
+use IO::Compress::Base::Common  2.008 qw(:Status);
 
 our ($VERSION);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
-use Compress::Raw::Zlib  2.006 ();
+use Compress::Raw::Zlib  2.008 ();
 
 sub mkUncompObject
 {
index 2d3fcb8..db8161e 100644 (file)
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(:Status);
-use Compress::Raw::Zlib  2.006 qw(Z_OK Z_DATA_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+use IO::Compress::Base::Common  2.008 qw(:Status);
+use Compress::Raw::Zlib  2.008 qw(Z_OK Z_DATA_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
 
 our ($VERSION);
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 
 
index 0917c97..6882fda 100644 (file)
@@ -6,22 +6,22 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(createSelfTiedObject);
+use IO::Compress::Base::Common  2.008 qw(createSelfTiedObject);
 
-use IO::Uncompress::Adapter::Inflate  2.006 ();
+use IO::Uncompress::Adapter::Inflate  2.008 ();
 
 
-use IO::Uncompress::Base  2.006 ;
-use IO::Uncompress::Gunzip  2.006 ;
-use IO::Uncompress::Inflate  2.006 ;
-use IO::Uncompress::RawInflate  2.006 ;
-use IO::Uncompress::Unzip  2.006 ;
+use IO::Uncompress::Base  2.008 ;
+use IO::Uncompress::Gunzip  2.008 ;
+use IO::Uncompress::Inflate  2.008 ;
+use IO::Uncompress::RawInflate  2.008 ;
+use IO::Uncompress::Unzip  2.008 ;
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $AnyInflateError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -48,7 +48,7 @@ sub anyinflate
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.006 qw(:Parse);
+    use IO::Compress::Base::Common  2.008 qw(:Parse);
     return ( 'RawInflate' => [1, 1, Parse_boolean,  0] ) ;
 }
 
index f4ba32e..5ea345d 100644 (file)
@@ -9,12 +9,12 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.006 ;
+use IO::Uncompress::RawInflate 2.008 ;
 
-use Compress::Raw::Zlib 2.006 qw( crc32 ) ;
-use IO::Compress::Base::Common 2.006 qw(:Status createSelfTiedObject);
-use IO::Compress::Gzip::Constants 2.006 ;
-use IO::Compress::Zlib::Extra 2.006 ;
+use Compress::Raw::Zlib 2.008 qw( crc32 ) ;
+use IO::Compress::Base::Common 2.008 qw(:Status createSelfTiedObject);
+use IO::Compress::Gzip::Constants 2.008 ;
+use IO::Compress::Zlib::Extra 2.008 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
 
 $GunzipError = '';
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 
 sub new
 {
@@ -47,7 +47,7 @@ sub gunzip
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.006 qw(:Parse);
+    use IO::Compress::Base::Common  2.008 qw(:Parse);
     return ( 'ParseExtra' => [1, 1, Parse_boolean,  0] ) ;
 }
 
index 6888ec2..d89786e 100644 (file)
@@ -5,15 +5,15 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.006 qw(:Status createSelfTiedObject);
-use IO::Compress::Zlib::Constants 2.006 ;
+use IO::Compress::Base::Common  2.008 qw(:Status createSelfTiedObject);
+use IO::Compress::Zlib::Constants 2.008 ;
 
-use IO::Uncompress::RawInflate  2.006 ;
+use IO::Uncompress::RawInflate  2.008 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $InflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::RawInflate );
index 1a70466..068b260 100644 (file)
@@ -5,11 +5,11 @@ use strict ;
 use warnings;
 use bytes;
 
-use Compress::Raw::Zlib  2.006 ;
-use IO::Compress::Base::Common  2.006 qw(:Status createSelfTiedObject);
+use Compress::Raw::Zlib  2.008 ;
+use IO::Compress::Base::Common  2.008 qw(:Status createSelfTiedObject);
 
-use IO::Uncompress::Base  2.006 ;
-use IO::Uncompress::Adapter::Inflate  2.006 ;
+use IO::Uncompress::Base  2.008 ;
+use IO::Uncompress::Adapter::Inflate  2.008 ;
 
 
 
@@ -17,7 +17,7 @@ use IO::Uncompress::Adapter::Inflate  2.006 ;
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $RawInflateError = '';
 
 @ISA    = qw( Exporter IO::Uncompress::Base );
index c482fc2..d961c34 100644 (file)
@@ -8,13 +8,13 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate  2.006 ;
-use IO::Compress::Base::Common  2.006 qw(:Status createSelfTiedObject);
-use IO::Uncompress::Adapter::Identity 2.006 ;
-use IO::Compress::Zlib::Extra 2.006 ;
-use IO::Compress::Zip::Constants 2.006 ;
+use IO::Uncompress::RawInflate  2.008 ;
+use IO::Compress::Base::Common  2.008 qw(:Status createSelfTiedObject);
+use IO::Uncompress::Adapter::Identity 2.008 ;
+use IO::Compress::Zlib::Extra 2.008 ;
+use IO::Compress::Zip::Constants 2.008 ;
 
-use Compress::Raw::Zlib  2.006 qw(crc32) ;
+use Compress::Raw::Zlib  2.008 qw(crc32) ;
 
 BEGIN
 {
@@ -27,7 +27,7 @@ require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
 
-$VERSION = '2.006';
+$VERSION = '2.008';
 $UnzipError = '';
 
 @ISA    = qw(Exporter IO::Uncompress::RawInflate);
@@ -60,7 +60,7 @@ sub unzip
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common  2.006 qw(:Parse);
+    use IO::Compress::Base::Common  2.008 qw(:Parse);
 
     
     return (
index a8f0224..b362fd3 100644 (file)
@@ -14,12 +14,21 @@ sub run
     my $Error           = getErrorRef($CompressClass);
     my $UnError         = getErrorRef($UncompressClass);
     
-    my $hello = <<EOM ;
-hello world
-this is a test
-some more stuff on this line
-and finally...
-EOM
+#    my $hello = <<EOM ;
+#hello world
+#this is a test
+#some more stuff on this line
+#and finally...
+#EOM
+
+    # ASCII hex equivalent of the text above. This makes the test
+    # harness behave identically on an EBCDIC platform.
+    my $hello = 
+      "\x68\x65\x6c\x6c\x6f\x20\x77\x6f\x72\x6c\x64\x0a\x74\x68\x69\x73" .
+      "\x20\x69\x73\x20\x61\x20\x74\x65\x73\x74\x0a\x73\x6f\x6d\x65\x20" .
+      "\x6d\x6f\x72\x65\x20\x73\x74\x75\x66\x66\x20\x6f\x6e\x20\x74\x68" .
+      "\x69\x73\x20\x6c\x69\x6e\x65\x0a\x61\x6e\x64\x20\x66\x69\x6e\x61" .
+      "\x6c\x6c\x79\x2e\x2e\x2e\x0a" ;
 
     my $blocksize = 10 ;