Bug#528744: please update data/fields/perl-provides
Package: lintian
Version: 2.2.10
Severity: wishlist
Hi,
perl/5.10.0-20 provides some new packages:
* Add conflicts/replaces/provides for
+ libcpanplus-perl (Closes: #516289)
+ libsys-syslog-perl (Closes: #498885)
+ libcompress-zlib-perl
+ libcompress-raw-zlib-perl
+ libio-compress-zlib-perl
+ libio-compress-base-perl
+ libpod-escapes-perl
so data/fields/perl-provides needs an update.
The libio-compress-zlib-perl package needs a special case.
Please consider applying the attached patch and running
debian/rules refresh-perl-provides
afterwards.
The libcpanplus-perl package isn't in sid, but the other
six packages should end up in data/fields/perl-provides.
Thanks,
--
Niko Tyni ntyni@debian.org
>From 625ff482852a5f53b6bee39b90e20d1e1d963f31 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@debian.org>
Date: Fri, 15 May 2009 10:20:10 +0300
Subject: [PATCH] private/refresh-perl-provides: add a special case for libio-compress-zlib-perl
As of 5.10.0-20, the perl package Provides: libio-compress-zlib-perl.
The IO-Compress-Zlib distribution does not contain a module named
IO::Compress::Zlib, so private/refresh-perl-provides needs a special
case to find out the version bundled with Perl.
The choice of IO::Compress::Gzip for this is arbitrary, any other
would do.
---
private/refresh-perl-provides | 17 +++++++++++++----
1 files changed, 13 insertions(+), 4 deletions(-)
diff --git a/private/refresh-perl-provides b/private/refresh-perl-provides
index 17d23ff..0dce56b 100755
--- a/private/refresh-perl-provides
+++ b/private/refresh-perl-provides
@@ -40,6 +40,11 @@ $_config->{quiet} = 2;
my $cache = AptPkg::Cache->new;
# end from /usr/share/doc/libapt-pkg-perl/examples/apt-cache
+# special cases when libfoo-bar-per => Foo::Bar doesn't work
+my %module_name = (
+ "libio-compress-zlib-perl" => "IO::Compress::Gzip",
+);
+
use Module::CoreList;
my $versioning = $_system->versioning;
@@ -92,10 +97,14 @@ sub find_core_version {
my $ret;
return if $module =~ /^perl(5|api)/;
- # mangle the package name into the module name
- $module =~ s/^lib//;
- $module =~ s/-perl$//;
- $module =~ s/-/::/g;
+ if (exists $module_name{$module}) {
+ $module = $module_name{$module};
+ } else {
+ # mangle the package name into the module name
+ $module =~ s/^lib//;
+ $module =~ s/-perl$//;
+ $module =~ s/-/::/g;
+ }
for (Module::CoreList->find_modules(qr/^\Q$module\E$/i, 0+$])) {
$ret = $Module::CoreList::version{0+$]}{$_};
--
1.6.3
Reply to: