Hello community, here is the log from the commit of package perl-IO-Compress-Zlib checked in at Fri Mar 9 01:50:40 CET 2007. -------- --- perl-IO-Compress-Zlib/perl-IO-Compress-Zlib.changes 2007-02-28 11:45:41.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-IO-Compress-Zlib/perl-IO-Compress-Zlib.changes 2007-03-08 14:34:52.000000000 +0100 @@ -1,0 +2,18 @@ +Thu Mar 8 14:33:16 CET 2007 - anicka@suse.cz + +- update to 2.004 + * IO::Compress::Zip + - Added Zip64 documentation. + - Fixed extended timestamp. + Creation time isn't available in Unix so only store the + modification time and the last access time in the extended + field. + - Fixed file mode. + - Added ExtAttr option to control the value of the "external + file attributes" field in the central directory. + - Added Unix2 extended attribute ("Ux"). + This stores the UID & GID. + * IO::Compress::Gzip + - Fixed 050interop-gzip.t for Windows + +------------------------------------------------------------------- Old: ---- IO-Compress-Zlib-2.003.tar.bz2 New: ---- IO-Compress-Zlib-2.004.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Compress-Zlib.spec ++++++ --- /var/tmp/diff_new_pack.Cmp542/_old 2007-03-09 01:50:34.000000000 +0100 +++ /var/tmp/diff_new_pack.Cmp542/_new 2007-03-09 01:50:34.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-IO-Compress-Zlib (Version 2.003) +# spec file for package perl-IO-Compress-Zlib (Version 2.004) # # Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,14 +11,14 @@ # norootforbuild Name: perl-IO-Compress-Zlib -URL: http://cpan.org/modules/by-module/Compress/ +URL: http://cpan.org/modules/by-module/IO/ License: Artistic License Group: Development/Libraries/Perl Requires: perl = %{perl_version} perl-Compress-Raw-Zlib perl-IO-Compress-Base BuildRequires: perl-Compress-Raw-Zlib perl-IO-Compress-Base Autoreqprov: on Summary: Perl interface to allow reading and writing of zip files/buffers. -Version: 2.003 +Version: 2.004 Release: 1 Source: IO-Compress-Zlib-%{version}.tar.bz2 BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -66,5 +66,20 @@ /var/adm/perl-modules/perl-IO-Compress-Zlib %changelog +* Thu Mar 08 2007 - anicka@suse.cz +- update to 2.004 + * IO::Compress::Zip + - Added Zip64 documentation. + - Fixed extended timestamp. + Creation time isn't available in Unix so only store the + modification time and the last access time in the extended + field. + - Fixed file mode. + - Added ExtAttr option to control the value of the "external + file attributes" field in the central directory. + - Added Unix2 extended attribute ("Ux"). + This stores the UID & GID. + * IO::Compress::Gzip + - Fixed 050interop-gzip.t for Windows * Wed Feb 28 2007 - anicka@suse.cz - package created (initial version 2.003) ++++++ IO-Compress-Zlib-2.003.tar.bz2 -> IO-Compress-Zlib-2.004.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/Changes new/IO-Compress-Zlib-2.004/Changes --- old/IO-Compress-Zlib-2.003/Changes 2007-01-02 11:18:11.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/Changes 2007-03-03 16:18:49.000000000 +0100 @@ -1,6 +1,28 @@ CHANGES ------- + 2.004 3 March 2007 + + * IO::Compress::Zip + + - Added Zip64 documentation. + + - Fixed extended timestamp. + Creation time isn't available in Unix so only store the + modification time and the last access time in the extended field. + + - Fixed file mode. + + - Added ExtAttr option to control the value of the "external file + attributes" field in the central directory. + + - Added Unix2 extended attribute ("Ux"). + This stores the UID & GID. + + * IO::Compress::Gzip + + - Fixed 050interop-gzip.t for Windows + 2.003 2 January 2007 * Added explicit version checking diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Adapter/Deflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Adapter/Deflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Adapter/Deflate.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Adapter/Deflate.pm 2007-03-03 16:20:16.000000000 +0100 @@ -4,12 +4,12 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.003 qw(:Status); +use IO::Compress::Base::Common 2.004 qw(:Status); -use Compress::Raw::Zlib 2.003 qw(Z_OK Z_FINISH MAX_WBITS) ; +use Compress::Raw::Zlib 2.004 qw(Z_OK Z_FINISH MAX_WBITS) ; our ($VERSION); -$VERSION = '2.003'; +$VERSION = '2.004'; sub mkCompObject { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Adapter/Identity.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Adapter/Identity.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Adapter/Identity.pm 2007-01-02 12:14:02.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Adapter/Identity.pm 2007-03-03 16:20:16.000000000 +0100 @@ -4,10 +4,10 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.003 qw(:Status); +use IO::Compress::Base::Common 2.004 qw(:Status); our ($VERSION); -$VERSION = '2.003'; +$VERSION = '2.004'; sub mkCompObject { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Deflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Deflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Deflate.pm 2007-01-02 12:13:53.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Deflate.pm 2007-03-03 16:20:09.000000000 +0100 @@ -6,16 +6,16 @@ require Exporter ; -use IO::Compress::RawDeflate 2.003 ; +use IO::Compress::RawDeflate 2.004 ; -use Compress::Raw::Zlib 2.003 ; -use IO::Compress::Zlib::Constants 2.003 ; -use IO::Compress::Base::Common 2.003 qw(createSelfTiedObject); +use Compress::Raw::Zlib 2.004 ; +use IO::Compress::Zlib::Constants 2.004 ; +use IO::Compress::Base::Common 2.004 qw(createSelfTiedObject); our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError); -$VERSION = '2.003'; +$VERSION = '2.004'; $DeflateError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Gzip/Constants.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Gzip/Constants.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Gzip/Constants.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Gzip/Constants.pm 2007-03-03 16:20:15.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.003'; +$VERSION = '2.004'; @ISA = qw(Exporter); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Gzip.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Gzip.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Gzip.pm 2007-01-02 12:13:53.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Gzip.pm 2007-03-03 16:20:09.000000000 +0100 @@ -8,12 +8,12 @@ use bytes; -use IO::Compress::RawDeflate 2.003 ; +use IO::Compress::RawDeflate 2.004 ; -use Compress::Raw::Zlib 2.003 ; -use IO::Compress::Base::Common 2.003 qw(:Status :Parse createSelfTiedObject); -use IO::Compress::Gzip::Constants 2.003 ; -use IO::Compress::Zlib::Extra 2.003 ; +use Compress::Raw::Zlib 2.004 ; +use IO::Compress::Base::Common 2.004 qw(:Status :Parse createSelfTiedObject); +use IO::Compress::Gzip::Constants 2.004 ; +use IO::Compress::Zlib::Extra 2.004 ; BEGIN { @@ -27,7 +27,7 @@ our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError); -$VERSION = '2.003'; +$VERSION = '2.004'; $GzipError = '' ; @ISA = qw(Exporter IO::Compress::RawDeflate); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/RawDeflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/RawDeflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/RawDeflate.pm 2007-01-02 12:13:54.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/RawDeflate.pm 2007-03-03 16:20:10.000000000 +0100 @@ -7,16 +7,16 @@ use bytes; -use IO::Compress::Base 2.003 ; -use IO::Compress::Base::Common 2.003 qw(:Status createSelfTiedObject); -use IO::Compress::Adapter::Deflate 2.003 ; +use IO::Compress::Base 2.004 ; +use IO::Compress::Base::Common 2.004 qw(:Status createSelfTiedObject); +use IO::Compress::Adapter::Deflate 2.004 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError); -$VERSION = '2.003'; +$VERSION = '2.004'; $RawDeflateError = ''; @ISA = qw(Exporter IO::Compress::Base); @@ -141,8 +141,8 @@ { my $self = shift ; - use IO::Compress::Base::Common 2.003 qw(:Parse); - use Compress::Raw::Zlib 2.003 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); + use IO::Compress::Base::Common 2.004 qw(:Parse); + use Compress::Raw::Zlib 2.004 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); return ( diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zip/Constants.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zip/Constants.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zip/Constants.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zip/Constants.pm 2007-03-03 16:20:15.000000000 +0100 @@ -7,7 +7,7 @@ our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS); -$VERSION = '2.003'; +$VERSION = '2.004'; @ISA = qw(Exporter); @@ -16,6 +16,7 @@ ZIP_CM_STORE ZIP_CM_DEFLATE ZIP_CM_BZIP2 + ZIP_CM_LZMA ZIP_LOCAL_HDR_SIG ZIP_DATA_HDR_SIG @@ -33,7 +34,10 @@ ZIP_EXTRA_ID_ZIP64 ZIP_EXTRA_ID_EXT_TIMESTAMP - ZIP_EXTRA_ID_INFO_ZIP_UNIX + ZIP_EXTRA_ID_INFO_ZIP_UNIX2 + + ZIP_OS_CODE_UNIX + ZIP_OS_CODE_DEFAULT ZIP_IFA_TEXT_MASK @@ -46,6 +50,7 @@ use constant ZIP_CM_STORE => 0 ; use constant ZIP_CM_DEFLATE => 8 ; use constant ZIP_CM_BZIP2 => 12 ; +use constant ZIP_CM_LZMA => 14 ; # Not Supported yet # General Purpose Flag use constant ZIP_GP_FLAG_ENCRYPTED_MASK => 1 ; @@ -66,10 +71,13 @@ use constant ZIP64_ARCHIVE_EXTRA_SIG => 0x08064b50; use constant ZIP64_DIGITAL_SIGNATURE_SIG => 0x05054b50; +use constant ZIP_OS_CODE_UNIX => 3; +use constant ZIP_OS_CODE_DEFAULT => 3; + # Extra Field ID's use constant ZIP_EXTRA_ID_ZIP64 => pack "v", 1; use constant ZIP_EXTRA_ID_EXT_TIMESTAMP => "UT"; -use constant ZIP_EXTRA_ID_INFO_ZIP_UNIX => "Ux"; +use constant ZIP_EXTRA_ID_INFO_ZIP_UNIX2 => "Ux"; use constant ZIP64_MIN_VERSION => 45; @@ -77,6 +85,7 @@ ZIP_CM_STORE() => 20, ZIP_CM_DEFLATE() => 20, ZIP_CM_BZIP2() => 46, + ZIP_CM_LZMA() => 63, ); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zip.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zip.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zip.pm 2007-01-02 12:13:54.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zip.pm 2007-03-03 16:20:10.000000000 +0100 @@ -4,21 +4,21 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.003 qw(:Status createSelfTiedObject); -use IO::Compress::RawDeflate 2.003 ; -use IO::Compress::Adapter::Deflate 2.003 ; -use IO::Compress::Adapter::Identity 2.003 ; -use IO::Compress::Zlib::Extra 2.003 ; -use IO::Compress::Zip::Constants 2.003 ; +use IO::Compress::Base::Common 2.004 qw(:Status createSelfTiedObject); +use IO::Compress::RawDeflate 2.004 ; +use IO::Compress::Adapter::Deflate 2.004 ; +use IO::Compress::Adapter::Identity 2.004 ; +use IO::Compress::Zlib::Extra 2.004 ; +use IO::Compress::Zip::Constants 2.004 ; -use Compress::Raw::Zlib 2.003 qw(crc32) ; +use Compress::Raw::Zlib 2.004 qw(crc32) ; BEGIN { eval { require IO::Compress::Adapter::Bzip2 ; - import IO::Compress::Adapter::Bzip2 2.003 ; + import IO::Compress::Adapter::Bzip2 2.004 ; require IO::Compress::Bzip2 ; - import IO::Compress::Bzip2 2.003 ; + import IO::Compress::Bzip2 2.004 ; } ; } @@ -27,7 +27,7 @@ our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError); -$VERSION = '2.003'; +$VERSION = '2.004'; $ZipError = ''; @ISA = qw(Exporter IO::Compress::RawDeflate); @@ -139,6 +139,8 @@ my $extra = ''; my $ctlExtra = ''; my $empty = 0; + my $osCode = $param->value('OS_Code') ; + my $extFileAttr = 0 ; if (*$self->{ZipData}{Zip64}) { $empty = 0xFFFF; @@ -164,11 +166,18 @@ $ctlExtra .= mkExtendedTime($param->value('MTime')); } - # if ( $param->value('UID')) - # { - # $extra .= mkUnixExtra( $param->value('UID'), $param->value('GID')); - # $ctlExtra .= mkUnixExtra(); - # } + if ( $param->value('UID') && $osCode == ZIP_OS_CODE_UNIX) + { + $extra .= mkUnix2Extra( $param->value('UID'), $param->value('GID')); + $ctlExtra .= mkUnix2Extra(); + } + + # TODO - this code assumes Unix. + #$extFileAttr = 0666 << 16 + # if $osCode == ZIP_OS_CODE_UNIX ; + + $extFileAttr = $param->value('ExtAttr') + if defined $param->value('ExtAttr') ; $extra .= $param->value('ExtraFieldLocal') if defined $param->value('ExtraFieldLocal'); @@ -177,12 +186,6 @@ if defined $param->value('ExtraFieldCentral'); } - - # TODO - this code assumes Unix. - my $extAttr = 0; - $extAttr = $param->value('Mode') << 16 - if defined $param->value('Mode') ; - my $gpFlag = 0 ; $gpFlag |= ZIP_GP_FLAG_STREAMING_MASK if *$self->{ZipData}{Stream} ; @@ -233,7 +236,7 @@ $ctl .= pack 'v', length $comment ; # file comment length $ctl .= pack 'v', 0 ; # disk number start $ctl .= pack 'v', $ifa ; # internal file attributes - $ctl .= pack 'V', $extAttr ; # external file attributes + $ctl .= pack 'V', $extFileAttr ; # external file attributes if (! *$self->{ZipData}{Zip64}) { $ctl .= pack 'V', *$self->{ZipData}{Offset}->get32bit() ; # offset to local header } @@ -438,8 +441,8 @@ { my $self = shift ; - use IO::Compress::Base::Common 2.003 qw(:Parse); - use Compress::Raw::Zlib 2.003 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); + use IO::Compress::Base::Common 2.004 qw(:Parse); + use Compress::Raw::Zlib 2.004 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY); my @Bzip2 = (); @@ -462,6 +465,7 @@ 'Name' => [0, 1, Parse_any, ''], 'Time' => [0, 1, Parse_any, undef], 'exTime' => [0, 1, Parse_any, undef], + 'ExtAttr' => [0, 1, Parse_any, 0], 'OS_Code' => [0, 1, Parse_unsigned, $Compress::Raw::Zlib::gzip_os_code], 'TextFlag' => [0, 1, Parse_boolean, 0], @@ -497,10 +501,11 @@ { $params->value('MTime' => $mtime) ; $params->value('ATime' => $atime) ; - $params->value('CTime' => $ctime) ; + $params->value('CTime' => undef) ; # No Creation time } - $params->value('Mode' => $mode) ; + $params->value('ExtAttr' => $mode << 16) + if ! $params->parsed('ExtAttr'); $params->value('UID' => $uid) ; $params->value('GID' => $gid) ; @@ -526,12 +531,11 @@ $bit <<= 1 ; } - #return "UT" . pack("v C", length($times) + 1, $flags) . $times; return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_EXT_TIMESTAMP, pack("C", $flags) . $times); } -sub mkUnixExtra +sub mkUnix2Extra { my $ids = ''; for my $id (@_) @@ -539,8 +543,8 @@ $ids .= pack("v", $id); } - #return "Ux" . pack("v", length $ids) . $ids; - return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_INFO_ZIP_UNIX, $ids); + return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_INFO_ZIP_UNIX2, + $ids); } @@ -630,11 +634,16 @@ - The primary purpose of this module is to provide streaming write access to zip files and buffers. It is not a general-purpose file archiver. If that is what you want, check out CArchive::Zip. +At present three compression methods are supported by IO::Compress::Zip, +namely Store (no compression at all), Deflate and Bzip2. + +Note that to create Bzip2 content, the module CIO::Compress::Bzip2 must +be installed. + @@ -719,10 +728,10 @@ In addition, if C<$input> is a simple filename, the default values for -the C<Name>, C<Time> and C<exTime> options will be sourced from that file. +the C<Name>, C<Time>, C<ExtAttr> and C<exTime> options will be sourced from that file. If you do not want to use these defaults they can be overridden by -explicitly setting the C<Name>, C<Time> and C<exTime> options or by setting the +explicitly setting the C<Name>, C<Time>, C<ExtAttr> and C<exTime> options or by setting the C<Minimal> parameter. @@ -988,6 +997,13 @@ This field defaults to the time the CIO::Compress::Zip object was created if this option is not specified. +=item C<< ExtAttr => $attr >> + +This option controls the "external file attributes" field in the central +header of the zip file. This is a 4 byte field. + +This option defaults to 0. + =item C<< exTime => [$atime, $mtime, $ctime] >> This option expects an array reference with exactly three elements: @@ -998,6 +1014,11 @@ header to the three values, $atime, $mtime, $ctime and sets the extended timestamp field in the central zip header to C<$mtime>. +If any of the three values is C<undef> that time value will not be used. +So, for example, to set only the C<$mtime> you would use this + + exTime => [undef, $mtime, undef] + If the C<Minimal> option is set to true, this option will be ignored. By default no extended time field is created. @@ -1047,7 +1068,22 @@ The default is 1. +=item C<< Zip64 => 0|1 >> + +Create a Zip64 zip file/buffer. This option should only be used if you want +to store files larger than 4 Gig. +If you intend to manipulate the Zip64 zip files created with this module +using an external zip/unzip make sure that it supports streaming Zip64. + +In particular, if you are using Info-Zip you need to have zip version 3.x +or better to update a Zip64 archive and unzip version 6.x to read a zip64 +archive. At the time of writing both are beta status. + +When the C<Zip64> option is enabled, the C<Stream> option I<must> be +enabled as well. + +The default is 0. =item C<< TextFlag => 0|1 >> @@ -1093,6 +1129,9 @@ ExtraField => $rawdata +The Extended Time field, set using the C<exTime> option, is an example of +an extended field. + If the C<Minimal> option is set to true, this option will be ignored. @@ -1102,7 +1141,8 @@ =item C<< Minimal => 1|0 >> If specified, this option will disable the creation of all extended fields -in the zip local and central headers. +in the zip local and central headers. So the C<exTime>, C<ExtraFieldLocal> +and C<ExtraFieldCentral> options will be ignored. This parameter defaults to 0. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zlib/Constants.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zlib/Constants.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zlib/Constants.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zlib/Constants.pm 2007-03-03 16:20:15.000000000 +0100 @@ -9,7 +9,7 @@ our ($VERSION, @ISA, @EXPORT); -$VERSION = '2.003'; +$VERSION = '2.004'; @ISA = qw(Exporter); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zlib/Extra.pm new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zlib/Extra.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Compress/Zlib/Extra.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Compress/Zlib/Extra.pm 2007-03-03 16:20:15.000000000 +0100 @@ -8,9 +8,9 @@ our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = '2.003'; +$VERSION = '2.004'; -use IO::Compress::Gzip::Constants 2.003 ; +use IO::Compress::Gzip::Constants 2.004 ; sub ExtraFieldError { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Adapter/Identity.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Adapter/Identity.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Adapter/Identity.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Adapter/Identity.pm 2007-03-03 16:20:15.000000000 +0100 @@ -4,13 +4,13 @@ use strict; use bytes; -use IO::Compress::Base::Common 2.003 qw(:Status); +use IO::Compress::Base::Common 2.004 qw(:Status); our ($VERSION); -$VERSION = '2.003'; +$VERSION = '2.004'; -use Compress::Raw::Zlib 2.003 (); +use Compress::Raw::Zlib 2.004 (); sub mkUncompObject { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Adapter/Inflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Adapter/Inflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Adapter/Inflate.pm 2007-01-02 12:14:01.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Adapter/Inflate.pm 2007-03-03 16:20:15.000000000 +0100 @@ -4,11 +4,11 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.003 qw(:Status); -use Compress::Raw::Zlib 2.003 qw(Z_OK Z_DATA_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); +use IO::Compress::Base::Common 2.004 qw(:Status); +use Compress::Raw::Zlib 2.004 qw(Z_OK Z_DATA_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); our ($VERSION); -$VERSION = '2.003'; +$VERSION = '2.004'; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/AnyInflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/AnyInflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/AnyInflate.pm 2007-01-02 12:13:58.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/AnyInflate.pm 2007-03-03 16:20:13.000000000 +0100 @@ -6,22 +6,22 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.003 qw(createSelfTiedObject); +use IO::Compress::Base::Common 2.004 qw(createSelfTiedObject); -use IO::Uncompress::Adapter::Inflate 2.003 (); +use IO::Uncompress::Adapter::Inflate 2.004 (); -use IO::Uncompress::Base 2.003 ; -use IO::Uncompress::Gunzip 2.003 ; -use IO::Uncompress::Inflate 2.003 ; -use IO::Uncompress::RawInflate 2.003 ; -use IO::Uncompress::Unzip 2.003 ; +use IO::Uncompress::Base 2.004 ; +use IO::Uncompress::Gunzip 2.004 ; +use IO::Uncompress::Inflate 2.004 ; +use IO::Uncompress::RawInflate 2.004 ; +use IO::Uncompress::Unzip 2.004 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError); -$VERSION = '2.003'; +$VERSION = '2.004'; $AnyInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); @@ -48,7 +48,7 @@ sub getExtraParams { - use IO::Compress::Base::Common 2.003 qw(:Parse); + use IO::Compress::Base::Common 2.004 qw(:Parse); return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ; } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Gunzip.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Gunzip.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Gunzip.pm 2007-01-02 12:13:56.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Gunzip.pm 2007-03-03 16:20:11.000000000 +0100 @@ -9,12 +9,12 @@ use warnings; use bytes; -use IO::Uncompress::RawInflate 2.003 ; +use IO::Uncompress::RawInflate 2.004 ; -use Compress::Raw::Zlib 2.003 qw( crc32 ) ; -use IO::Compress::Base::Common 2.003 qw(:Status createSelfTiedObject); -use IO::Compress::Gzip::Constants 2.003 ; -use IO::Compress::Zlib::Extra 2.003 ; +use Compress::Raw::Zlib 2.004 qw( crc32 ) ; +use IO::Compress::Base::Common 2.004 qw(:Status createSelfTiedObject); +use IO::Compress::Gzip::Constants 2.004 ; +use IO::Compress::Zlib::Extra 2.004 ; require Exporter ; @@ -28,7 +28,7 @@ $GunzipError = ''; -$VERSION = '2.003'; +$VERSION = '2.004'; sub new { @@ -47,7 +47,7 @@ sub getExtraParams { - use IO::Compress::Base::Common 2.003 qw(:Parse); + use IO::Compress::Base::Common 2.004 qw(:Parse); return ( 'ParseExtra' => [1, 1, Parse_boolean, 0] ) ; } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Inflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Inflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Inflate.pm 2007-01-02 12:13:56.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Inflate.pm 2007-03-03 16:20:11.000000000 +0100 @@ -5,15 +5,15 @@ use warnings; use bytes; -use IO::Compress::Base::Common 2.003 qw(:Status createSelfTiedObject); -use IO::Compress::Zlib::Constants 2.003 ; +use IO::Compress::Base::Common 2.004 qw(:Status createSelfTiedObject); +use IO::Compress::Zlib::Constants 2.004 ; -use IO::Uncompress::RawInflate 2.003 ; +use IO::Uncompress::RawInflate 2.004 ; require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError); -$VERSION = '2.003'; +$VERSION = '2.004'; $InflateError = ''; @ISA = qw( Exporter IO::Uncompress::RawInflate ); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/RawInflate.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/RawInflate.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/RawInflate.pm 2007-01-02 12:13:56.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/RawInflate.pm 2007-03-03 16:20:12.000000000 +0100 @@ -5,11 +5,11 @@ use warnings; use bytes; -use Compress::Raw::Zlib 2.003 ; -use IO::Compress::Base::Common 2.003 qw(:Status createSelfTiedObject); +use Compress::Raw::Zlib 2.004 ; +use IO::Compress::Base::Common 2.004 qw(:Status createSelfTiedObject); -use IO::Uncompress::Base 2.003 ; -use IO::Uncompress::Adapter::Inflate 2.003 ; +use IO::Uncompress::Base 2.004 ; +use IO::Uncompress::Adapter::Inflate 2.004 ; @@ -17,7 +17,7 @@ require Exporter ; our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError); -$VERSION = '2.003'; +$VERSION = '2.004'; $RawInflateError = ''; @ISA = qw( Exporter IO::Uncompress::Base ); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Unzip.pm new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Unzip.pm --- old/IO-Compress-Zlib-2.003/lib/IO/Uncompress/Unzip.pm 2007-01-02 12:13:57.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/lib/IO/Uncompress/Unzip.pm 2007-03-03 16:20:12.000000000 +0100 @@ -8,13 +8,13 @@ use warnings; use bytes; -use IO::Uncompress::RawInflate 2.003 ; -use IO::Compress::Base::Common 2.003 qw(:Status createSelfTiedObject); -use IO::Uncompress::Adapter::Identity 2.003 ; -use IO::Compress::Zlib::Extra 2.003 ; -use IO::Compress::Zip::Constants 2.003 ; +use IO::Uncompress::RawInflate 2.004 ; +use IO::Compress::Base::Common 2.004 qw(:Status createSelfTiedObject); +use IO::Uncompress::Adapter::Identity 2.004 ; +use IO::Compress::Zlib::Extra 2.004 ; +use IO::Compress::Zip::Constants 2.004 ; -use Compress::Raw::Zlib 2.003 qw(crc32) ; +use Compress::Raw::Zlib 2.004 qw(crc32) ; BEGIN { @@ -27,7 +27,7 @@ our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup); -$VERSION = '2.003'; +$VERSION = '2.004'; $UnzipError = ''; @ISA = qw(Exporter IO::Uncompress::RawInflate); @@ -60,7 +60,7 @@ sub getExtraParams { - use IO::Compress::Base::Common 2.003 qw(:Parse); + use IO::Compress::Base::Common 2.004 qw(:Parse); return ( diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/Makefile.PL new/IO-Compress-Zlib-2.004/Makefile.PL --- old/IO-Compress-Zlib-2.003/Makefile.PL 2006-12-31 16:57:23.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/Makefile.PL 2007-02-17 19:28:18.000000000 +0100 @@ -3,7 +3,7 @@ use strict ; require 5.004 ; -$::VERSION = '2.003' ; +$::VERSION = '2.004' ; use private::MakeUtil; use ExtUtils::MakeMaker 5.16 ; @@ -39,6 +39,9 @@ : () ), + ((ExtUtils::MakeMaker->VERSION() gt '6.30') ? + ('LICENSE' => 'perl') : ()), + ) ; # end of file Makefile.PL diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/META.yml new/IO-Compress-Zlib-2.004/META.yml --- old/IO-Compress-Zlib-2.003/META.yml 2007-01-02 12:18:05.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/META.yml 2007-03-03 16:36:43.000000000 +0100 @@ -1,14 +1,14 @@ --- #YAML:1.0 name: IO-Compress-Zlib -version: 2.003 +version: 2.004 abstract: Perl interface to zlib -license: ~ +license: perl generated_by: ExtUtils::MakeMaker version 6.31 distribution_type: module requires: - Compress::Raw::Zlib: 2.003 - IO::Compress::Base: 2.003 - IO::Uncompress::Base: 2.003 + Compress::Raw::Zlib: 2.004 + IO::Compress::Base: 2.004 + IO::Uncompress::Base: 2.004 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.2.html version: 1.2 diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/README new/IO-Compress-Zlib-2.004/README --- old/IO-Compress-Zlib-2.003/README 2007-01-02 12:13:49.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/README 2007-03-03 16:20:07.000000000 +0100 @@ -1,9 +1,9 @@ IO::Compress::Zlib - Version 2.003 + Version 2.004 - 2nd January 2007 + 3rd March 2007 Copyright (c) 2005-2007 Paul Marquess. All rights reserved. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/t/000prereq.t new/IO-Compress-Zlib-2.004/t/000prereq.t --- old/IO-Compress-Zlib-2.003/t/000prereq.t 2007-01-02 12:13:47.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/t/000prereq.t 2007-03-03 16:20:07.000000000 +0100 @@ -19,7 +19,7 @@ if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - my $VERSION = '2.003'; + my $VERSION = '2.004'; my @NAMES = qw( Compress::Raw::Zlib IO::Compress::Base diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/t/050interop-gzip.t new/IO-Compress-Zlib-2.004/t/050interop-gzip.t --- old/IO-Compress-Zlib-2.003/t/050interop-gzip.t 2006-12-27 20:17:38.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/t/050interop-gzip.t 2007-02-19 12:59:19.000000000 +0100 @@ -86,8 +86,10 @@ BEGIN { # Check external gzip is available - my $name = 'gzip'; - for my $dir (reverse split ":", $ENV{PATH}) + my $name = $^O =~ /mswin/i ? 'gzip.exe' : 'gzip'; + my $split = $^O =~ /mswin/i ? ";" : ":"; + + for my $dir (reverse split $split, $ENV{PATH}) { $GZIP = "$dir/$name" if -x "$dir/$name" ; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/t/compress/generic.pl new/IO-Compress-Zlib-2.004/t/compress/generic.pl --- old/IO-Compress-Zlib-2.003/t/compress/generic.pl 2007-01-02 12:16:56.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/t/compress/generic.pl 2007-03-03 16:35:54.000000000 +0100 @@ -18,7 +18,7 @@ $extra = 1 if $st ; - plan(tests => 639 + $extra) ; + plan(tests => 641 + $extra) ; } sub myGZreadFile @@ -653,7 +653,9 @@ my %opts = () ; my $iow = new $CompressClass $name, %opts; + is $iow->input_line_number, undef; $iow->print($str) ; + is $iow->input_line_number, undef; $iow->close ; my @tmp; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Compress-Zlib-2.003/t/compress/merge.pl new/IO-Compress-Zlib-2.004/t/compress/merge.pl --- old/IO-Compress-Zlib-2.003/t/compress/merge.pl 2007-01-02 12:16:56.000000000 +0100 +++ new/IO-Compress-Zlib-2.004/t/compress/merge.pl 2007-03-03 16:35:54.000000000 +0100 @@ -19,7 +19,7 @@ $extra = 1 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - plan tests => 166 + $extra ; + plan tests => 165 + $extra ; } @@ -32,13 +32,6 @@ my $Error = getErrorRef($CompressClass); my $UnError = getErrorRef($UncompressClass); - - - - # Check zlib_version and ZLIB_VERSION are the same. - is Compress::Raw::Zlib::zlib_version, ZLIB_VERSION, - "ZLIB_VERSION matches Compress::Raw::Zlib::zlib_version" ; - # Tests # destination is a file that doesn't exist -- should work ok unless AnyDeflate # destination isn't compressed at all ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org