r57030 - /trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Apr 28 05:59:55 2010
New Revision: 57030

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57030
Log:
make: plug Debian::DpkgList into package_already_exists()

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm?rev=57030&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm Wed Apr 28 05:59:55 2010
@@ -461,6 +461,19 @@
                 . $self->perlname . "\n";
         }
     }
+    else {
+        ( my $mod_name = $self->perlname ) =~ s/-/::/g;
+        require Debian::DpkgList;
+        my @found = Debian::DpkgList->scan_perl_mod($mod_name);
+
+        if (@found) {
+            warn "**********\n";
+            warn "NOTICE: the following locally installed package(s) already\n";
+            warn "        contain $mod_name\n";
+            warn "          ", join ( ', ', @found ), "\n";
+            $found = 1;
+        }
+    }
 
     return $found ? 1 : 0;
 }