From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=commitdiff_plain;h=6ea8cf92ee3ae046edc579f391c7874d1d871595;hp=6690c92b6845ba68f0accd0944b9b62e17ba0cdb

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