r35294 - /trunk/dh-make-perl/lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed May 13 04:38:49 2009
New Revision: 35294

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35294
Log:
is_core_module: version argumend added (optional)

Modified:
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=35294&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Wed May 13 04:38:49 2009
@@ -369,9 +369,9 @@
 }
 
 sub is_core_module {
-    my ( $self, $module ) = @_;
-
-    my $v = Module::CoreList->first_release($module);   # 5.009002
+    my ( $self, $module, $ver ) = @_;
+
+    my $v = Module::CoreList->first_release($module, $ver);   # 5.009002
 
     return unless defined $v;
 
@@ -1011,14 +1011,11 @@
     my $debs = Debian::Dependencies->new();
 
     foreach my $module ( keys(%$dep_hash) ) {
-        if ( $self->is_core_module($module) ) {
+        if ( my $ver = $self->is_core_module( $module, $dep_hash->{$module} )
+        ) {
             print "= $module is a core module\n" if $self->cfg->verbose;
 
-            my $perl_ver = Module::CoreList->first_release(
-                $module,
-                $dep_hash->{$module},
-            );
-            $debs->add( 'perl-modules', $self->nice_perl_ver($perl_ver) );
+            $debs->add( 'perl-modules', $ver );
 
             next;
         }