Bail out if the SUPER calls to prepare/create failed

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index 51f23d10df4345ac507bf3cefca18a8cd05fd24b..9cc12502252ccdbfb8cc707ebf3f25effe3b5aca 100644 (file)
--- 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->();