From: Vincent Pit <vince@profvince.com>
Date: Fri, 12 Dec 2008 20:54:40 +0000 (+0100)
Subject: Set $stat->installed properly in install()
X-Git-Tag: v0.05~21
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=commitdiff_plain;h=10a9323db93e26aed995ec0fb6c707a1dd8f51aa

Set $stat->installed properly in install()
---

diff --git a/lib/CPANPLUS/Dist/Gentoo.pm b/lib/CPANPLUS/Dist/Gentoo.pm
index 79fb7b8..b24e980 100644
--- a/lib/CPANPLUS/Dist/Gentoo.pm
+++ b/lib/CPANPLUS/Dist/Gentoo.pm
@@ -330,7 +330,10 @@ sub install {
  my @cmd = ('emerge', '=' . $stat->eb_name . '-' . $stat->eb_version);
  unshift @cmd, $sudo if $sudo;
 
- return $self->_run(\@cmd, 1);
+ my $success = $self->_run(\@cmd, 1);
+ $stat->installed($success);
+
+ return $success;
 }
 
 sub uninstall {