From: Vincent Pit 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/?a=commitdiff_plain;h=10a9323db93e26aed995ec0fb6c707a1dd8f51aa;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git 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 {