[SCM] Debian package checker branch, master, updated. 2.2.10-35-g4467c9f

["Adam D. Barratt" <adam@adam-barratt.org.uk>]

The following commit has been merged in the master branch:
commit db57600ca95a7aa17bf16d8cba0acb28667764b2
Author: Niko Tyni <ntyni@debian.org>
Date:   Fri May 15 10:20:10 2009 +0300

    refresh-perl-provides: special case 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.

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+$]}{$_};

-- 
Debian package checker