IO-Compress-Zlib-2.015 (omitting changes to private/MakeUtil.pm) (omitting changes to perl-5.10.0/t/lib/compress; these are in IO-Compress-Base 2.015 update) diff -urN perl-5.10.0.orig/MANIFEST perl-5.10.0/MANIFEST --- perl-5.10.0.orig/MANIFEST 2009-12-01 11:02:59.000000000 +0100 +++ perl-5.10.0/MANIFEST 2009-12-01 12:10:21.000000000 +0100 @@ -736,6 +736,7 @@ ext/IO_Compress_Zlib/t/002any-zip.t IO::Compress::Zlib ext/IO_Compress_Zlib/t/004gziphdr.t IO::Compress::Zlib ext/IO_Compress_Zlib/t/005defhdr.t IO::Compress::Zlib +ext/IO_Compress_Zlib/t/006zip.t IO::Compress::Zlib ext/IO_Compress_Zlib/t/010examples.t IO::Compress::Zlib ext/IO_Compress_Zlib/t/020isize.t IO::Compress::Zlib ext/IO_Compress_Zlib/t/050interop-gzip.t IO::Compress::Zlib diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/Changes perl-5.10.0/ext/IO_Compress_Zlib/Changes --- perl-5.10.0.orig/ext/IO_Compress_Zlib/Changes 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/Changes 2009-12-01 12:05:25.000000000 +0100 @@ -1,6 +1,44 @@ CHANGES ------- + 2.015 3 September 2008 + + * Makefile.PL + Backout changes made in 2.014 + + 2.014 2 September 2008 + + * Makefile.PL + Updated to check for indirect dependencies. + + 2.012 15 July 2008 + + * No Changes + + 2.011 17 May 2008 + + * IO::Uncompress::Unzip + - Print an error message if the zip file contains a + member compressed with bzip2 and IO::Uncompress::Bunzip2 is + not available. + - Could not cope with mixed compression zip files. For example a + zip file that contains both STORED and DEFLATED content. + [RT #35573] + + 2.010 5 May 2008 + + * Fixed problem that meant Perl 5.10 could not upgrade this module. + [RT #35343] + + 2.009 20 April 2008 + + * IO::Compress::Zip + + - Added exUnix2 option to allow storing of UID & GID. + - When running on a Unix derivative the ExtAttr option now defaults + to the equivalent of 0666. For all other systems the default + remains 0. + 2.008 2 November 2007 * Minor documentation changes in README diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/Makefile.PL perl-5.10.0/ext/IO_Compress_Zlib/Makefile.PL --- perl-5.10.0.orig/ext/IO_Compress_Zlib/Makefile.PL 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/Makefile.PL 2009-12-01 12:05:35.000000000 +0100 @@ -3,7 +3,7 @@ use strict ; require 5.004 ; -$::VERSION = '2.008' ; +$::VERSION = '2.015' ; use private::MakeUtil; use ExtUtils::MakeMaker 5.16 ; @@ -51,6 +51,13 @@ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'), + ( + $] >= 5.009 && ! $ENV{PERL_CORE} + ? (INST_LIB => 'blib/arch') + : () + ), + + ((ExtUtils::MakeMaker->VERSION() gt '6.30') ? ('LICENSE' => 'perl') : ()), diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/README perl-5.10.0/ext/IO_Compress_Zlib/README --- perl-5.10.0.orig/ext/IO_Compress_Zlib/README 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/README 2009-12-01 12:05:41.000000000 +0100 @@ -1,44 +1,30 @@ IO-Compress-Zlib - Version 2.008 + Version 2.015 - 2nd November 2007 + 2nd September 2008 - - Copyright (c) 2005-2007 Paul Marquess. All rights reserved. + Copyright (c) 2005-2008 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. - - - DESCRIPTION ----------- - This module provides a Perl interface to allow reading and writing of RFC 1950, 1951, 1952 (i.e. gzip) and zip files/buffers. - - - - PREREQUISITES ------------- Before you can build IO-Compress-Zlib you need to have the following installed on your system: - * Perl 5.004 or better. * Compress::Raw::Zlib * IO::Compress::Base - - - - BUILDING THE MODULE ------------------- @@ -49,8 +35,6 @@ make make test - - INSTALLATION ------------ @@ -58,28 +42,16 @@ make install - - - - TROUBLESHOOTING --------------- - - - - - - - - The t/020isize Test Suite ------------------------ 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 +By default these tests are NOT run when you do a "make test". If you really want to run them, you need to execute "make longtest". Be warned though -- this test suite can take hours to run on a slow box. @@ -88,9 +60,6 @@ run out of memory during this test. This should not be considered a bug in the IO-Compress-Zlib module. - - - FEEDBACK -------- @@ -124,9 +93,7 @@ If you haven't installed IO-Compress-Zlib then search IO::Compress::Gzip.pm for a line like this: - $VERSION = "2.008" ; - - + $VERSION = "2.015" ; 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 @@ -137,5 +104,4 @@ make make test TEST_VERBOSE=1 - Paul Marquess diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm --- perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm 2009-12-01 12:08:12.000000000 +0100 @@ -4,12 +4,12 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.008 qw(:Status); +use IO::Compress::Base::Common 2.015 qw(:Status); -use Compress::Raw::Zlib 2.008 qw(Z_OK Z_FINISH MAX_WBITS) ; +use Compress::Raw::Zlib 2.015 qw(Z_OK Z_FINISH MAX_WBITS) ; our ($VERSION); -$VERSION = '2.008'; +$VERSION = '2.015'; sub mkCompObject { diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm --- perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm 2009-12-01 12:08:12.000000000 +0100 @@ -4,10 +4,10 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.008 qw(:Status); +use IO::Compress::Base::Common 2.015 qw(:Status); our ($VERSION); -$VERSION = '2.008'; +$VERSION = '2.015'; sub mkCompObject { diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm --- perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm 2009-12-01 12:08:12.000000000 +0100 @@ -6,16 +6,16 @@ require Exporter ; -use IO::Compress::RawDeflate 2.008 ; +use IO::Compress::RawDeflate 2.015 ; -use Compress::Raw::Zlib 2.008 ; -use IO::Compress::Zlib::Constants 2.008 ; -use IO::Compress::Base::Common 2.008 qw(createSelfTiedObject); +use Compress::Raw::Zlib 2.015 ; +use IO::Compress::Zlib::Constants 2.015 ; +use IO::Compress::Base::Common 2.015 qw(createSelfTiedObject); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError); -$VERSION = '2.008'; +$VERSION = '2.015'; $DeflateError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); @@ -166,8 +166,6 @@ =head1 NAME - - IO::Compress::Deflate - Write RFC 1950 files/buffers @@ -176,7 +174,6 @@ use IO::Compress::Deflate qw(deflate $DeflateError) ; - my $status = deflate $input => $output [,OPTS] or die "deflate failed: $DeflateError\n"; @@ -218,24 +215,12 @@ =head1 DESCRIPTION - This module provides a Perl interface that allows writing compressed data to files or buffer as defined in RFC 1950. - - - - - - - - - - For reading RFC 1950 files/buffers, see the companion module L. - =head1 Functional Interface A top-level function, C, is provided to carry out @@ -248,14 +233,10 @@ deflate $input => $output [,OPTS] or die "deflate failed: $DeflateError\n"; - - The functional interface needs Perl5.005 or better. - =head2 deflate $input => $output [, OPTS] - C expects at least two parameters, C<$input> and C<$output>. =head3 The C<$input> parameter @@ -294,8 +275,6 @@ The complete array will be walked to ensure that it only contains valid filenames before any data is compressed. - - =item An Input FileGlob string If C<$input> is a string that is delimited by the characters "<" and ">" @@ -306,13 +285,10 @@ See L for more details. - =back If the C<$input> parameter is any other type, C will be returned. - - =head3 The C<$output> parameter The parameter C<$output> is used to control the destination of the @@ -332,14 +308,11 @@ will be written to it. The string '-' can be used as an alias for standard output. - =item A scalar reference If C<$output> is a scalar reference, the compressed data will be stored in C<$$output>. - - =item An Array Reference If C<$output> is an array reference, the compressed data will be @@ -358,21 +331,12 @@ If the C<$output> parameter is any other type, C will be returned. - - =head2 Notes - - When C<$input> maps to multiple files/buffers and C<$output> is a single file/buffer the input files/buffers will be stored in C<$output> as a concatenated series of compressed data streams. - - - - - =head2 Optional Parameters Unless specified below, the optional parameters for C, @@ -392,27 +356,18 @@ This parameter defaults to 0. - =item C<< BinModeIn => 0|1 >> When reading from a file or filehandle, set C before reading. Defaults to 0. - - - - =item C<< Append => 0|1 >> TODO - - =back - - =head2 Examples To read the contents of the file C and write the compressed @@ -426,7 +381,6 @@ deflate $input => "$input.1950" or die "deflate failed: $DeflateError\n"; - To read from an existing Perl filehandle, C<$input>, and write the compressed data to a buffer, C<$buffer>. @@ -464,7 +418,6 @@ or die "Error compressing '$input': $DeflateError\n"; } - =head1 OO Interface =head2 Constructor @@ -504,7 +457,6 @@ written to it. The string '-' can be used as an alias for standard output. - =item A scalar reference If C<$output> is a scalar reference, the compressed data will be stored @@ -560,23 +512,15 @@ This parameter defaults to 0. - - - - =item C<< Merge => 0|1 >> This option is used to compress input data and append it to an existing compressed data stream in C<$output>. The end result is a single compressed data stream stored in C<$output>. - - It is a fatal error to attempt to use this option when C<$output> is not an RFC 1950 data stream. - - There are a number of other limitations with the C option: =over 5 @@ -593,11 +537,8 @@ =back - This parameter defaults to 0. - - =item -Level Defines the compression level used by zlib. The value should either be @@ -630,19 +571,10 @@ The default is Z_DEFAULT_STRATEGY. - - - - - =item C<< Strict => 0|1 >> - - This is a placeholder option. - - =back =head2 Examples @@ -704,14 +636,11 @@ Usage is - $z->flush; $z->flush($flush_type); - Flushes any pending compressed data to the output file/buffer. - This method takes an optional parameter, C<$flush_type>, that controls how the flushing will be carried out. By default the C<$flush_type> used is C. Other valid values for C<$flush_type> are @@ -721,10 +650,8 @@ can seriously degrade the level of compression achieved. See the C documentation for details. - Returns true on success. - =head2 tell Usage is @@ -741,28 +668,19 @@ $z->eof(); eof($z); - - Returns true if the C method has been called. - - =head2 seek $z->seek($position, $whence); seek($z, $position, $whence); - - - Provides a sub-set of the C functionality, with the restriction that it is only legal to seek forward in the output file/buffer. It is a fatal error to attempt to seek backward. Empty parts of the file/buffer will have NULL (0x00) bytes written to them. - - The C<$whence> parameter takes one the usual values, namely SEEK_SET, SEEK_CUR or SEEK_END. @@ -804,33 +722,27 @@ $z->input_line_number() $z->input_line_number(EXPR) - This method always returns C when compressing. - - =head2 fileno $z->fileno() fileno($z) -If the C<$z> object is associated with a file or a filehandle, this method -will return the underlying file descriptor. +If the C<$z> object is associated with a file or a filehandle, C +will return the underlying file descriptor. Once the C method is +called C will return C. -If the C<$z> object is is associated with a buffer, this method will -return undef. +If the C<$z> object is is associated with a buffer, this method will return +C. =head2 close $z->close() ; close $z ; - - Flushes any pending compressed data and then closes the output file/buffer. - - For most versions of Perl this method will be automatically invoked if the IO::Compress::Deflate object is destroyed (either explicitly or by the variable with the reference to the object going out of scope). The @@ -849,9 +761,6 @@ object was created, and the object is associated with a file, the underlying file will also be closed. - - - =head2 newStream([OPTS]) Usage is @@ -865,7 +774,6 @@ See the L section for more details. - =head2 deflateParams Usage is @@ -874,20 +782,15 @@ TODO - =head1 Importing - A number of symbolic constants are required by some methods in C. None are imported by default. - - =over 5 =item :all - Imports C, C<$DeflateError> and all symbolic constants that can be used by C. Same as doing this @@ -897,10 +800,8 @@ Import all symbolic constants. Same as doing this - use IO::Compress::Deflate qw(:flush :level :strategy) ; - =item :flush These symbolic constants are used by the C method. @@ -921,7 +822,6 @@ Z_BEST_COMPRESSION Z_DEFAULT_COMPRESSION - =item :strategy These symbolic constants are used by the C option in the constructor. @@ -937,21 +837,17 @@ =back -For - =head1 EXAMPLES -TODO - - - - - - +=head2 Apache::GZip Revisited +See L + +=head2 Working with Net::FTP +See L =head1 SEE ALSO @@ -963,7 +859,6 @@ L, L - For RFC 1950, 1951 and 1952 see F, F and @@ -977,24 +872,18 @@ The primary site for gzip is F. - - - =head1 AUTHOR This module was written by Paul Marquess, F. - - =head1 MODIFICATION HISTORY See the Changes file. =head1 COPYRIGHT AND LICENSE -Copyright (c) 2005-2007 Paul Marquess. All rights reserved. +Copyright (c) 2005-2008 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. - diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm --- perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm 2009-12-01 12:08:12.000000000 +0100 @@ -9,7 +9,7 @@ our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names); our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE); -$VERSION = '2.008'; +$VERSION = '2.015'; @ISA = qw(Exporter); diff -urN perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm --- perl-5.10.0.orig/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm 2007-12-18 11:47:07.000000000 +0100 +++ perl-5.10.0/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm 2009-12-01 12:08:12.000000000 +0100 @@ -8,12 +8,12 @@ use bytes; -use IO::Compress::RawDeflate 2.008 ; +use IO::Compress::RawDeflate 2.015 ; -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 ; +use Compress::Raw::Zlib 2.015 ; +use IO::Compress::Base::Common 2.015 qw(:Status :Parse createSelfTiedObject); +use IO::Compress::Gzip::Constants 2.015 ; +use IO::Compress::Zlib::Extra 2.015 ; BEGIN { @@ -27,7 +27,7 @@ our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError); -$VERSION = '2.008'; +$VERSION = '2.015'; $GzipError = '' ; @ISA = qw(Exporter IO::Compress::RawDeflate); @@ -274,8 +274,6 @@ =head1 NAME - - IO::Compress::Gzip - Write RFC 1952 files/buffers @@ -284,7 +282,6 @@ use IO::Compress::Gzip qw(gzip $GzipError) ; - my $status = gzip $input => $output [,OPTS] or die "gzip failed: $GzipError\n"; @@ -326,27 +323,15 @@ =head1 DESCRIPTION - This module provides a Perl interface that allows writing compressed data to files or buffer as defined in RFC 1952. - - - - All the gzip headers defined in RFC 1952 can be created using this module. - - - - - - For reading RFC 1952 files/buffers, see the companion module L. - =head1 Functional Interface A top-level function, C, is provided to carry out @@ -359,14 +344,10 @@ gzip $input => $output [,OPTS] or die "gzip failed: $GzipError\n"; - - The functional interface needs Perl5.005 or better. - =head2 gzip $input => $output [, OPTS] - C expects at least two parameters, C<$input> and C<$output>. =head3 The C<$input> parameter @@ -405,8 +386,6 @@ The complete array will be walked to ensure that it only contains valid filenames before any data is compressed. - - =item An Input FileGlob string If C<$input> is a string that is delimited by the characters "<" and ">" @@ -417,12 +396,10 @@ See L for more details. - =back If the C<$input> parameter is any other type, C will be returned. - In addition, if C<$input> is a simple filename, the default values for the C and C