]> git.vpit.fr Git - perl/modules/CPANPLUS-Dist-Gentoo.git/commitdiff
Generate ebuild for the current dist before recursing
authorVincent Pit <vince@profvince.com>
Sun, 25 Jan 2009 23:33:03 +0000 (00:33 +0100)
committerVincent Pit <vince@profvince.com>
Sun, 25 Jan 2009 23:33:03 +0000 (00:33 +0100)
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.

lib/CPANPLUS/Dist/Gentoo.pm

index 972fed873f08dcfacf4f0287e110b5a17dc7b009..67428ed265a4e71135a40bf0948bb82eb01e302e 100644 (file)
@@ -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";