r35294 - /trunk/dh-make-perl/lib/DhMakePerl.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed May 13 04:38:53 UTC 2009
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;
}
More information about the Pkg-perl-cvs-commits
mailing list