From: Vincent Pit Date: Sun, 25 Jan 2009 23:33:03 +0000 (+0100) Subject: Generate ebuild for the current dist before recursing X-Git-Tag: v0.06~7 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=6ea8cf92ee3ae046edc579f391c7874d1d871595;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git Generate ebuild for the current dist before recursing This allow us to skip it when it reappears below in the dependency tree (because the ebuild can be found). But do the manifest after recursing, when all the deps are set. --- diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm index 972fed8..67428ed 100644 --- a/lib/CPANPLUS/Dist/Gentoo.pm +++ b/lib/CPANPLUS/Dist/Gentoo.pm @@ -383,14 +383,6 @@ sub create { return 1; } - $stat->created(0); - $stat->dist(undef); - - $self->SUPER::create(@_); - - $stat->created(0); - $stat->dist(undef); - my $dir = $stat->eb_dir; unless (-d $dir) { eval { mkpath $dir }; @@ -427,6 +419,14 @@ sub create { print $eb $d; close $eb; + $stat->created(0); + $stat->dist(undef); + + $self->SUPER::create(@_); + + $stat->created(0); + $stat->dist(undef); + if ($stat->do_manifest) { unless (copy $stat->fetched_arch, $stat->distdir) { error "Couldn\'t copy the distribution file to distdir ($!) -- aborting";