r56678 - in /trunk/dh-make-perl/lib: Debian/Control/FromCPAN.pm DhMakePerl/Command/Packaging.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Apr 23 06:17:33 2010
New Revision: 56678

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56678
Log:
discover_dependencies: return missing modules

Modified:
    trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm
    trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.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=56678&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm Fri Apr 23 06:17:33 2010
@@ -69,6 +69,9 @@
 depeended upon packages.
 
 =back
+
+Returns a list of module names for which no suitable Debian packages were
+found.
 
 =cut
 
@@ -234,6 +237,8 @@
         }
 
     }
+
+    return @$missing;
 }
 
 =item find_debs_for_modules I<dep hash>[, APT contents[, verbose ]]

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm?rev=56678&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Fri Apr 23 06:17:33 2010
@@ -1099,6 +1099,8 @@
 Just a wrapper around $self->control->discover_dependencies which provides the
 right parameters to it.
 
+Returns a list of missing modules.
+
 =cut
 
 sub discover_dependencies {
@@ -1114,7 +1116,7 @@
         # control->discover_dependencies needs configured CPAN
         $self->configure_cpan;
 
-        $self->control->discover_dependencies(
+        return $self->control->discover_dependencies(
             {   dir          => $self->main_dir,
                 verbose      => $self->cfg->verbose,
                 apt_contents => $self->apt_contents,
@@ -1129,6 +1131,8 @@
         warn "Please install 'apt-file' package and run 'apt-file update'\n";
         warn "as root.\n";
         warn "Dependencies not updated.\n";
+
+        return ();
     }
 }