r76464 - /trunk/dh-make-perl/lib/DhMakePerl/Command/make.pm

[dmn at users.alioth.debian.org]

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