From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=commitdiff_plain;h=7308d012abc740db21ec93729bbcc8a3d9e2bff1

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<ebuild_source>