r27248 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Nov 25 08:38:06 2008
New Revision: 27248

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27248
Log:
better output when searching for dependent packages

we don't search using apt-file any more. instead, report where each
module was found

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=27248&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Tue Nov 25 08:38:06 2008
@@ -1027,8 +1027,6 @@
             }
 
             my $mod = $module;
-            print
-                "Searching for package containing $module using apt-file.\n";
             $module =~ s|::|/|g;
 
             my $matches = $cache->{apt_contents}{"$module.pm"};
@@ -1042,8 +1040,13 @@
             # use the first package that is not already in @deps
             # or @stdmodules
             for my $p(@matches) {
-                if ( !grep { $_ eq $p } @deps, split(/,/, at stdmodules))
+                if ( grep { $_ eq $p } @deps, split( /,/, @stdmodules ) )
                 {
+                    print "= $mod is a core module\n";
+                }
+                else
+                {
+                    print "+ $mod is contained in $p\n";
                     if ( exists $dep_hash{$mod} ) {
                         my $v = $dep_hash{$mod};
                         $v =~ s/^v//;    # strip leading 'v' from version
@@ -1061,6 +1064,7 @@
             }
 
             unless (@matches) {
+                print "- $mod not found in any package\n";
                 push @not_debs, $mod;
             }
         }