r35291 - /trunk/dh-make-perl/lib/DhMakePerl.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed May 13 04:37:22 UTC 2009
Author: dmn
Date: Wed May 13 04:37:18 2009
New Revision: 35291
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35291
Log:
substitude core module dependencies with dependencies on perl-modules
use perl-modules (>= $ver) where $ver is the first perl version where
the desired core module version is available
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=35291&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Wed May 13 04:37:18 2009
@@ -1008,24 +1008,24 @@
my ( $self, $dep_hash, $apt_contents ) = @_;
my @uses;
+ my $debs = Debian::Dependencies->new();
foreach my $module ( keys(%$dep_hash) ) {
if ( $self->is_core_module($module) ) {
print "= $module is a core module\n" if $self->cfg->verbose;
- # TODO
- # see if there is a version requirement and if the core
- # module satisfies it. If it does, see if previous perl
- # releases satisfy it too and if needed, bump the perl
- # dependency to the lowest version that contains module
- # version satisfying the dependency
+ my $perl_ver = Module::CoreList->first_release(
+ $module,
+ $dep_hash->{$module},
+ );
+ $debs->add( 'perl-modules', $self->nice_perl_ver($perl_ver) );
+
next;
}
push @uses, $module;
}
- my $debs = Debian::Dependencies->new();
my @missing;
foreach my $module (@uses) {
More information about the Pkg-perl-cvs-commits
mailing list