X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo.pm;h=9cc12502252ccdbfb8cc707ebf3f25effe3b5aca;hb=fe55ba7e93a5d538c223bfffacdc1a6017e27a64;hp=51f23d10df4345ac507bf3cefca18a8cd05fd24b;hpb=69b45a423d8ce50cc9c3cc8cb22a8822e698fb4f;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index 51f23d1..9cc1250 100644
--- a/lib/CPANPLUS/Dist/Gentoo.pm
+++ b/lib/CPANPLUS/Dist/Gentoo.pm
@@ -249,9 +249,11 @@ sub prepare {
   }
  }
 
+ $stat->prepared(0);
+
  $self->SUPER::prepare(%opts);
 
- $stat->prepared(0);
+ return $FAIL->() unless $stat->prepared;
 
  my $desc = $mod->description;
  ($desc = $name) =~ s/-+/::/g unless $desc;
@@ -368,6 +370,11 @@ sub create {
 
  $self->SUPER::create(@_);
 
+ unless ($stat->created) {
+  1 while unlink $file;
+  return $FAIL->();
+ }
+
  if ($stat->do_manifest and not $self->update_manifest) {
   1 while unlink $file;
   return $FAIL->();