r53099 - in /trunk/dh-make-perl: TODO lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Feb 20 21:20:10 2010
New Revision: 53099

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53099
Log:
convert $oldest_perl_version to a (constant) class method

this thing really should usue Debian::Control::FromCPAN

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

Modified: trunk/dh-make-perl/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/TODO?rev=53099&op=diff
==============================================================================
--- trunk/dh-make-perl/TODO (original)
+++ trunk/dh-make-perl/TODO Sat Feb 20 21:20:10 2010
@@ -29,3 +29,4 @@
   in non-'3.0 (quilt)' source formats
 * Don't add libmodule-build-perl to Build-Depends if Makefile.PL is also
   present, if its not just Module::Build::Compat
+* --make should use Debian::Control::FromCPAN for dependencies

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=53099&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Feb 20 21:20:10 2010
@@ -71,7 +71,7 @@
 # TODO:
 # * get more info from the package (maybe using CPAN methods)
 
-my ($oldest_perl_version, $debstdversion, $priority,
+my ($debstdversion, $priority,
     $section,             $depends,       $bdepends,
     $bdependsi,           $maintainer,    $arch,
     $closes,              $date,
@@ -86,7 +86,7 @@
 
 # this is the version in 'oldstable'. No much point on depending on something
 # older
-$oldest_perl_version = '5.8.8-7';
+use constant oldest_perl_version => '5.8.8-7';
 
 $bdependsi = Debian::Dependencies->new("perl");
 $arch      = 'all';
@@ -1105,7 +1105,10 @@
             print "= $module is a core module\n" if $self->cfg->verbose;
 
             $dep = Debian::Dependency->new( 'perl', $ver );
-            $debs->add($dep) if $dep->satisfies( "perl (>= $oldest_perl_version)" );
+            $debs->add($dep)
+                if $dep->satisfies(
+                        "perl (>= " . $self->oldest_perl_version . ")"
+                );
 
             next;
         }