From: Vincent Pit <vince@profvince.com>
Date: Fri, 12 Dec 2008 21:06:10 +0000 (+0100)
Subject: Set $stat->dist properly in prepare() and create()
X-Git-Tag: v0.05~18
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=commitdiff_plain;h=723de1bec25f38799ab96586b1ae447577a9e593

Set $stat->dist properly in prepare() and create()
---

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index 24e1e35..2efbffa 100644
--- 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;
   }
  }
@@ -246,15 +247,18 @@ 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(@_);
 
@@ -318,6 +322,7 @@ sub create {
  }
 
  $stat->created(1);
+ $stat->dist($file);
  return 1;
 }