From: Vincent Pit Date: Sun, 6 Sep 2009 19:45:12 +0000 (+0200) Subject: Better handling of $file in ->update_manifest X-Git-Tag: v0.09~32 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=7308d012abc740db21ec93729bbcc8a3d9e2bff1;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git Better handling of $file in ->update_manifest --- diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm index 7febab9..8a75c24 100644 --- a/lib/CPANPLUS/Dist/Gentoo.pm +++ b/lib/CPANPLUS/Dist/Gentoo.pm @@ -413,7 +413,7 @@ sub update_manifest { 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'); } @@ -423,7 +423,7 @@ sub update_manifest { $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