]> git.vpit.fr Git - perl/modules/CPANPLUS-Dist-Gentoo.git/commitdiff
Reset $stat->prepared and $stat->created after calling the base methods
authorVincent Pit <vince@profvince.com>
Fri, 12 Dec 2008 21:50:00 +0000 (22:50 +0100)
committerVincent Pit <vince@profvince.com>
Fri, 12 Dec 2008 21:50:00 +0000 (22:50 +0100)
lib/CPANPLUS/Dist/Gentoo.pm

index 2efbffa4608cae3c2be0273e73d916811eae51f1..2df7afc08844d078f53ffef1d89e3e2783177f8e 100644 (file)
@@ -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 };