Bug#528744: please update data/fields/perl-provides

[Niko Tyni]

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   nt...@debian.org

>From 625ff482852a5f53b6bee39b90e20d1e1d963f31 Mon Sep 17 00:00:00 2001
From: Niko Tyni <nt...@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