r57023 - /trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Apr 27 20:59:52 2010
New Revision: 57023

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57023
Log:
FromCPAN: use Debian::DpkgLists as a last resort

Closes: #478781
Debian::DpkgLists is similar to dpkg -S but can also
work on Perl module names.

Modified:
    trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm

Modified: trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm?rev=57023&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm Tue Apr 27 20:59:52 2010
@@ -19,6 +19,7 @@
 use base 'Debian::Control';
 
 use CPAN ();
+use Debian::DpkgLists;
 use Debian::Version qw(deb_ver_cmp);
 use DhMakePerl::Utils qw( is_core_module find_cpan_module nice_perl_ver split_version_relation );
 use File::Spec qw( catfile );
@@ -273,6 +274,13 @@
         elsif ( my $ver = is_core_module( $module, $version ) ) {
             $dep = Debian::Dependency->new( 'perl', $ver );
         }
+        elsif ( my @pkgs = Debian::DpkgLists->scan_perl_mod($module) ) {
+            $dep = Debian::Dependency->new(
+                  ( @pkgs > 1 )
+                ? [ map { { pkg => $_, ver => $version } } @pkgs ]
+                : ( $pkgs[0], $version )
+            );
+        }
 
         $dep->rel($ver_rel) if $dep and $ver_rel and $dep->ver;