r27283 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov 26 09:39:33 2008
New Revision: 27283

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27283
Log:
extend AptContents so that one can search by both file name and module name

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27283&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 26 09:39:33 2008
@@ -213,7 +213,7 @@
     rename( "$homedir/Contents.cache.new", "$homedir/Contents.cache" );
 }
 
-sub find {
+sub find_file_packages {
     my( $self, $file ) = @_;
 
     my $packages = $self->cache->{apt_contents}{$file};
@@ -227,6 +227,24 @@
     s{[^/]+/}{} for @packages;  # remove section
 
     return @packages;
+}
+
+sub find_perl_module_package {
+    my ( $self, $module ) = @_;
+
+    my $module_file = $module;
+    $module_file =~ s|::|/|g;
+
+    my @matches = $self->find_file_packages("$module_file.pm");
+
+    # rank non -perl packages lower
+    @matches = sort {
+        if    ( $a !~ /-perl: / ) { return 1; }
+        elsif ( $b !~ /-perl: / ) { return -1; }
+        else                      { return $a cmp $b; }    # or 0?
+    } @matches;
+
+    return $matches[0];
 }
 
 1;