Reset $stat->prepared and $stat->created after calling the base methods

[perl/modules/CPANPLUS-Dist-Gentoo.git] / lib / CPANPLUS / Dist / Gentoo.pm

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index 24e1e357637016eac27c318695904956097673fe..2df7afc08844d078f53ffef1d89e3e2783177f8e 100644 (file)
--- a/lib/CPANPLUS/Dist/Gentoo.pm
+++ b/lib/CPANPLUS/Dist/Gentoo.pm
@@ -189,6 +189,7 @@ sub prepare {
   if ($skip) {
    $stat->prepared(1);
    $stat->created(1);
+   $stat->dist($file);
    return 1;
   }
  }
@@ -196,6 +197,8 @@ sub prepare {
 
  $self->SUPER::prepare(%opts);
 
+ $stat->prepared(0);
+
  my $desc = $mod->description;
  ($desc = $name) =~ s/-+/::/g unless $desc;
  $stat->desc($desc);
@@ -246,18 +249,24 @@ sub create {
  unless ($stat->prepared) {
   error 'Can\'t create ' . $stat->distribution . ' since it was never prepared -- aborting';
   $stat->created(0);
+  $stat->dist(undef);
   return 0;
  }
 
  if ($stat->created) {
   msg $stat->distribution . ' was already created -- skipping';
+  $stat->dist($stat->eb_file);
   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 };
@@ -318,6 +327,7 @@ sub create {
  }
 
  $stat->created(1);
+ $stat->dist($file);
  return 1;
 }