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

Set $stat->uninstalled properly in uninstall()
---

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