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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Apr 28 06:03:48 2010
New Revision: 57031

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57031
Log:
FromCPAN: load Debian::DpkgLists only if needed

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=57031&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Control/FromCPAN.pm Wed Apr 28 06:03:48 2010
@@ -19,7 +19,6 @@
 use base 'Debian::Control';
 
 use CPAN ();
-use Debian::DpkgLists;
 use Debian::Version qw(deb_ver_cmp);
 use DhMakePerl::Utils qw( is_core_module find_cpan_module nice_perl_ver split_version_relation );
 use File::Spec qw( catfile );
@@ -274,12 +273,15 @@
         elsif ( my $ver = is_core_module( $module, $version ) ) {
             $dep = Debian::Dependency->new( 'perl', $ver );
         }
-        elsif ( my @pkgs = Debian::DpkgLists->scan_perl_mod($module) ) {
-            $dep = Debian::Dependency->new(
-                  ( @pkgs > 1 )
-                ? [ map { { pkg => $_, ver => $version } } @pkgs ]
-                : ( $pkgs[0], $version )
-            );
+        else {
+            require Debian::DpkgLists;
+            if ( my @pkgs = Debian::DpkgLists->scan_perl_mod($module) ) {
+                $dep = Debian::Dependency->new(
+                      ( @pkgs > 1 )
+                    ? [ map { { pkg => $_, ver => $version } } @pkgs ]
+                    : ( $pkgs[0], $version )
+                );
+            }
         }
 
         $dep->rel($ver_rel) if $dep and $ver_rel and $dep->ver;