r53180 - /trunk/dh-make-perl/lib/DhMakePerl.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Feb 22 09:17:45 UTC 2010
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";
}
More information about the Pkg-perl-cvs-commits
mailing list