]> git.vpit.fr Git - perl/modules/CPANPLUS-Dist-Gentoo.git/commitdiff
Set $stat->uninstalled properly in uninstall()
authorVincent Pit <vince@profvince.com>
Fri, 12 Dec 2008 20:55:18 +0000 (21:55 +0100)
committerVincent Pit <vince@profvince.com>
Fri, 12 Dec 2008 20:55:18 +0000 (21:55 +0100)
lib/CPANPLUS/Dist/Gentoo.pm

index b24e980db8cce91d1ccde61d5f6baf8e110a9938..89756240b6b7cef05d052fc4a07c1e4d401ad576 100644 (file)
@@ -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 {