r46638 - in /trunk/libio-compress-perl: ./ debian/ lib/Compress/ lib/IO/Compress/ lib/IO/Compress/Adapter/ lib/IO/Compress/Base/ lib/IO/Compress/Gzip/ lib/IO/Compress/Zip/ lib/IO/Compress/Zlib/ lib/IO/Uncompress/ lib/IO/Uncompress/Adapter/ t/ t/compress/
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sun Nov 1 17:21:58 UTC 2009
Author: dmn
Date: Sun Nov 1 17:21:50 2009
New Revision: 46638
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46638
Log:
New upstream release
Modified:
trunk/libio-compress-perl/Changes
trunk/libio-compress-perl/META.yml
trunk/libio-compress-perl/Makefile.PL
trunk/libio-compress-perl/README
trunk/libio-compress-perl/debian/changelog
trunk/libio-compress-perl/lib/Compress/Zlib.pm
trunk/libio-compress-perl/lib/IO/Compress/Adapter/Bzip2.pm
trunk/libio-compress-perl/lib/IO/Compress/Adapter/Deflate.pm
trunk/libio-compress-perl/lib/IO/Compress/Adapter/Identity.pm
trunk/libio-compress-perl/lib/IO/Compress/Base.pm
trunk/libio-compress-perl/lib/IO/Compress/Base/Common.pm
trunk/libio-compress-perl/lib/IO/Compress/Bzip2.pm
trunk/libio-compress-perl/lib/IO/Compress/Deflate.pm
trunk/libio-compress-perl/lib/IO/Compress/Gzip.pm
trunk/libio-compress-perl/lib/IO/Compress/Gzip/Constants.pm
trunk/libio-compress-perl/lib/IO/Compress/RawDeflate.pm
trunk/libio-compress-perl/lib/IO/Compress/Zip.pm
trunk/libio-compress-perl/lib/IO/Compress/Zip/Constants.pm
trunk/libio-compress-perl/lib/IO/Compress/Zlib/Constants.pm
trunk/libio-compress-perl/lib/IO/Compress/Zlib/Extra.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Bunzip2.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Identity.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Inflate.pm
trunk/libio-compress-perl/lib/IO/Uncompress/AnyInflate.pm
trunk/libio-compress-perl/lib/IO/Uncompress/AnyUncompress.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Base.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Bunzip2.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Gunzip.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Inflate.pm
trunk/libio-compress-perl/lib/IO/Uncompress/RawInflate.pm
trunk/libio-compress-perl/lib/IO/Uncompress/Unzip.pm
trunk/libio-compress-perl/t/01misc.t
trunk/libio-compress-perl/t/compress/CompTestUtils.pm
trunk/libio-compress-perl/t/compress/any.pl
trunk/libio-compress-perl/t/compress/oneshot.pl
trunk/libio-compress-perl/t/compress/truncate.pl
Modified: trunk/libio-compress-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/Changes?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/Changes (original)
+++ trunk/libio-compress-perl/Changes Sun Nov 1 17:21:50 2009
@@ -1,8 +1,12 @@
CHANGES
-------
+ 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.
Modified: trunk/libio-compress-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/META.yml?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/META.yml (original)
+++ trunk/libio-compress-perl/META.yml Sun Nov 1 17:21:50 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: IO-Compress
-version: 2.021
+version: 2.022
abstract: IO Interface to compressed data files/buffers
author:
- Paul Marquess <pmqs at cpan.org>
Modified: trunk/libio-compress-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/Makefile.PL?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/Makefile.PL (original)
+++ trunk/libio-compress-perl/Makefile.PL Sun Nov 1 17:21:50 2009
@@ -42,8 +42,8 @@
INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
(
- $] >= 5.009 && ! $ENV{PERL_CORE}
- ? (INST_LIB => 'blib/arch')
+ $] >= 5.009 && $] <= 5.011001 && ! $ENV{PERL_CORE}
+ ? (INSTALLPRIVLIB => '$(INSTALLARCHLIB)')
: ()
),
Modified: trunk/libio-compress-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/README?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/README (original)
+++ trunk/libio-compress-perl/README Sun Nov 1 17:21:50 2009
@@ -1,9 +1,9 @@
- 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
Modified: trunk/libio-compress-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/debian/changelog?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/debian/changelog (original)
+++ trunk/libio-compress-perl/debian/changelog Sun Nov 1 17:21:50 2009
@@ -1,8 +1,12 @@
-libio-compress-perl (2.021-2) UNRELEASED; urgency=low
+libio-compress-perl (2.022-1) UNRELEASED; urgency=low
+ [ Ryan Niebur ]
* Update ryan52's email address
- -- Ryan Niebur <ryan at debian.org> Fri, 25 Sep 2009 00:25:13 -0700
+ [ Damyan Ivanov ]
+ * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org> Sun, 01 Nov 2009 19:12:31 +0200
libio-compress-perl (2.021-1) unstable; urgency=low
Modified: trunk/libio-compress-perl/lib/Compress/Zlib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/Compress/Zlib.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/Compress/Zlib.pm (original)
+++ trunk/libio-compress-perl/lib/Compress/Zlib.pm Sun Nov 1 17:21:50 2009
@@ -18,7 +18,7 @@
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.021';
+$VERSION = '2.022';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
Modified: trunk/libio-compress-perl/lib/IO/Compress/Adapter/Bzip2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Adapter/Bzip2.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Adapter/Bzip2.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Adapter/Bzip2.pm Sun Nov 1 17:21:50 2009
@@ -10,7 +10,7 @@
use Compress::Raw::Bzip2 2.021 ;
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkCompObject
{
Modified: trunk/libio-compress-perl/lib/IO/Compress/Adapter/Deflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Adapter/Deflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Adapter/Deflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Adapter/Deflate.pm Sun Nov 1 17:21:50 2009
@@ -9,7 +9,7 @@
use Compress::Raw::Zlib 2.021 qw(Z_OK Z_FINISH MAX_WBITS) ;
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkCompObject
{
Modified: trunk/libio-compress-perl/lib/IO/Compress/Adapter/Identity.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Adapter/Identity.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Adapter/Identity.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Adapter/Identity.pm Sun Nov 1 17:21:50 2009
@@ -7,7 +7,7 @@
use IO::Compress::Base::Common 2.021 qw(:Status);
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkCompObject
{
Modified: trunk/libio-compress-perl/lib/IO/Compress/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Base.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Base.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Base.pm Sun Nov 1 17:21:50 2009
@@ -20,7 +20,7 @@
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.
Modified: trunk/libio-compress-perl/lib/IO/Compress/Base/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Base/Common.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Base/Common.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Base/Common.pm Sun Nov 1 17:21:50 2009
@@ -11,7 +11,7 @@
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
@@ -589,7 +589,7 @@
$key = lc $key;
if ($firstTime || ! $sticky) {
- $x = [ $x ]
+ $x = []
if $type & Parse_multiple;
$got->{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
Modified: trunk/libio-compress-perl/lib/IO/Compress/Bzip2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Bzip2.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Bzip2.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Bzip2.pm Sun Nov 1 17:21:50 2009
@@ -14,7 +14,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
-$VERSION = '2.021';
+$VERSION = '2.022';
$Bzip2Error = '';
@ISA = qw(Exporter IO::Compress::Base);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Deflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Deflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Deflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Deflate.pm Sun Nov 1 17:21:50 2009
@@ -15,7 +15,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $DeflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$DeflateError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Gzip.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Gzip.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Gzip.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Gzip.pm Sun Nov 1 17:21:50 2009
@@ -27,7 +27,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GzipError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$GzipError = '' ;
@ISA = qw(Exporter IO::Compress::RawDeflate);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Gzip/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Gzip/Constants.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Gzip/Constants.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Gzip/Constants.pm Sun Nov 1 17:21:50 2009
@@ -9,7 +9,7 @@
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);
Modified: trunk/libio-compress-perl/lib/IO/Compress/RawDeflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/RawDeflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/RawDeflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/RawDeflate.pm Sun Nov 1 17:21:50 2009
@@ -16,7 +16,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$RawDeflateError = '';
@ISA = qw(Exporter IO::Compress::Base);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Zip.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Zip.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Zip.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Zip.pm Sun Nov 1 17:21:50 2009
@@ -32,7 +32,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $ZipError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$ZipError = '';
@ISA = qw(Exporter IO::Compress::RawDeflate);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Zip/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Zip/Constants.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Zip/Constants.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Zip/Constants.pm Sun Nov 1 17:21:50 2009
@@ -7,7 +7,7 @@
our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
-$VERSION = '2.021';
+$VERSION = '2.022';
@ISA = qw(Exporter);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Zlib/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Zlib/Constants.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Zlib/Constants.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Zlib/Constants.pm Sun Nov 1 17:21:50 2009
@@ -9,7 +9,7 @@
our ($VERSION, @ISA, @EXPORT);
-$VERSION = '2.021';
+$VERSION = '2.022';
@ISA = qw(Exporter);
Modified: trunk/libio-compress-perl/lib/IO/Compress/Zlib/Extra.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Compress/Zlib/Extra.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Compress/Zlib/Extra.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Compress/Zlib/Extra.pm Sun Nov 1 17:21:50 2009
@@ -8,7 +8,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = '2.021';
+$VERSION = '2.022';
use IO::Compress::Gzip::Constants 2.021 ;
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Bunzip2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Bunzip2.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Bunzip2.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Bunzip2.pm Sun Nov 1 17:21:50 2009
@@ -9,7 +9,7 @@
use Compress::Raw::Bzip2 2.021 ;
our ($VERSION, @ISA);
-$VERSION = '2.021';
+$VERSION = '2.022';
sub mkUncompObject
{
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Identity.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Identity.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Identity.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Identity.pm Sun Nov 1 17:21:50 2009
@@ -8,7 +8,7 @@
our ($VERSION);
-$VERSION = '2.021';
+$VERSION = '2.022';
use Compress::Raw::Zlib 2.021 ();
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Inflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Inflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Inflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Adapter/Inflate.pm Sun Nov 1 17:21:50 2009
@@ -8,7 +8,7 @@
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';
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/AnyInflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/AnyInflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/AnyInflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/AnyInflate.pm Sun Nov 1 17:21:50 2009
@@ -21,7 +21,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$AnyInflateError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/AnyUncompress.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/AnyUncompress.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/AnyUncompress.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/AnyUncompress.pm Sun Nov 1 17:21:50 2009
@@ -13,7 +13,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$AnyUncompressError = '';
@ISA = qw( Exporter IO::Uncompress::Base );
@@ -31,8 +31,8 @@
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 ;';
@@ -41,8 +41,8 @@
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
@@ -61,7 +61,8 @@
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
@@ -107,7 +108,7 @@
}
}
-# if (defined $IO::Uncompress::UnLzma::VERSION )
+# if (defined $IO::Uncompress::UnLzma::VERSION && $got->value('UnLzma'))
# {
# my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnLzma::mkUncompObject();
#
@@ -125,21 +126,21 @@
# 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')) {
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Base.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Base.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Base.pm Sun Nov 1 17:21:50 2009
@@ -9,7 +9,7 @@
@ISA = qw(Exporter IO::File);
-$VERSION = '2.021';
+$VERSION = '2.022';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Bunzip2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Bunzip2.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Bunzip2.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Bunzip2.pm Sun Nov 1 17:21:50 2009
@@ -12,7 +12,7 @@
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
-$VERSION = '2.021';
+$VERSION = '2.022';
$Bunzip2Error = '';
@ISA = qw( Exporter IO::Uncompress::Base );
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Gunzip.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Gunzip.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Gunzip.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Gunzip.pm Sun Nov 1 17:21:50 2009
@@ -28,7 +28,7 @@
$GunzipError = '';
-$VERSION = '2.021';
+$VERSION = '2.022';
sub new
{
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Inflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Inflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Inflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Inflate.pm Sun Nov 1 17:21:50 2009
@@ -13,7 +13,7 @@
require Exporter ;
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
-$VERSION = '2.021';
+$VERSION = '2.022';
$InflateError = '';
@ISA = qw( Exporter IO::Uncompress::RawInflate );
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/RawInflate.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/RawInflate.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/RawInflate.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/RawInflate.pm Sun Nov 1 17:21:50 2009
@@ -14,7 +14,7 @@
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 );
Modified: trunk/libio-compress-perl/lib/IO/Uncompress/Unzip.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/lib/IO/Uncompress/Unzip.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/lib/IO/Uncompress/Unzip.pm (original)
+++ trunk/libio-compress-perl/lib/IO/Uncompress/Unzip.pm Sun Nov 1 17:21:50 2009
@@ -30,7 +30,7 @@
our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
-$VERSION = '2.021';
+$VERSION = '2.022';
$UnzipError = '';
@ISA = qw(Exporter IO::Uncompress::RawInflate);
Modified: trunk/libio-compress-perl/t/01misc.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/t/01misc.t?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/t/01misc.t (original)
+++ trunk/libio-compress-perl/t/01misc.t Sun Nov 1 17:21:50 2009
@@ -86,11 +86,14 @@
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";
-
- ok 1;
+# eval { ParseParameters(1, {'Fred' => [1, 1, Parse_any, 0]}, Fred => 1, Fred => 2) ; };
+# like $@, mkErr("Muliple instances of 'Fred' found"),
+# "wanted scalar";
+
+ 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" ;
Modified: trunk/libio-compress-perl/t/compress/CompTestUtils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/t/compress/CompTestUtils.pm?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/t/compress/CompTestUtils.pm (original)
+++ trunk/libio-compress-perl/t/compress/CompTestUtils.pm Sun Nov 1 17:21:50 2009
@@ -16,7 +16,7 @@
sub title
{
#diag "" ;
- ok 1, $_[0] ;
+ ok(1, $_[0]) ;
#diag "" ;
}
@@ -476,6 +476,7 @@
Append => 1,
Transparent => 0,
RawInflate => 1,
+ #UnLzma => 1,
@opts
or croak "Cannot open buffer/file: $AnyUncompressError" ;
@@ -537,6 +538,7 @@
Append => 1,
Transparent => 0,
RawInflate => 1,
+ #UnLzma => 1,
@opts
or croak "Cannot open buffer/file: $AnyUncompressError" ;
@@ -647,7 +649,7 @@
{
my $class = shift ;
- return (0,0) if $class =~ /lzf/i;
+ return (0,0) if $class =~ /lzf|lzma/i;
return (1,0);
}
Modified: trunk/libio-compress-perl/t/compress/any.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/t/compress/any.pl?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/t/compress/any.pl (original)
+++ trunk/libio-compress-perl/t/compress/any.pl Sun Nov 1 17:21:50 2009
@@ -57,6 +57,7 @@
{
my $unc = new $AnyConstruct $input, Transparent => $trans,
RawInflate => 1,
+ #UnLzma => 1,
Append => 1 ;
ok $unc, " Created $AnyClass object"
@@ -76,6 +77,7 @@
{
my $unc = new $AnyConstruct $input, Transparent => $trans,
RawInflate => 1,
+ #UnLzma => 1,
Append => 1 ;
ok $unc, " Created $AnyClass object"
Modified: trunk/libio-compress-perl/t/compress/oneshot.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/t/compress/oneshot.pl?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/t/compress/oneshot.pl (original)
+++ trunk/libio-compress-perl/t/compress/oneshot.pl Sun Nov 1 17:21:50 2009
@@ -276,7 +276,7 @@
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 )
@@ -615,7 +615,7 @@
{
title "Truncated file";
skip '', 7
- if $CompressClass =~ /lzop|lzf/i ;
+ if $CompressClass =~ /lzop|lzf|lzma/i ;
my @in ;
push @in, "abcde" x 10;
@@ -1020,7 +1020,7 @@
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)
@@ -1321,7 +1321,7 @@
my $keep_comp = $comp;
my @opts = ();
- @opts = (RawInflate => 1)
+ @opts = (RawInflate => 1, UnLzma => 1)
if $bit eq 'IO::Uncompress::AnyUncompress';
my $incumbent = "incumbent data" ;
@@ -1407,7 +1407,7 @@
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";
Modified: trunk/libio-compress-perl/t/compress/truncate.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-perl/t/compress/truncate.pl?rev=46638&op=diff
==============================================================================
--- trunk/libio-compress-perl/t/compress/truncate.pl (original)
+++ trunk/libio-compress-perl/t/compress/truncate.pl Sun Nov 1 17:21:50 2009
@@ -64,7 +64,7 @@
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();
More information about the Pkg-perl-cvs-commits
mailing list