Change 31782 by [EMAIL PROTECTED] on 2007/09/02 08:06:33
Subject: [PATCH] Compress* 2.006
From: "Paul Marquess" <[EMAIL PROTECTED]>
Date: Sat, 1 Sep 2007 20:41:57 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Compress/Raw/Zlib/Changes#8 edit
... //depot/perl/ext/Compress/Raw/Zlib/Makefile.PL#7 edit
... //depot/perl/ext/Compress/Raw/Zlib/README#12 edit
... //depot/perl/ext/Compress/Raw/Zlib/Zlib.xs#6 edit
... //depot/perl/ext/Compress/Raw/Zlib/lib/Compress/Raw/Zlib.pm#13 edit
... //depot/perl/ext/Compress/Zlib/Changes#19 edit
... //depot/perl/ext/Compress/Zlib/Makefile.PL#23 edit
... //depot/perl/ext/Compress/Zlib/README#20 edit
... //depot/perl/ext/Compress/Zlib/lib/Compress/Zlib.pm#13 edit
... //depot/perl/ext/Compress/Zlib/t/03zlib-v1.t#11 edit
... //depot/perl/ext/Compress/Zlib/t/14gzopen.t#12 edit
... //depot/perl/ext/IO_Compress_Base/Changes#3 edit
... //depot/perl/ext/IO_Compress_Base/Makefile.PL#2 edit
... //depot/perl/ext/IO_Compress_Base/README#3 edit
... //depot/perl/ext/IO_Compress_Base/lib/IO/Compress/Base.pm#3 edit
... //depot/perl/ext/IO_Compress_Base/lib/IO/Compress/Base/Common.pm#3 edit
... //depot/perl/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm#3 edit
... //depot/perl/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/Changes#3 edit
... //depot/perl/ext/IO_Compress_Zlib/Makefile.PL#3 edit
... //depot/perl/ext/IO_Compress_Zlib/README#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm#4 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/RawDeflate.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip/Constants.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Constants.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Extra.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Identity.pm#3
edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Inflate.pm#3
edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/AnyInflate.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Gunzip.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Inflate.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/RawInflate.pm#3 edit
... //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Unzip.pm#3 edit
... //depot/perl/t/lib/compress/generic.pl#8 edit
... //depot/perl/t/lib/compress/newtied.pl#3 edit
... //depot/perl/t/lib/compress/tied.pl#5 edit
Differences ...
==== //depot/perl/ext/Compress/Raw/Zlib/Changes#8 (text) ====
Index: perl/ext/Compress/Raw/Zlib/Changes
--- perl/ext/Compress/Raw/Zlib/Changes#7~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/Compress/Raw/Zlib/Changes 2007-09-02 01:06:33.000000000 -0700
@@ -1,6 +1,12 @@
CHANGES
-------
+ 2.006 1 September 2007
+
+ * Makefile.PL
+ Added INSTALLDIRS directive to install as a core module when built
+ on a perl >= 5.9.
+
2.005 18 June 2007
* Only include ppport.h when not being built with perl.
==== //depot/perl/ext/Compress/Raw/Zlib/Makefile.PL#7 (text) ====
Index: perl/ext/Compress/Raw/Zlib/Makefile.PL
--- perl/ext/Compress/Raw/Zlib/Makefile.PL#6~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/Compress/Raw/Zlib/Makefile.PL 2007-09-02 01:06:33.000000000
-0700
@@ -95,6 +95,8 @@
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
==== //depot/perl/ext/Compress/Raw/Zlib/README#12 (text) ====
Index: perl/ext/Compress/Raw/Zlib/README
--- perl/ext/Compress/Raw/Zlib/README#11~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/Compress/Raw/Zlib/README 2007-09-02 01:06:33.000000000 -0700
@@ -1,9 +1,9 @@
Compress::Raw::Zlib
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
==== //depot/perl/ext/Compress/Raw/Zlib/Zlib.xs#6 (text) ====
Index: perl/ext/Compress/Raw/Zlib/Zlib.xs
--- perl/ext/Compress/Raw/Zlib/Zlib.xs#5~30655~ 2007-03-21 02:27:40.000000000
-0700
+++ perl/ext/Compress/Raw/Zlib/Zlib.xs 2007-09-02 01:06:33.000000000 -0700
@@ -228,7 +228,6 @@
#define adlerInitial adler32(0L, Z_NULL, 0)
#define crcInitial crc32(0L, Z_NULL, 0)
-
static const char * const my_z_errmsg[] = {
"need dictionary", /* Z_NEED_DICT 2 */
"stream end", /* Z_STREAM_END 1 */
@@ -607,8 +606,8 @@
}
-#define Zip_zlib_version() (char*)zlib_version
-char*
+#define Zip_zlib_version() (const char*)zlib_version
+const char*
Zip_zlib_version()
unsigned
@@ -650,6 +649,8 @@
adler = SvUV(ST(1)) ;
else
adler = adlerInitial;
+ OUTPUT:
+ RETVAL
#define Zip_crc32(buf, crc) crc32(crc, buf, (uInt)len)
@@ -724,9 +725,9 @@
int err ;
deflateStream s ;
- if (trace)
- warn("in _deflateInit(level=%d, method=%d, windowBits=%d, memLevel=%d,
strategy=%d, bufsize=%ld\n",
- level, method, windowBits, memLevel, strategy, bufsize) ;
+ if (trace)
+ warn("in _deflateInit(level=%d, method=%d, windowBits=%d, memLevel=%d,
strategy=%d, bufsize=%ld dictionary=%p)\n",
+ level, method, windowBits, memLevel, strategy, bufsize, dictionary) ;
if ((s = InitStream() )) {
s->Level = level;
@@ -761,8 +762,11 @@
else
err = Z_MEM_ERROR ;
- XPUSHs(sv_setref_pv(sv_newmortal(),
- "Compress::Raw::Zlib::deflateStream", (void*)s));
+ {
+ SV* obj = sv_setref_pv(sv_newmortal(),
+ "Compress::Raw::Zlib::deflateStream", (void*)s);
+ XPUSHs(obj);
+ }
if (GIMME == G_ARRAY) {
SV * sv = sv_2mortal(newSViv(err)) ;
setDUALstatus(sv, err);
@@ -814,11 +818,14 @@
else
err = Z_MEM_ERROR ;
- XPUSHs(sv_setref_pv(sv_newmortal(),
+ {
+ SV* obj = sv_setref_pv(sv_newmortal(),
ix == 1
? "Compress::Raw::Zlib::inflateScanStream"
: "Compress::Raw::Zlib::inflateStream",
- (void*)s));
+ (void*)s);
+ XPUSHs(obj);
+ }
if (GIMME == G_ARRAY) {
SV * sv = sv_2mortal(newSViv(err)) ;
setDUALstatus(sv, err);
==== //depot/perl/ext/Compress/Raw/Zlib/lib/Compress/Raw/Zlib.pm#13 (text) ====
Index: perl/ext/Compress/Raw/Zlib/lib/Compress/Raw/Zlib.pm
--- perl/ext/Compress/Raw/Zlib/lib/Compress/Raw/Zlib.pm#12~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/Compress/Raw/Zlib/lib/Compress/Raw/Zlib.pm 2007-09-02
01:06:33.000000000 -0700
@@ -13,7 +13,7 @@
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.005';
+$VERSION = '2.006';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/perl/ext/Compress/Zlib/Changes#19 (text) ====
Index: perl/ext/Compress/Zlib/Changes
--- perl/ext/Compress/Zlib/Changes#18~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/Compress/Zlib/Changes 2007-09-02 01:06:33.000000000 -0700
@@ -1,6 +1,20 @@
CHANGES
-------
+ 2.006 1 September 20007
+
+ * Makefile.PL
+ Added INSTALLDIRS directive to install as a core module when built
+ on a perl >= 5.9.
+
+ * t/03zlib-v1.t
+ Fixed crc32 and adler32 tests in to remove ascii assumption.
+
+ * lib/Compress/Zlib.pm
+ Make gzreadline not support $/, just like in Compress::Zlib 1.x
+ Folk who want $/ with readline support can get it in
+ IO::Uncompress::Gunzip.
+ [rt.cpan.org #28663] and Debian bug #435656
http://bugs.debian.org/435656
2.005 18 June 2007
* Added info about removing Compress::Zlib version 1, before
==== //depot/perl/ext/Compress/Zlib/Makefile.PL#23 (xtext) ====
Index: perl/ext/Compress/Zlib/Makefile.PL
--- perl/ext/Compress/Zlib/Makefile.PL#22~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/Compress/Zlib/Makefile.PL 2007-09-02 01:06:33.000000000 -0700
@@ -3,7 +3,7 @@
use strict ;
require 5.004 ;
-$::VERSION = '2.005' ;
+$::VERSION = '2.006' ;
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
@@ -43,6 +43,8 @@
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
==== //depot/perl/ext/Compress/Zlib/README#20 (text) ====
Index: perl/ext/Compress/Zlib/README
--- perl/ext/Compress/Zlib/README#19~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/Compress/Zlib/README 2007-09-02 01:06:33.000000000 -0700
@@ -1,9 +1,9 @@
Compress::Zlib
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 1995-2007 Paul Marquess. All rights reserved.
@@ -32,7 +32,7 @@
* Perl 5.004 or better.
* Compress::Raw::Zlib
- * IO::Compress::Gzip
+ * IO::Compress::Zlib
==== //depot/perl/ext/Compress/Zlib/lib/Compress/Zlib.pm#13 (text) ====
Index: perl/ext/Compress/Zlib/lib/Compress/Zlib.pm
--- perl/ext/Compress/Zlib/lib/Compress/Zlib.pm#12~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/Compress/Zlib/lib/Compress/Zlib.pm 2007-09-02 01:06:33.000000000
-0700
@@ -8,17 +8,17 @@
use IO::Handle ;
use Scalar::Util qw(dualvar);
-use IO::Compress::Base::Common 2.005 ;
-use Compress::Raw::Zlib 2.005 ;
-use IO::Compress::Gzip 2.005 ;
-use IO::Uncompress::Gunzip 2.005 ;
+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 strict ;
use warnings ;
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.005';
+$VERSION = '2.006';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -180,7 +180,12 @@
my $self = shift ;
my $gz = $self->[0] ;
- $_[0] = $gz->getline() ;
+ {
+ # Maintain backward compatibility with 1.x behaviour
+ # It didn't support $/, so this can't either.
+ local $/ = "\n" ;
+ $_[0] = $gz->getline() ;
+ }
_save_gzerr($gz, 1);
return defined $_[0] ? length $_[0] : 0 ;
}
@@ -447,7 +452,7 @@
package Compress::Zlib ;
-use IO::Compress::Gzip::Constants 2.005 ;
+use IO::Compress::Gzip::Constants 2.006 ;
sub memGzip($)
{
@@ -652,12 +657,17 @@
reading/writing gzip files, and the C<Compress::Raw::Zlib> module for some
low-level zlib access.
-The interface provided by version 2 should be 100% backward compatible with
-version 1. If you find a difference in the expected behaviour please
-contact the author (See L</AUTHOR>). See L<GZIP INTERFACE>
+The interface provided by version 2 of this module should be 100% backward
+compatible with version 1. If you find a difference in the expected
+behaviour please contact the author (See L</AUTHOR>). See L<GZIP INTERFACE>
+
+With the creation of the C<IO::Compress> and C<IO::Uncompress> modules no
+new features are planned for C<Compress::Zlib> - the new modules do
+everything that C<Compress::Zlib> does and then some. Development on
+C<Compress::Zlib> will be limited to bug fixes only.
-If you are writing new code, your first port of call should be to use one
-these new modules.
+If you are writing new code, your first port of call should be one of the
+new C<IO::Compress> or C<IO::Uncompress> modules.
=head1 GZIP INTERFACE
@@ -770,11 +780,13 @@
It is legal to intermix calls to C<gzread> and C<gzreadline>.
-In addition, C<gzreadline> fully supports the use of of the variable C<$/>
-(C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
-determine what constitutes an end of line. Both paragraph mode and file
-slurp mode are supported.
-
+To maintain backward compatibility with version 1.x of this module
+C<gzreadline> ignores the C<$/> variable - it I<always> uses the string
+C<"\n"> as the line delimiter.
+
+If you want to read a gzip file a line at a time and have it respect the
+C<$/> variable (or C<$INPUT_RECORD_SEPARATOR>, or C<$RS> when C<English> is
+in use) see L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>.
=item B<$byteswritten = $gz-E<gt>gzwrite($buffer) ;>
@@ -1458,4 +1470,3 @@
-
==== //depot/perl/ext/Compress/Zlib/t/03zlib-v1.t#11 (text) ====
Index: perl/ext/Compress/Zlib/t/03zlib-v1.t
--- perl/ext/Compress/Zlib/t/03zlib-v1.t#10~30458~ 2007-03-03
23:01:34.000000000 -0800
+++ perl/ext/Compress/Zlib/t/03zlib-v1.t 2007-09-02 01:06:33.000000000
-0700
@@ -868,8 +868,11 @@
{
title 'CRC32' ;
- my $data = 'ZgRNtjgSUW'; # CRC32 of this data should have the high bit set
+ # CRC32 of this data should have the high bit set
+ # value in ascii is ZgRNtjgSUW
+ my $data = "\x5a\x67\x52\x4e\x74\x6a\x67\x53\x55\x57";
my $expected_crc = 0xCF707A2B ; # 3480255019
+
my $crc = crc32($data) ;
is $crc, $expected_crc;
}
@@ -877,7 +880,11 @@
{
title 'Adler32' ;
- my $data = 'lpscOVsAJiUfNComkOfWYBcPhHZ[bT'; # adler of this data should
have the high bit set
+ # adler of this data should have the high bit set
+ # value in ascii is lpscOVsAJiUfNComkOfWYBcPhHZ[bT
+ my $data = "\x6c\x70\x73\x63\x4f\x56\x73\x41\x4a\x69\x55\x66" .
+ "\x4e\x43\x6f\x6d\x6b\x4f\x66\x57\x59\x42\x63\x50" .
+ "\x68\x48\x5a\x5b\x62\x54";
my $expected_crc = 0xAAD60AC7 ; # 2866154183
my $crc = adler32($data) ;
is $crc, $expected_crc;
==== //depot/perl/ext/Compress/Zlib/t/14gzopen.t#12 (text) ====
Index: perl/ext/Compress/Zlib/t/14gzopen.t
--- perl/ext/Compress/Zlib/t/14gzopen.t#11~29641~ 2006-12-29
21:55:53.000000000 -0800
+++ perl/ext/Compress/Zlib/t/14gzopen.t 2007-09-02 01:06:33.000000000 -0700
@@ -20,7 +20,7 @@
$extra = 1
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- plan tests => 217 + $extra ;
+ plan tests => 250 + $extra ;
use_ok('Compress::Zlib', 2) ;
use_ok('IO::Compress::Gzip::Constants') ;
@@ -601,3 +601,27 @@
ok defined $buf2, " output buffer defined";
is $buf2, "", " output buffer empty string";
}
+
+{
+ title 'gzreadline does not support $/';
+
+ my $lex = new LexFile my $name ;
+
+ my $a = gzopen($name, "w");
+ my $text = "fred\n";
+ my $len = length $text;
+ $a->gzwrite($text);
+ $a->gzwrite("\n\n");
+ $a->gzclose ;
+
+ for my $delim ( undef, "", 0, 1, "abc", $text, "\n\n", "\n" )
+ {
+ local $/ = $delim;
+ my $u = gzopen($name, "r");
+ my $line;
+ is $u->gzreadline($line), length $text, " read $len bytes";
+ is $line, $text, " got expected line";
+ ok ! $u->gzclose, " closed" ;
+ is $/, $delim, ' $/ unchanged by gzreadline';
+ }
+}
==== //depot/perl/ext/IO_Compress_Base/Changes#3 (text) ====
Index: perl/ext/IO_Compress_Base/Changes
--- perl/ext/IO_Compress_Base/Changes#2~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/IO_Compress_Base/Changes 2007-09-02 01:06:33.000000000 -0700
@@ -1,6 +1,12 @@
CHANGES
-------
+ 2.006 1 September 20007
+
+ * Makefile.PL
+ Added INSTALLDIRS directive to install as a core module when built
+ on a perl >= 5.9.
+
2.005 18 June 2007
* Stephen Turner reported a problem when using IO::Uncompress::Gunzip
==== //depot/perl/ext/IO_Compress_Base/Makefile.PL#2 (text) ====
Index: perl/ext/IO_Compress_Base/Makefile.PL
--- perl/ext/IO_Compress_Base/Makefile.PL#1~31047~ 2007-04-23
20:18:34.000000000 -0700
+++ perl/ext/IO_Compress_Base/Makefile.PL 2007-09-02 01:06:33.000000000
-0700
@@ -35,6 +35,8 @@
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
==== //depot/perl/ext/IO_Compress_Base/README#3 (text) ====
Index: perl/ext/IO_Compress_Base/README
--- perl/ext/IO_Compress_Base/README#2~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/IO_Compress_Base/README 2007-09-02 01:06:33.000000000 -0700
@@ -1,9 +1,9 @@
IO::Compress::Base
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
==== //depot/perl/ext/IO_Compress_Base/lib/IO/Compress/Base.pm#3 (text) ====
Index: perl/ext/IO_Compress_Base/lib/IO/Compress/Base.pm
--- perl/ext/IO_Compress_Base/lib/IO/Compress/Base.pm#2~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Base/lib/IO/Compress/Base.pm 2007-09-02
01:06:33.000000000 -0700
@@ -6,7 +6,7 @@
use strict ;
use warnings;
-use IO::Compress::Base::Common 2.005 ;
+use IO::Compress::Base::Common 2.006 ;
use IO::File ;
use Scalar::Util qw(blessed readonly);
@@ -20,7 +20,7 @@
our (@ISA, $VERSION);
@ISA = qw(Exporter IO::File);
-$VERSION = '2.005';
+$VERSION = '2.006';
#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.
@@ -988,4 +988,3 @@
modify it under the same terms as Perl itself.
-
==== //depot/perl/ext/IO_Compress_Base/lib/IO/Compress/Base/Common.pm#3 (text)
====
Index: perl/ext/IO_Compress_Base/lib/IO/Compress/Base/Common.pm
--- perl/ext/IO_Compress_Base/lib/IO/Compress/Base/Common.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Base/lib/IO/Compress/Base/Common.pm 2007-09-02
01:06:33.000000000 -0700
@@ -11,7 +11,7 @@
require Exporter;
our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
@ISA = qw(Exporter);
-$VERSION = '2.005';
+$VERSION = '2.006';
@EXPORT = qw( isaFilehandle isaFilename whatIsInput whatIsOutput
isaFileGlobString cleanFileGlobString oneTarget
==== //depot/perl/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm#3
(text) ====
Index: perl/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm
--- perl/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Base/lib/IO/Uncompress/AnyUncompress.pm
2007-09-02 01:06:33.000000000 -0700
@@ -4,16 +4,16 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(createSelfTiedObject);
+use IO::Compress::Base::Common 2.006 qw(createSelfTiedObject);
-use IO::Uncompress::Base 2.005 ;
+use IO::Uncompress::Base 2.006 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$AnyUncompressError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
@@ -27,18 +27,18 @@
BEGIN
{
- eval ' use IO::Uncompress::Adapter::Inflate 2.005 ;';
- eval ' use IO::Uncompress::Adapter::Bunzip2 2.005 ;';
- eval ' use IO::Uncompress::Adapter::LZO 2.005 ;';
- eval ' use IO::Uncompress::Adapter::Lzf 2.005 ;';
-
- eval ' use IO::Uncompress::Bunzip2 2.005 ;';
- eval ' use IO::Uncompress::UnLzop 2.005 ;';
- eval ' use IO::Uncompress::Gunzip 2.005 ;';
- eval ' use IO::Uncompress::Inflate 2.005 ;';
- eval ' use IO::Uncompress::RawInflate 2.005 ;';
- eval ' use IO::Uncompress::Unzip 2.005 ;';
- eval ' use IO::Uncompress::UnLzf 2.005 ;';
+ 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 ;';
}
sub new
@@ -56,7 +56,7 @@
sub getExtraParams
{
- use IO::Compress::Base::Common 2.005 qw(:Parse);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ;
}
==== //depot/perl/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm#3 (text) ====
Index: perl/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm
--- perl/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Base/lib/IO/Uncompress/Base.pm 2007-09-02
01:06:33.000000000 -0700
@@ -9,12 +9,12 @@
@ISA = qw(Exporter IO::File);
-$VERSION = '2.005';
+$VERSION = '2.006';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
-use IO::Compress::Base::Common 2.005 ;
+use IO::Compress::Base::Common 2.006 ;
#use Parse::Parameters ;
use IO::File ;
==== //depot/perl/ext/IO_Compress_Zlib/Changes#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/Changes
--- perl/ext/IO_Compress_Zlib/Changes#2~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/IO_Compress_Zlib/Changes 2007-09-02 01:06:33.000000000 -0700
@@ -1,6 +1,17 @@
CHANGES
-------
+ 2.006 1 September 2007
+
+ * Makefile.PL
+ Added INSTALLDIRS directive to install as a core module when built
+ on a perl >= 5.9.
+
+ * IO::Uncompress::RawDeflate
+
+ - Fixed export problem - "$RawDeflateError" and "rawdeflate" were
+ not being exported with ":all".
+
2.005 18 June 2007
* IO::Compress::Gzip & IO::Uncompress::Gunzip
==== //depot/perl/ext/IO_Compress_Zlib/Makefile.PL#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/Makefile.PL
--- perl/ext/IO_Compress_Zlib/Makefile.PL#2~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/Makefile.PL 2007-09-02 01:06:33.000000000
-0700
@@ -3,7 +3,7 @@
use strict ;
require 5.004 ;
-$::VERSION = '2.005' ;
+$::VERSION = '2.006' ;
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
@@ -49,6 +49,8 @@
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
==== //depot/perl/ext/IO_Compress_Zlib/README#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/README
--- perl/ext/IO_Compress_Zlib/README#2~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/ext/IO_Compress_Zlib/README 2007-09-02 01:06:33.000000000 -0700
@@ -1,9 +1,9 @@
IO::Compress::Zlib
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm#3
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Deflate.pm
2007-09-02 01:06:33.000000000 -0700
@@ -4,12 +4,12 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(:Status);
+use IO::Compress::Base::Common 2.006 qw(:Status);
-use Compress::Raw::Zlib 2.005 qw(Z_OK Z_FINISH MAX_WBITS) ;
+use Compress::Raw::Zlib 2.006 qw(Z_OK Z_FINISH MAX_WBITS) ;
our ($VERSION);
-$VERSION = '2.005';
+$VERSION = '2.006';
sub mkCompObject
{
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm#3
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Adapter/Identity.pm
2007-09-02 01:06:33.000000000 -0700
@@ -4,10 +4,10 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(:Status);
+use IO::Compress::Base::Common 2.006 qw(:Status);
our ($VERSION);
-$VERSION = '2.005';
+$VERSION = '2.006';
sub mkCompObject
{
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Deflate.pm 2007-09-02
01:06:33.000000000 -0700
@@ -6,16 +6,16 @@
require Exporter ;
-use IO::Compress::RawDeflate 2.005 ;
+use IO::Compress::RawDeflate 2.006 ;
-use Compress::Raw::Zlib 2.005 ;
-use IO::Compress::Zlib::Constants 2.005 ;
-use IO::Compress::Base::Common 2.005 qw(createSelfTiedObject);
+use Compress::Raw::Zlib 2.006 ;
+use IO::Compress::Zlib::Constants 2.006 ;
+use IO::Compress::Base::Common 2.006 qw(createSelfTiedObject);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$DeflateError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm#2~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip.pm 2007-09-02
01:06:33.000000000 -0700
@@ -8,12 +8,12 @@
use bytes;
-use IO::Compress::RawDeflate 2.005 ;
+use IO::Compress::RawDeflate 2.006 ;
-use Compress::Raw::Zlib 2.005 ;
-use IO::Compress::Base::Common 2.005 qw(:Status :Parse createSelfTiedObject);
-use IO::Compress::Gzip::Constants 2.005 ;
-use IO::Compress::Zlib::Extra 2.005 ;
+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 ;
BEGIN
{
@@ -27,7 +27,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$GzipError = '' ;
@ISA = qw(Exporter IO::Compress::RawDeflate);
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm#4
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm#3~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Gzip/Constants.pm 2007-09-02
01:06:33.000000000 -0700
@@ -9,7 +9,7 @@
our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names);
our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE);
-$VERSION = '2.005';
+$VERSION = '2.006';
@ISA = qw(Exporter);
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/RawDeflate.pm#3 (text)
====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/RawDeflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/RawDeflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/RawDeflate.pm 2007-09-02
01:06:33.000000000 -0700
@@ -7,21 +7,20 @@
use bytes;
-use IO::Compress::Base 2.005 ;
-use IO::Compress::Base::Common 2.005 qw(:Status createSelfTiedObject);
-use IO::Compress::Adapter::Deflate 2.005 ;
+use IO::Compress::Base 2.006 ;
+use IO::Compress::Base::Common 2.006 qw(:Status createSelfTiedObject);
+use IO::Compress::Adapter::Deflate 2.006 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS,
$RawDeflateError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$RawDeflateError = '';
@ISA = qw(Exporter IO::Compress::Base);
@EXPORT_OK = qw( $RawDeflateError rawdeflate ) ;
-push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
%EXPORT_TAGS = ( flush => [qw{
Z_NO_FLUSH
@@ -58,8 +57,11 @@
$EXPORT_TAGS{all} = $EXPORT_TAGS{constants} ;
}
+
%DEFLATE_CONSTANTS = %EXPORT_TAGS;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
Exporter::export_ok_tags('all');
@@ -141,8 +143,8 @@
{
my $self = shift ;
- use IO::Compress::Base::Common 2.005 qw(:Parse);
- use Compress::Raw::Zlib 2.005 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION
Z_DEFAULT_STRATEGY);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
+ use Compress::Raw::Zlib 2.006 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION
Z_DEFAULT_STRATEGY);
return (
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip.pm#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip.pm#2~31520~ 2007-07-02
09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip.pm 2007-09-02
01:06:33.000000000 -0700
@@ -4,21 +4,21 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(:Status createSelfTiedObject);
-use IO::Compress::RawDeflate 2.005 ;
-use IO::Compress::Adapter::Deflate 2.005 ;
-use IO::Compress::Adapter::Identity 2.005 ;
-use IO::Compress::Zlib::Extra 2.005 ;
-use IO::Compress::Zip::Constants 2.005 ;
+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 Compress::Raw::Zlib 2.005 qw(crc32) ;
+use Compress::Raw::Zlib 2.006 qw(crc32) ;
BEGIN
{
eval { require IO::Compress::Adapter::Bzip2 ;
- import IO::Compress::Adapter::Bzip2 2.005 ;
+ import IO::Compress::Adapter::Bzip2 2.006 ;
require IO::Compress::Bzip2 ;
- import IO::Compress::Bzip2 2.005 ;
+ import IO::Compress::Bzip2 2.006 ;
} ;
}
@@ -27,7 +27,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
@@ -441,8 +441,8 @@
{
my $self = shift ;
- use IO::Compress::Base::Common 2.005 qw(:Parse);
- use Compress::Raw::Zlib 2.005 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION
Z_DEFAULT_STRATEGY);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
+ use Compress::Raw::Zlib 2.006 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION
Z_DEFAULT_STRATEGY);
my @Bzip2 = ();
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip/Constants.pm#3
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip/Constants.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip/Constants.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zip/Constants.pm 2007-09-02
01:06:33.000000000 -0700
@@ -7,7 +7,7 @@
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.005';
+$VERSION = '2.006';
@ISA = qw(Exporter);
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Constants.pm#3
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Constants.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Constants.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Constants.pm 2007-09-02
01:06:33.000000000 -0700
@@ -9,7 +9,7 @@
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.005';
+$VERSION = '2.006';
@ISA = qw(Exporter);
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Extra.pm#3 (text)
====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Extra.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Extra.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Compress/Zlib/Extra.pm 2007-09-02
01:06:33.000000000 -0700
@@ -8,9 +8,9 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.005';
+$VERSION = '2.006';
-use IO::Compress::Gzip::Constants 2.005 ;
+use IO::Compress::Gzip::Constants 2.006 ;
sub ExtraFieldError
{
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Identity.pm#3
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Identity.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Identity.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Identity.pm
2007-09-02 01:06:33.000000000 -0700
@@ -4,13 +4,13 @@
use strict;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(:Status);
+use IO::Compress::Base::Common 2.006 qw(:Status);
our ($VERSION);
-$VERSION = '2.005';
+$VERSION = '2.006';
-use Compress::Raw::Zlib 2.005 ();
+use Compress::Raw::Zlib 2.006 ();
sub mkUncompObject
{
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Inflate.pm#3
(text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Inflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Inflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Adapter/Inflate.pm
2007-09-02 01:06:33.000000000 -0700
@@ -4,11 +4,11 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(:Status);
-use Compress::Raw::Zlib 2.005 qw(Z_OK Z_DATA_ERROR Z_STREAM_END Z_FINISH
MAX_WBITS);
+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);
our ($VERSION);
-$VERSION = '2.005';
+$VERSION = '2.006';
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/AnyInflate.pm#3 (text)
====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/AnyInflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/AnyInflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/AnyInflate.pm 2007-09-02
01:06:33.000000000 -0700
@@ -6,22 +6,22 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(createSelfTiedObject);
+use IO::Compress::Base::Common 2.006 qw(createSelfTiedObject);
-use IO::Uncompress::Adapter::Inflate 2.005 ();
+use IO::Uncompress::Adapter::Inflate 2.006 ();
-use IO::Uncompress::Base 2.005 ;
-use IO::Uncompress::Gunzip 2.005 ;
-use IO::Uncompress::Inflate 2.005 ;
-use IO::Uncompress::RawInflate 2.005 ;
-use IO::Uncompress::Unzip 2.005 ;
+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 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$AnyInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
@@ -48,7 +48,7 @@
sub getExtraParams
{
- use IO::Compress::Base::Common 2.005 qw(:Parse);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ;
}
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Gunzip.pm#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Gunzip.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Gunzip.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Gunzip.pm 2007-09-02
01:06:33.000000000 -0700
@@ -9,12 +9,12 @@
use warnings;
use bytes;
-use IO::Uncompress::RawInflate 2.005 ;
+use IO::Uncompress::RawInflate 2.006 ;
-use Compress::Raw::Zlib 2.005 qw( crc32 ) ;
-use IO::Compress::Base::Common 2.005 qw(:Status createSelfTiedObject);
-use IO::Compress::Gzip::Constants 2.005 ;
-use IO::Compress::Zlib::Extra 2.005 ;
+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 ;
require Exporter ;
@@ -28,7 +28,7 @@
$GunzipError = '';
-$VERSION = '2.005';
+$VERSION = '2.006';
sub new
{
@@ -47,7 +47,7 @@
sub getExtraParams
{
- use IO::Compress::Base::Common 2.005 qw(:Parse);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
return ( 'ParseExtra' => [1, 1, Parse_boolean, 0] ) ;
}
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Inflate.pm#3 (text)
====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Inflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Inflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Inflate.pm 2007-09-02
01:06:33.000000000 -0700
@@ -5,15 +5,15 @@
use warnings;
use bytes;
-use IO::Compress::Base::Common 2.005 qw(:Status createSelfTiedObject);
-use IO::Compress::Zlib::Constants 2.005 ;
+use IO::Compress::Base::Common 2.006 qw(:Status createSelfTiedObject);
+use IO::Compress::Zlib::Constants 2.006 ;
-use IO::Uncompress::RawInflate 2.005 ;
+use IO::Uncompress::RawInflate 2.006 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$InflateError = '';
@ISA = qw( Exporter IO::Uncompress::RawInflate );
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/RawInflate.pm#3 (text)
====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/RawInflate.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/RawInflate.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/RawInflate.pm 2007-09-02
01:06:33.000000000 -0700
@@ -5,11 +5,11 @@
use warnings;
use bytes;
-use Compress::Raw::Zlib 2.005 ;
-use IO::Compress::Base::Common 2.005 qw(:Status createSelfTiedObject);
+use Compress::Raw::Zlib 2.006 ;
+use IO::Compress::Base::Common 2.006 qw(:Status createSelfTiedObject);
-use IO::Uncompress::Base 2.005 ;
-use IO::Uncompress::Adapter::Inflate 2.005 ;
+use IO::Uncompress::Base 2.006 ;
+use IO::Uncompress::Adapter::Inflate 2.006 ;
@@ -17,7 +17,7 @@
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS,
$RawInflateError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$RawInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
==== //depot/perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Unzip.pm#3 (text) ====
Index: perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Unzip.pm
--- perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Unzip.pm#2~31520~
2007-07-02 09:52:30.000000000 -0700
+++ perl/ext/IO_Compress_Zlib/lib/IO/Uncompress/Unzip.pm 2007-09-02
01:06:33.000000000 -0700
@@ -8,13 +8,13 @@
use warnings;
use bytes;
-use IO::Uncompress::RawInflate 2.005 ;
-use IO::Compress::Base::Common 2.005 qw(:Status createSelfTiedObject);
-use IO::Uncompress::Adapter::Identity 2.005 ;
-use IO::Compress::Zlib::Extra 2.005 ;
-use IO::Compress::Zip::Constants 2.005 ;
+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 Compress::Raw::Zlib 2.005 qw(crc32) ;
+use Compress::Raw::Zlib 2.006 qw(crc32) ;
BEGIN
{
@@ -27,7 +27,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.005';
+$VERSION = '2.006';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
@@ -60,7 +60,7 @@
sub getExtraParams
{
- use IO::Compress::Base::Common 2.005 qw(:Parse);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
return (
==== //depot/perl/t/lib/compress/generic.pl#8 (text) ====
Index: perl/t/lib/compress/generic.pl
--- perl/t/lib/compress/generic.pl#7~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/t/lib/compress/generic.pl 2007-09-02 01:06:33.000000000 -0700
@@ -612,7 +612,7 @@
my $foo = "1234567890";
is $io->syswrite($foo, length($foo)), length($foo), " syswrite
ok" ;
- if ( $[ < 5.6 )
+ if ( $] < 5.6 )
{ is $io->syswrite($foo, length $foo), length $foo, " syswrite
ok" }
else
{ is $io->syswrite($foo), length $foo, " syswrite ok" }
==== //depot/perl/t/lib/compress/newtied.pl#3 (text) ====
Index: perl/t/lib/compress/newtied.pl
--- perl/t/lib/compress/newtied.pl#2~27384~ 2006-03-05 18:06:04.000000000
-0800
+++ perl/t/lib/compress/newtied.pl 2007-09-02 01:06:33.000000000 -0700
@@ -103,7 +103,7 @@
my $foo = "1234567890";
ok syswrite($io, $foo, length($foo)) == length($foo) ;
- if ( $[ < 5.6 )
+ if ( $] < 5.6 )
{ is $io->syswrite($foo, length $foo), length $foo }
else
{ is $io->syswrite($foo), length $foo }
==== //depot/perl/t/lib/compress/tied.pl#5 (text) ====
Index: perl/t/lib/compress/tied.pl
--- perl/t/lib/compress/tied.pl#4~31520~ 2007-07-02 09:52:30.000000000
-0700
+++ perl/t/lib/compress/tied.pl 2007-09-02 01:06:33.000000000 -0700
@@ -150,7 +150,7 @@
my $foo = "1234567890";
ok syswrite($io, $foo, length($foo)) == length($foo) ;
- if ( $[ < 5.6 )
+ if ( $] < 5.6 )
{ is $io->syswrite($foo, length $foo), length $foo }
else
{ is $io->syswrite($foo), length $foo }
End of Patch.
