r76464 - /trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Fri Jun 24 12:49:50 UTC 2011
Author: dmn
Date: Fri Jun 24 12:49:37 2011
New Revision: 76464
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76464
Log:
make: fix retrieval of distribution tarball
hopefully works with older CPAN
Modified:
trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm?rev=76464&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm Fri Jun 24 12:49:37 2011
@@ -269,9 +269,12 @@
. "' module or distribution on CPAN\n";
}
- $tarball = $CPAN::Config->{'keep_source_where'} . "/authors/id/";
-
$dist->get || die "Cannot get ", $dist->pretty_id, "\n"; # <- here $ENV{'PWD'} gets set to $HOME/.cpan/build
+ $dist->pretty_id =~ /^(.)(.)/;
+ $tarball = $CPAN::Config->{'keep_source_where'} . "/authors/id/$1/$1$2/";
+ # the file is under authors/id/A/AU/AUTHOR directory
+ # how silly there is no $dist->filename method
+
$tarball .= $dist->pretty_id;
$self->main_dir( $dist->dir );
More information about the Pkg-perl-cvs-commits
mailing list