=head1 VERSION
-Version 0.07
+Version 0.08
=cut
-our $VERSION = '0.07';
+our $VERSION = '0.08';
=head1 SYNOPSIS
my $OK = sub {
$stat->created(1);
- $stat->dist($file);
+ $stat->dist($file) if defined $file;
1;
};
$stat->created(0);
$stat->dist(undef);
$self->_abort(@_) if @_;
- if ($file and -f $file) {
+ if (defined $file and -f $file) {
1 while unlink $file;
}
0;
if ($stat->created) {
$self->_skip($stat->distribution, 'was already created');
+ $file = $stat->dist; # Keep the existing one.
return $OK->();
}
my $stat = $self->status;
my $file = $stat->ebuild_file;
- unless ($file and -e $file) {
+ unless (defined $file and -e $file) {
return $self->_abort('The ebuild file is invalid or does not exist');
}
$self->_notify('Adding Manifest entry for', $stat->distribution);
- return $self->_run([ 'ebuild', $stat->ebuild_file, 'manifest' ], 0);
+ return $self->_run([ 'ebuild', $file, 'manifest' ], 0);
}
=head2 C<ebuild_source>
L<CPANPLUS>, L<IPC::Cmd> (core modules since 5.9.5), L<Parse::CPAN::Meta> (since 5.10.1).
-L<Cwd>, L<Carp> (since perl 5), L<File::Path> (5.001), L<File::Copy> (5.002), L<File::Spec> (5.00405).
+L<Cwd>, L<Carp> (since perl 5), L<File::Path> (5.001), L<File::Copy> (5.002), L<File::Spec> (5.00405), L<List::Util> (5.007003).
=head1 SEE ALSO