r27248 - /trunk/dh-make-perl/dh-make-perl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Nov 25 08:38:08 UTC 2008
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;
}
}
More information about the Pkg-perl-cvs-commits
mailing list