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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Feb 22 09:17:39 2010
New Revision: 53180

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53180
Log:
convert $mod_cpan_version to object accessor

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=53180&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Mon Feb 22 09:17:39 2010
@@ -14,6 +14,7 @@
         perlname version pkgversion pkgname srcname
         desc longdesc copyright author
         extrasfields  extrapfields
+        mod_cpan_version
         )
 );
 
@@ -116,8 +117,6 @@
 tie @examples, 'Array::Unique';
 tie @docs,     'Array::Unique';
 
-my $mod_cpan_version;
-
 =item main_file(file_name)
 
 Constructs a file name relative to the main source directory, L</main_dir>
@@ -507,7 +506,6 @@
     my ($self) = @_;
 
     my ( $dist, $mod, $tarball );
-    $mod_cpan_version = '';
     if ( $self->cfg->cpan ) {
         my ($new_maindir, $orig_pwd);
 
@@ -526,7 +524,7 @@
 
         $mod = $self->find_cpan_module( $self->cfg->cpan )
             or die "Can't find '" . $self->cfg->cpan . "' module on CPAN\n";
-        $mod_cpan_version = $mod->cpan_version;
+        $self->mod_cpan_version( $mod->cpan_version );
 
         $tarball = $CPAN::Config->{'keep_source_where'} . "/authors/id/";
 
@@ -881,8 +879,8 @@
             $fh->close;
         }
         else {
-            if ($mod_cpan_version) {
-                $ver = $mod_cpan_version;
+            if ( $self->mod_cpan_version ) {
+                $ver = $self->mod_cpan_version;
                 warn "Cannot use internal module data to gather the "
                     . "version; using cpan_version\n";
             }