r43432 - in /branches/upstream/libcompress-raw-zlib-perl/current: Changes META.yml README lib/Compress/Raw/Zlib.pm private/MakeUtil.pm t/000prereq.t t/compress/CompTestUtils.pm
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Tue Sep 1 20:49:10 UTC 2009
Author: ryan52-guest
Date: Tue Sep 1 20:49:04 2009
New Revision: 43432
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43432
Log:
[svn-upgrade] Integrating new upstream version, libcompress-raw-zlib-perl (2.021)
Modified:
branches/upstream/libcompress-raw-zlib-perl/current/Changes
branches/upstream/libcompress-raw-zlib-perl/current/META.yml
branches/upstream/libcompress-raw-zlib-perl/current/README
branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm
branches/upstream/libcompress-raw-zlib-perl/current/private/MakeUtil.pm
branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t
branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm
Modified: branches/upstream/libcompress-raw-zlib-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/Changes?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/Changes (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/Changes Tue Sep 1 20:49:04 2009
@@ -1,5 +1,10 @@
CHANGES
-------
+
+ 2.021 30 August 2009
+
+ * Changed test harness so that it can cope with PERL5OPT=-MCarp=verbose
+ [RT# 47225]
2.020 3 June 2009
Modified: branches/upstream/libcompress-raw-zlib-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/META.yml?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/META.yml (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/META.yml Tue Sep 1 20:49:04 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Compress-Raw-Zlib
-version: 2.020
+version: 2.021
abstract: ~
author: []
license: perl
@@ -14,7 +14,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.52
+generated_by: ExtUtils::MakeMaker version 6.54
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/libcompress-raw-zlib-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/README?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/README (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/README Tue Sep 1 20:49:04 2009
@@ -1,9 +1,9 @@
Compress-Raw-Zlib
- Version 2.020
-
- 3rd June 2009
+ Version 2.021
+
+ 30th August 2009
Copyright (c) 2005-2009 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it
@@ -355,7 +355,7 @@
If you haven't installed Compress-Raw-Zlib then search Compress::Raw::Zlib.pm
for a line like this:
- $VERSION = "2.020" ;
+ $VERSION = "2.021" ;
c. The version of zlib you have used.
If you have successfully installed Compress-Raw-Zlib, this one-liner
Modified: branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/lib/Compress/Raw/Zlib.pm Tue Sep 1 20:49:04 2009
@@ -13,7 +13,7 @@
use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
-$VERSION = '2.020';
+$VERSION = '2.021';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
Modified: branches/upstream/libcompress-raw-zlib-perl/current/private/MakeUtil.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/private/MakeUtil.pm?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/private/MakeUtil.pm (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/private/MakeUtil.pm Tue Sep 1 20:49:04 2009
@@ -58,9 +58,9 @@
MyTrebleCheck:
@echo Checking for $$^W in files: '. "@files" . '
- @perl -ne \' \
- exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/; \
- \' ' . " @files || " . ' \
+ perl -ne \' \
+ exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/; \' \
+ ' . " @files || " . ' \
(echo found unexpected $$^W ; exit 1)
@echo All is ok.
Modified: branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/t/000prereq.t Tue Sep 1 20:49:04 2009
@@ -19,7 +19,7 @@
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
- my $VERSION = '2.020';
+ my $VERSION = '2.021';
my @NAMES = qw(
);
Modified: branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm?rev=43432&op=diff
==============================================================================
--- branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm (original)
+++ branches/upstream/libcompress-raw-zlib-perl/current/t/compress/CompTestUtils.pm Tue Sep 1 20:49:04 2009
@@ -203,12 +203,164 @@
return readFile($filename) eq unpack("u", $uue) ;
}
-sub isRawFormat
-{
- my $class = shift;
- my %raw = map { $_ => 1 } qw( RawDeflate );
-
- return defined $raw{$class};
+#sub isRawFormat
+#{
+# my $class = shift;
+# # TODO -- add Lzma here?
+# my %raw = map { $_ => 1 } qw( RawDeflate );
+#
+# return defined $raw{$class};
+#}
+
+
+
+my %TOP = (
+ 'IO::Uncompress::AnyInflate' => { Inverse => 'IO::Compress::Gzip',
+ Error => 'AnyInflateError',
+ TopLevel => 'anyinflate',
+ Raw => 0,
+ },
+
+ 'IO::Uncompress::AnyUncompress' => { Inverse => 'IO::Compress::Gzip',
+ Error => 'AnyUncompressError',
+ TopLevel => 'anyuncompress',
+ Raw => 0,
+ },
+
+ 'IO::Compress::Gzip' => { Inverse => 'IO::Uncompress::Gunzip',
+ Error => 'GzipError',
+ TopLevel => 'gzip',
+ Raw => 0,
+ },
+ 'IO::Uncompress::Gunzip' => { Inverse => 'IO::Compress::Gzip',
+ Error => 'GunzipError',
+ TopLevel => 'gunzip',
+ Raw => 0,
+ },
+
+ 'IO::Compress::Deflate' => { Inverse => 'IO::Uncompress::Inflate',
+ Error => 'DeflateError',
+ TopLevel => 'deflate',
+ Raw => 0,
+ },
+ 'IO::Uncompress::Inflate' => { Inverse => 'IO::Compress::Deflate',
+ Error => 'InflateError',
+ TopLevel => 'inflate',
+ Raw => 0,
+ },
+
+ 'IO::Compress::RawDeflate' => { Inverse => 'IO::Uncompress::RawInflate',
+ Error => 'RawDeflateError',
+ TopLevel => 'rawdeflate',
+ Raw => 1,
+ },
+ 'IO::Uncompress::RawInflate' => { Inverse => 'IO::Compress::RawDeflate',
+ Error => 'RawInflateError',
+ TopLevel => 'rawinflate',
+ Raw => 1,
+ },
+
+ 'IO::Compress::Zip' => { Inverse => 'IO::Uncompress::Unzip',
+ Error => 'ZipError',
+ TopLevel => 'zip',
+ Raw => 0,
+ },
+ 'IO::Uncompress::Unzip' => { Inverse => 'IO::Compress::Zip',
+ Error => 'UnzipError',
+ TopLevel => 'unzip',
+ Raw => 0,
+ },
+
+ 'IO::Compress::Bzip2' => { Inverse => 'IO::Uncompress::Bunzip2',
+ Error => 'Bzip2Error',
+ TopLevel => 'bzip2',
+ Raw => 0,
+ },
+ 'IO::Uncompress::Bunzip2' => { Inverse => 'IO::Compress::Bzip2',
+ Error => 'Bunzip2Error',
+ TopLevel => 'bunzip2',
+ Raw => 0,
+ },
+
+ 'IO::Compress::Lzop' => { Inverse => 'IO::Uncompress::UnLzop',
+ Error => 'LzopError',
+ TopLevel => 'lzop',
+ Raw => 0,
+ },
+ 'IO::Uncompress::UnLzop' => { Inverse => 'IO::Compress::Lzop',
+ Error => 'UnLzopError',
+ TopLevel => 'unlzop',
+ Raw => 0,
+ },
+
+ 'IO::Compress::Lzf' => { Inverse => 'IO::Uncompress::UnLzf',
+ Error => 'LzfError',
+ TopLevel => 'lzf',
+ Raw => 0,
+ },
+ 'IO::Uncompress::UnLzf' => { Inverse => 'IO::Compress::Lzf',
+ Error => 'UnLzfError',
+ TopLevel => 'unlzf',
+ Raw => 0,
+ },
+
+ 'IO::Compress::Lzma' => { Inverse => 'IO::Uncompress::UnLzma',
+ Error => 'LzmaError',
+ TopLevel => 'lzma',
+ Raw => 1,
+ },
+ 'IO::Uncompress::UnLzma' => { Inverse => 'IO::Compress::Lzma',
+ Error => 'UnLzmaError',
+ TopLevel => 'unlzma',
+ Raw => 1,
+ },
+
+ 'IO::Compress::Xz' => { Inverse => 'IO::Uncompress::UnXz',
+ Error => 'XzError',
+ TopLevel => 'xz',
+ Raw => 0,
+ },
+ 'IO::Uncompress::UnXz' => { Inverse => 'IO::Compress::Xz',
+ Error => 'UnXzError',
+ TopLevel => 'unxz',
+ Raw => 0,
+ },
+
+ 'IO::Compress::PPMd' => { Inverse => 'IO::Uncompress::UnPPMd',
+ Error => 'PPMdError',
+ TopLevel => 'ppmd',
+ Raw => 0,
+ },
+ 'IO::Uncompress::UnPPMd' => { Inverse => 'IO::Compress::PPMd',
+ Error => 'UnPPMdError',
+ TopLevel => 'unppmd',
+ Raw => 0,
+ },
+
+ 'IO::Compress::DummyComp' => { Inverse => 'IO::Uncompress::DummyUnComp',
+ Error => 'DummyCompError',
+ TopLevel => 'dummycomp',
+ Raw => 0,
+ },
+ 'IO::Uncompress::DummyUnComp' => { Inverse => 'IO::Compress::DummyComp',
+ Error => 'DummyUnCompError',
+ TopLevel => 'dummyunComp',
+ Raw => 0,
+ },
+);
+
+
+for my $key (keys %TOP)
+{
+ no strict;
+ no warnings;
+ $TOP{$key}{Error} = \${ $key . '::' . $TOP{$key}{Error} };
+ $TOP{$key}{TopLevel} = $key . '::' . $TOP{$key}{TopLevel} ;
+
+ # Silence used once warning in really old perl
+ my $dummy = \${ $key . '::' . $TOP{$key}{Error} };
+
+ #$TOP{$key . "::" . $TOP{$key}{TopLevel} } = $TOP{$key};
}
sub uncompressBuffer
@@ -216,171 +368,43 @@
my $compWith = shift ;
my $buffer = shift ;
- my %mapping = ( 'IO::Compress::Gzip' => 'IO::Uncompress::Gunzip',
- 'IO::Compress::Gzip::gzip' => 'IO::Uncompress::Gunzip',
- 'IO::Compress::Deflate' => 'IO::Uncompress::Inflate',
- 'IO::Compress::Deflate::deflate' => 'IO::Uncompress::Inflate',
- 'IO::Compress::RawDeflate' => 'IO::Uncompress::RawInflate',
- 'IO::Compress::RawDeflate::rawdeflate' => 'IO::Uncompress::RawInflate',
- 'IO::Compress::Bzip2' => 'IO::Uncompress::Bunzip2',
- 'IO::Compress::Bzip2::bzip2' => 'IO::Uncompress::Bunzip2',
- 'IO::Compress::Zip' => 'IO::Uncompress::Unzip',
- 'IO::Compress::Zip::zip' => 'IO::Uncompress::Unzip',
- 'IO::Compress::Lzop' => 'IO::Uncompress::UnLzop',
- 'IO::Compress::Lzop::lzop' => 'IO::Uncompress::UnLzop',
- 'IO::Compress::Lzf' => 'IO::Uncompress::UnLzf' ,
- 'IO::Compress::Lzf::lzf' => 'IO::Uncompress::UnLzf',
- 'IO::Compress::PPMd' => 'IO::Uncompress::UnPPMd' ,
- 'IO::Compress::PPMd::ppmd' => 'IO::Uncompress::UnPPMd',
- 'IO::Compress::Lzma' => 'IO::Uncompress::UnLzma',
- 'IO::Compress::Lzma::lzma' => 'IO::Uncompress::UnLzma',
- 'IO::Compress::DummyComp' => 'IO::Uncompress::DummyUncomp',
- 'IO::Compress::DummyComp::dummycomp' => 'IO::Uncompress::DummyUncomp',
- );
my $out ;
- my $obj = $mapping{$compWith}->new( \$buffer, -Append => 1);
+ my $obj = $TOP{$compWith}{Inverse}->new( \$buffer, -Append => 1);
1 while $obj->read($out) > 0 ;
return $out ;
}
-my %ErrorMap = ( 'IO::Compress::Gzip' => \$IO::Compress::Gzip::GzipError,
- 'IO::Compress::Gzip::gzip' => \$IO::Compress::Gzip::GzipError,
- 'IO::Uncompress::Gunzip' => \$IO::Uncompress::Gunzip::GunzipError,
- 'IO::Uncompress::Gunzip::gunzip' => \$IO::Uncompress::Gunzip::GunzipError,
- 'IO::Uncompress::Inflate' => \$IO::Uncompress::Inflate::InflateError,
- 'IO::Uncompress::Inflate::inflate' => \$IO::Uncompress::Inflate::InflateError,
- 'IO::Compress::Deflate' => \$IO::Compress::Deflate::DeflateError,
- 'IO::Compress::Deflate::deflate' => \$IO::Compress::Deflate::DeflateError,
- 'IO::Uncompress::RawInflate' => \$IO::Uncompress::RawInflate::RawInflateError,
- 'IO::Uncompress::RawInflate::rawinflate' => \$IO::Uncompress::RawInflate::RawInflateError,
- 'IO::Uncompress::AnyInflate' => \$IO::Uncompress::AnyInflate::AnyInflateError,
- 'IO::Uncompress::AnyInflate::anyinflate' => \$IO::Uncompress::AnyInflate::AnyInflateError,
- 'IO::Uncompress::AnyUncompress' => \$IO::Uncompress::AnyUncompress::AnyUncompressError,
- 'IO::Uncompress::AnyUncompress::anyUncompress' => \$IO::Uncompress::AnyUncompress::AnyUncompressError,
- 'IO::Compress::RawDeflate' => \$IO::Compress::RawDeflate::RawDeflateError,
- 'IO::Compress::RawDeflate::rawdeflate' => \$IO::Compress::RawDeflate::RawDeflateError,
- 'IO::Compress::Bzip2' => \$IO::Compress::Bzip2::Bzip2Error,
- 'IO::Compress::Bzip2::bzip2' => \$IO::Compress::Bzip2::Bzip2Error,
- 'IO::Uncompress::Bunzip2' => \$IO::Uncompress::Bunzip2::Bunzip2Error,
- 'IO::Uncompress::Bunzip2::bunzip2' => \$IO::Uncompress::Bunzip2::Bunzip2Error,
- 'IO::Compress::Zip' => \$IO::Compress::Zip::ZipError,
- 'IO::Compress::Zip::zip' => \$IO::Compress::Zip::ZipError,
- 'IO::Uncompress::Unzip' => \$IO::Uncompress::Unzip::UnzipError,
- 'IO::Uncompress::Unzip::unzip' => \$IO::Uncompress::Unzip::UnzipError,
- 'IO::Compress::Lzop' => \$IO::Compress::Lzop::LzopError,
- 'IO::Compress::Lzop::lzop' => \$IO::Compress::Lzop::LzopError,
- 'IO::Uncompress::UnLzop' => \$IO::Uncompress::UnLzop::UnLzopError,
- 'IO::Uncompress::UnLzop::unlzop' => \$IO::Uncompress::UnLzop::UnLzopError,
- 'IO::Compress::Lzf' => \$IO::Compress::Lzf::LzfError,
- 'IO::Compress::Lzf::lzf' => \$IO::Compress::Lzf::LzfError,
- 'IO::Uncompress::UnLzf' => \$IO::Uncompress::UnLzf::UnLzfError,
- 'IO::Uncompress::UnLzf::unlzf' => \$IO::Uncompress::UnLzf::UnLzfError,
- 'IO::Compress::PPMd' => \$IO::Compress::PPMd::PPMdError,
- 'IO::Compress::PPMd::ppmd' => \$IO::Compress::PPMd::PPMdError,
- 'IO::Uncompress::UnPPMd' => \$IO::Uncompress::UnPPMd::UnPPMdError,
- 'IO::Uncompress::UnPPMd::unppmd' => \$IO::Uncompress::UnPPMd::UnPPMdError,
- 'IO::Compress::Lzma' => \$IO::Compress::Lzma::LzmaError,
- 'IO::Compress::Lzma::lzma' => \$IO::Compress::Lzma::LzmaError,
- 'IO::Uncompress::UnLzma' => \$IO::Uncompress::UnLzma::UnLzmaError,
- 'IO::Uncompress::UnLzma::unlzma' => \$IO::Uncompress::UnLzma::UnLzmaError,
-
- 'IO::Compress::DummyComp' => \$IO::Compress::DummyComp::DummyCompError,
- 'IO::Compress::DummyComp::dummycomp'=> \$IO::Compress::DummyComp::DummyCompError,
- 'IO::Uncompress::DummyUncomp' => \$IO::Uncompress::DummyUncomp::DummyUncompError,
- 'IO::Uncompress::DummyUncomp::dummyuncomp' => \$IO::Uncompress::DummyUncomp::DummyUncompError,
- );
-
-my %TopFuncMap = ( 'IO::Compress::Gzip' => 'IO::Compress::Gzip::gzip',
- 'IO::Uncompress::Gunzip' => 'IO::Uncompress::Gunzip::gunzip',
-
- 'IO::Compress::Deflate' => 'IO::Compress::Deflate::deflate',
- 'IO::Uncompress::Inflate' => 'IO::Uncompress::Inflate::inflate',
-
- 'IO::Compress::RawDeflate' => 'IO::Compress::RawDeflate::rawdeflate',
- 'IO::Uncompress::RawInflate' => 'IO::Uncompress::RawInflate::rawinflate',
-
- 'IO::Uncompress::AnyInflate' => 'IO::Uncompress::AnyInflate::anyinflate',
- 'IO::Uncompress::AnyUncompress' => 'IO::Uncompress::AnyUncompress::anyuncompress',
-
- 'IO::Compress::Bzip2' => 'IO::Compress::Bzip2::bzip2',
- 'IO::Uncompress::Bunzip2' => 'IO::Uncompress::Bunzip2::bunzip2',
-
- 'IO::Compress::Zip' => 'IO::Compress::Zip::zip',
- 'IO::Uncompress::Unzip' => 'IO::Uncompress::Unzip::unzip',
- 'IO::Compress::Lzop' => 'IO::Compress::Lzop::lzop',
- 'IO::Uncompress::UnLzop' => 'IO::Uncompress::UnLzop::unlzop',
- 'IO::Compress::Lzf' => 'IO::Compress::Lzf::lzf',
- 'IO::Uncompress::UnLzf' => 'IO::Uncompress::UnLzf::unlzf',
- 'IO::Compress::PPMd' => 'IO::Compress::PPMd::ppmd',
- 'IO::Uncompress::UnPPMd' => 'IO::Uncompress::UnPPMd::unppmd',
-
- 'IO::Compress::Lzma' => 'IO::Compress::Lzma::lzma',
- 'IO::Uncompress::UnLzma' => 'IO::Uncompress::UnLzma::unlzma',
-
- 'IO::Compress::DummyComp' => 'IO::Compress::DummyComp::dummyuncomp',
- 'IO::Uncompress::DummyUncomp' => 'IO::Uncompress::DummyUncomp::dummyuncomp',
- );
-
- %TopFuncMap = map { ($_ => $TopFuncMap{$_},
- $TopFuncMap{$_} => $TopFuncMap{$_}) }
- keys %TopFuncMap ;
-
- #%TopFuncMap = map { ($_ => \&{ $TopFuncMap{$_} ) }
- #keys %TopFuncMap ;
-
-
-my %inverse = ( 'IO::Compress::Gzip' => 'IO::Uncompress::Gunzip',
- 'IO::Compress::Gzip::gzip' => 'IO::Uncompress::Gunzip::gunzip',
- 'IO::Compress::Deflate' => 'IO::Uncompress::Inflate',
- 'IO::Compress::Deflate::deflate' => 'IO::Uncompress::Inflate::inflate',
- 'IO::Compress::RawDeflate' => 'IO::Uncompress::RawInflate',
- 'IO::Compress::RawDeflate::rawdeflate' => 'IO::Uncompress::RawInflate::rawinflate',
- 'IO::Compress::Bzip2::bzip2' => 'IO::Uncompress::Bunzip2::bunzip2',
- 'IO::Compress::Bzip2' => 'IO::Uncompress::Bunzip2',
- 'IO::Compress::Zip::zip' => 'IO::Uncompress::Unzip::unzip',
- 'IO::Compress::Zip' => 'IO::Uncompress::Unzip',
- 'IO::Compress::Lzop::lzop' => 'IO::Uncompress::UnLzop::unlzop',
- 'IO::Compress::Lzop' => 'IO::Uncompress::UnLzop',
- 'IO::Compress::Lzf::lzf' => 'IO::Uncompress::UnLzf::unlzf',
- 'IO::Compress::Lzf' => 'IO::Uncompress::UnLzf',
- 'IO::Compress::PPMd::ppmd' => 'IO::Uncompress::UnPPMd::unppmd',
- 'IO::Compress::PPMd' => 'IO::Uncompress::UnPPMd',
- 'IO::Compress::Lzma::lzma' => 'IO::Uncompress::UnLzma::unlzma',
- 'IO::Compress::Lzma' => 'IO::Uncompress::UnLzma',
- 'IO::Compress::DummyComp::dummycomp' => 'IO::Uncompress::DummyUncomp::dummyuncomp',
- 'IO::Compress::DummyComp' => 'IO::Uncompress::DummyUncomp',
- );
-
-%inverse = map { ($_ => $inverse{$_}, $inverse{$_} => $_) } keys %inverse;
sub getInverse
{
my $class = shift ;
- return $inverse{$class} ;
+ return $TOP{$class}{Inverse};
}
sub getErrorRef
{
my $class = shift ;
- return $ErrorMap{$class} ;
+ return $TOP{$class}{Error};
}
sub getTopFuncRef
{
my $class = shift ;
- return \&{ $TopFuncMap{$class} } ;
+ die "Cannot find $class"
+ if ! defined $TOP{$class}{TopLevel};
+ return \&{ $TOP{$class}{TopLevel} } ;
}
sub getTopFuncName
{
my $class = shift ;
- return $TopFuncMap{$class} ;
+ return $TOP{$class}{TopLevel} ;
}
sub compressBuffer
@@ -388,34 +412,11 @@
my $compWith = shift ;
my $buffer = shift ;
- my %mapping = ( 'IO::Uncompress::Gunzip' => 'IO::Compress::Gzip',
- 'IO::Uncompress::Gunzip::gunzip' => 'IO::Compress::Gzip',
- 'IO::Uncompress::Inflate' => 'IO::Compress::Deflate',
- 'IO::Uncompress::Inflate::inflate' => 'IO::Compress::Deflate',
- 'IO::Uncompress::RawInflate' => 'IO::Compress::RawDeflate',
- 'IO::Uncompress::RawInflate::rawinflate' => 'IO::Compress::RawDeflate',
- 'IO::Uncompress::Bunzip2' => 'IO::Compress::Bzip2',
- 'IO::Uncompress::Bunzip2::bunzip2' => 'IO::Compress::Bzip2',
- 'IO::Uncompress::Unzip' => 'IO::Compress::Zip',
- 'IO::Uncompress::Unzip::unzip' => 'IO::Compress::Zip',
- 'IO::Uncompress::UnLzop' => 'IO::Compress::Lzop',
- 'IO::Uncompress::UnLzop::unlzop' => 'IO::Compress::Lzop',
- 'IO::Uncompress::UnLzp' => 'IO::Compress::Lzf',
- 'IO::Uncompress::UnLzf::unlzf' => 'IO::Compress::Lzf',
- 'IO::Uncompress::UnPPMd' => 'IO::Compress::PPMd',
- 'IO::Uncompress::UnPPMd::unppmd' => 'IO::Compress::PPMd',
- 'IO::Uncompress::AnyInflate' => 'IO::Compress::Gzip',
- 'IO::Uncompress::AnyInflate::anyinflate' => 'IO::Compress::Gzip',
- 'IO::Uncompress::AnyUncompress' => 'IO::Compress::Gzip',
- 'IO::Uncompress::AnyUncompress::anyuncompress' => 'IO::Compress::Gzip',
- 'IO::Uncompress::UnLzma' => 'IO::Compress::Lzma',
- 'IO::Uncompress::UnLzma::unlzma' => 'IO::Compress::Lzma',
- 'IO::Uncompress::DummyUncomp' => 'IO::Compress::DummyComp',
- 'IO::Uncompress::DummyUncomp::dummyuncomp'=> 'IO::Compress::DummyComp',
- );
my $out ;
- my $obj = $mapping{$compWith}->new( \$out);
+ die "Cannot find $compWith"
+ if ! defined $TOP{$compWith}{Inverse};
+ my $obj = $TOP{$compWith}{Inverse}->new( \$out);
$obj->write($buffer) ;
$obj->close();
return $out ;
@@ -598,7 +599,7 @@
$file = quotemeta($file);
- return "/$string\\s+at $file line $line/" if $] >= 5.006 ;
+ #return "/$string\\s+at $file line $line/" if $] >= 5.006 ;
return "/$string\\s+at /" ;
}
@@ -606,7 +607,7 @@
{
my $string = shift ;
- return "/$string\\s+at \\(eval /" if $] > 5.006 ;
+ #return "/$string\\s+at \\(eval /" if $] > 5.006 ;
return "/$string\\s+at /" ;
}
More information about the Pkg-perl-cvs-commits
mailing list