}
}
+ $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;
$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->();