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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Mar 30 10:23:59 2010
New Revision: 55109

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55109
Log:
FromCPAN: pass $verbose to find_debs_for_modules

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=55109&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm Tue Mar 30 10:23:59 2010
@@ -158,7 +158,7 @@
 
     # run-time
     my ( $debs, $missing )
-        = $self->find_debs_for_modules( $deps->{requires}, $apt_contents );
+        = $self->find_debs_for_modules( $deps->{requires}, $apt_contents, $verbose );
 
     if (@$debs) {
         if ($verbose) {
@@ -177,7 +177,7 @@
 
     # build-time
     my ( $b_debs, $b_missing )
-        = $self->find_debs_for_modules( $deps->{build_requires}, $apt_contents );
+        = $self->find_debs_for_modules( $deps->{build_requires}, $apt_contents, $verbose );
 
     if (@$b_debs) {
         if ($verbose) {
@@ -235,7 +235,7 @@
     }
 }
 
-=item find_debs_for_modules I<dep hash>[, APT contents]
+=item find_debs_for_modules I<dep hash>[, APT contents[, verbose ]]
 
 Scans the given hash of dependencies ( module => version ) and returns matching
 Debian package dependency specification (as an instance of
@@ -245,7 +245,7 @@
 
 sub find_debs_for_modules {
 
-    my ( $self, $dep_hash, $apt_contents ) = @_;
+    my ( $self, $dep_hash, $apt_contents, $verbose ) = @_;
 
     my @uses;
     my $debs = Debian::Dependencies->new();
@@ -254,7 +254,7 @@
         my $dep;
         if ( my $ver = is_core_module( $module, $dep_hash->{$module} )
         ) {
-            print "= $module is a core module\n" if $self->cfg->verbose;
+            print "= $module is a core module\n" if $verbose;
 
             $dep = Debian::Dependency->new( 'perl', $ver );
             $debs->add($dep)
@@ -284,7 +284,7 @@
 
         if ($dep) {
             print "+ $module found in " . $dep->pkg ."\n"
-                if $self->cfg->verbose;
+                if $verbose;
         }
         else {
             print "- $module not found in any package\n";