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

[dmn at users.alioth.debian.org]

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) {