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.
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
Compress::Raw::Zlib
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
#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 */
}
-#define Zip_zlib_version() (char*)zlib_version
-char*
+#define Zip_zlib_version() (const char*)zlib_version
+const char*
Zip_zlib_version()
unsigned
adler = SvUV(ST(1)) ;
else
adler = adlerInitial;
+ OUTPUT:
+ RETVAL
#define Zip_crc32(buf, crc) crc32(crc, buf, (uInt)len)
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;
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);
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);
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.005';
+$VERSION = '2.006';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
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
use strict ;
require 5.004 ;
-$::VERSION = '2.005' ;
+$::VERSION = '2.006' ;
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
Compress::Zlib
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 1995-2007 Paul Marquess. All rights reserved.
* Perl 5.004 or better.
* Compress::Raw::Zlib
- * IO::Compress::Gzip
+ * IO::Compress::Zlib
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;
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 ;
}
package Compress::Zlib ;
-use IO::Compress::Gzip::Constants 2.005 ;
+use IO::Compress::Gzip::Constants 2.006 ;
sub memGzip($)
{
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>
-If you are writing new code, your first port of call should be to use one
-these new modules.
+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 one of the
+new C<IO::Compress> or C<IO::Uncompress> modules.
=head1 GZIP INTERFACE
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) ;>
-
{
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;
}
{
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;
$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') ;
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';
+ }
+}
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
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
IO::Compress::Base
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
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);
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.
modify it under the same terms as Perl itself.
-
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
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 );
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
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] ) ;
}
@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 ;
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
use strict ;
require 5.004 ;
-$::VERSION = '2.005' ;
+$::VERSION = '2.006' ;
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
: ()
),
+ INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+
((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
('LICENSE' => 'perl') : ()),
IO::Compress::Zlib
- Version 2.005
+ Version 2.006
- 18th June 2007
+ 1st September 2007
Copyright (c) 2005-2007 Paul Marquess. All rights reserved.
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
{
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
{
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);
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
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$GzipError = '' ;
@ISA = qw(Exporter IO::Compress::RawDeflate);
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);
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
$EXPORT_TAGS{all} = $EXPORT_TAGS{constants} ;
}
+
%DEFLATE_CONSTANTS = %EXPORT_TAGS;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
Exporter::export_ok_tags('all');
{
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 (
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 ;
} ;
}
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError);
-$VERSION = '2.005';
+$VERSION = '2.006';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
{
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 = ();
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.005';
+$VERSION = '2.006';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.005';
+$VERSION = '2.006';
@ISA = qw(Exporter);
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
{
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
{
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';
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 );
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] ) ;
}
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 ;
$GunzipError = '';
-$VERSION = '2.005';
+$VERSION = '2.006';
sub new
{
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] ) ;
}
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 );
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 ;
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 );
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
{
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.005';
+$VERSION = '2.006';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
sub getExtraParams
{
- use IO::Compress::Base::Common 2.005 qw(:Parse);
+ use IO::Compress::Base::Common 2.006 qw(:Parse);
return (
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" }
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 }
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 }
projects / platform / upstream / perl.git / commitdiff