CHANGES
-------
- 2.021 30 August 2009
+ 2.022 9 October 2009
+
+ * IO::Compress - Makefile.PL
+ Fix for core.
+ 2.021 30 August 2009
* IO::Compress::Base.pm
- Less warnnings when reading from a closed filehandle.
INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
(
- $] >= 5.009 && ! $ENV{PERL_CORE}
- ? (INST_LIB => 'blib/arch')
+ $] >= 5.009 && $] <= 5.011001 && ! $ENV{PERL_CORE}
+ ? (INSTALLPRIVLIB => '$(INSTALLARCHLIB)')
: ()
),
- IO-Compress
+ IO-Compress
- Version 2.021
+ Version 2.022
- 30th August 2009
+ 9th October 2009
Copyright (c) 1995-2009 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.021';
+$VERSION = '2.022';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
use Compress::Raw::Bzip2 2.021 ;
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkCompObject
{
use Compress::Raw::Zlib 2.021 qw(Z_OK Z_FINISH MAX_WBITS) ;
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkCompObject
{
use IO::Compress::Base::Common 2.021 qw(:Status);
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkCompObject
{
our (@ISA, $VERSION);
@ISA = qw(Exporter IO::File);
-$VERSION = '2.021';
+$VERSION = '2.022';
#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.
require Exporter;
our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
@ISA = qw(Exporter);
-$VERSION = '2.021';
+$VERSION = '2.022';
@EXPORT = qw( isaFilehandle isaFilename whatIsInput whatIsOutput
isaFileGlobString cleanFileGlobString oneTarget
$key = lc $key;
if ($firstTime || ! $sticky) {
- $x = [ $x ]
+ $x = []
if $type & Parse_multiple;
$got->{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
-$VERSION = '2.021';
+$VERSION = '2.022';
$Bzip2Error = '';
@ISA = qw(Exporter IO::Compress::Base);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$DeflateError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$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.021';
+$VERSION = '2.022';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$RawDeflateError = '';
@ISA = qw(Exporter IO::Compress::Base);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.021';
+$VERSION = '2.022';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.021';
+$VERSION = '2.022';
@ISA = qw(Exporter);
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.021';
+$VERSION = '2.022';
use IO::Compress::Gzip::Constants 2.021 ;
use Compress::Raw::Bzip2 2.021 ;
our ($VERSION, @ISA);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkUncompObject
{
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
use Compress::Raw::Zlib 2.021 ();
use Compress::Raw::Zlib 2.021 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$AnyInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$AnyUncompressError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
eval ' use IO::Uncompress::Adapter::Bunzip2 2.021 ;';
eval ' use IO::Uncompress::Adapter::LZO 2.021 ;';
eval ' use IO::Uncompress::Adapter::Lzf 2.021 ;';
- eval ' use IO::Uncompress::Adapter::UnLzma 2.020 ;';
- eval ' use IO::Uncompress::Adapter::UnXz 2.020 ;';
+ #eval ' use IO::Uncompress::Adapter::UnLzma 2.020 ;';
+ #eval ' use IO::Uncompress::Adapter::UnXz 2.020 ;';
eval ' use IO::Uncompress::Bunzip2 2.021 ;';
eval ' use IO::Uncompress::UnLzop 2.021 ;';
eval ' use IO::Uncompress::RawInflate 2.021 ;';
eval ' use IO::Uncompress::Unzip 2.021 ;';
eval ' use IO::Uncompress::UnLzf 2.021 ;';
- eval ' use IO::Uncompress::UnLzma 2.018 ;';
- eval ' use IO::Uncompress::UnXz 2.018 ;';
+ #eval ' use IO::Uncompress::UnLzma 2.018 ;';
+ #eval ' use IO::Uncompress::UnXz 2.018 ;';
}
sub new
sub getExtraParams
{
use IO::Compress::Base::Common 2.021 qw(:Parse);
- return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ) ;
+ return ( 'RawInflate' => [1, 1, Parse_boolean, 0] ,
+ 'UnLzma' => [1, 1, Parse_boolean, 0] ) ;
}
sub ckParams
}
}
-# if (defined $IO::Uncompress::UnLzma::VERSION )
+# if (defined $IO::Uncompress::UnLzma::VERSION && $got->value('UnLzma'))
# {
# my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnLzma::mkUncompObject();
#
# return 1;
# }
# }
-
- if (defined $IO::Uncompress::UnXz::VERSION and
- $magic = $self->ckMagic('UnXz')) {
- *$self->{Info} = $self->readHeader($magic)
- or return undef ;
-
- my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnXz::mkUncompObject();
-
- return $self->saveErrorString(undef, $errstr, $errno)
- if ! defined $obj;
-
- *$self->{Uncomp} = $obj;
-
- return 1;
- }
+#
+# if (defined $IO::Uncompress::UnXz::VERSION and
+# $magic = $self->ckMagic('UnXz')) {
+# *$self->{Info} = $self->readHeader($magic)
+# or return undef ;
+#
+# my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnXz::mkUncompObject();
+#
+# return $self->saveErrorString(undef, $errstr, $errno)
+# if ! defined $obj;
+#
+# *$self->{Uncomp} = $obj;
+#
+# return 1;
+# }
if (defined $IO::Uncompress::Bunzip2::VERSION and
$magic = $self->ckMagic('Bunzip2')) {
@ISA = qw(Exporter IO::File);
-$VERSION = '2.021';
+$VERSION = '2.022';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
-$VERSION = '2.021';
+$VERSION = '2.022';
$Bunzip2Error = '';
@ISA = qw( Exporter IO::Uncompress::Base );
$GunzipError = '';
-$VERSION = '2.021';
+$VERSION = '2.022';
sub new
{
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$InflateError = '';
@ISA = qw( Exporter IO::Uncompress::RawInflate );
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$RawInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.021';
+$VERSION = '2.022';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
like $@, mkErr("Parameter 'Fred' not a scalar"),
"wanted scalar";
- #eval { ParseParameters(1, {'Fred' => [1, 1, Parse_any|Parse_multiple, 0]}, Fred => 1, Fred => 2) ; };
- #like $@, mkErr("Muliple instances of 'Fred' found"),
- #"wanted scalar";
+# eval { ParseParameters(1, {'Fred' => [1, 1, Parse_any, 0]}, Fred => 1, Fred => 2) ; };
+# like $@, mkErr("Muliple instances of 'Fred' found"),
+# "wanted scalar";
- ok 1;
+ my $g = ParseParameters(1, {'Fred' => [1, 1, Parse_unsigned|Parse_multiple, 7]}, Fred => 1, Fred => 2) ;
+ is_deeply $g->value('Fred'), [ 1, 2 ] ;
+
+ #ok 1;
my $got = ParseParameters(1, {'Fred' => [1, 1, 0x1000000, 0]}, Fred => 'abc') ;
is $got->value('Fred'), "abc", "other" ;
sub title
{
#diag "" ;
- ok 1, $_[0] ;
+ ok(1, $_[0]) ;
#diag "" ;
}
Append => 1,
Transparent => 0,
RawInflate => 1,
+ #UnLzma => 1,
@opts
or croak "Cannot open buffer/file: $AnyUncompressError" ;
Append => 1,
Transparent => 0,
RawInflate => 1,
+ #UnLzma => 1,
@opts
or croak "Cannot open buffer/file: $AnyUncompressError" ;
{
my $class = shift ;
- return (0,0) if $class =~ /lzf/i;
+ return (0,0) if $class =~ /lzf|lzma/i;
return (1,0);
}
{
my $unc = new $AnyConstruct $input, Transparent => $trans,
RawInflate => 1,
+ #UnLzma => 1,
Append => 1 ;
ok $unc, " Created $AnyClass object"
{
my $unc = new $AnyConstruct $input, Transparent => $trans,
RawInflate => 1,
+ #UnLzma => 1,
Append => 1 ;
ok $unc, " Created $AnyClass object"
my $FuncInverse = getTopFuncRef($TopTypeInverse);
my @opts = ();
- @opts = (RawInflate => 1)
+ @opts = (RawInflate => 1, UnLzma => 1)
if $CompressClass eq 'IO::Compress::RawInflate';
for my $append ( 1, 0 )
{
title "Truncated file";
skip '', 7
- if $CompressClass =~ /lzop|lzf/i ;
+ if $CompressClass =~ /lzop|lzf|lzma/i ;
my @in ;
push @in, "abcde" x 10;
my $incumbent = "incumbent data" ;
my @opts = (Strict => 1);
- push @opts, (RawInflate => 1)
+ push @opts, (RawInflate => 1, UnLzma => 1)
if $bit eq 'IO::Uncompress::AnyUncompress';
for my $append (0, 1)
my $keep_comp = $comp;
my @opts = ();
- @opts = (RawInflate => 1)
+ @opts = (RawInflate => 1, UnLzma => 1)
if $bit eq 'IO::Uncompress::AnyUncompress';
my $incumbent = "incumbent data" ;
mkdir $tmpDir2, 0777;
my @opts = ();
- @opts = (RawInflate => 1)
+ @opts = (RawInflate => 1, UnLzma => 1)
if $bit eq 'IO::Uncompress::AnyUncompress';
ok -d $tmpDir1, " Temp Directory $tmpDir1 exists";
ok $gz;
ok ! $gz->error() ;
my $buff ;
- is $gz->read($buff), length($part) ;
+ is $gz->read($buff, 5000), length($part) ;
ok $buff eq $part ;
ok $gz->eof() ;
$gz->close();
projects / p5sagit/p5-mst-13.2.git / commitdiff