From: Vincent Pit <vince@profvince.com>
Date: Fri, 12 Dec 2008 21:50:00 +0000 (+0100)
Subject: Reset $stat->prepared and $stat->created after calling the base methods
X-Git-Tag: v0.05~17
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=9ef904834ac972929aae212b5af61e4d354fe093;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

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

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index 2efbffa..2df7afc 100644
--- a/lib/CPANPLUS/Dist/Gentoo.pm
+++ b/lib/CPANPLUS/Dist/Gentoo.pm
@@ -197,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);
@@ -262,6 +264,9 @@ sub create {
 
  $self->SUPER::create(@_);
 
+ $stat->created(0);
+ $stat->dist(undef);
+
  my $dir = $stat->eb_dir;
  unless (-d $dir) {
   eval { mkpath $dir };