- urpmi

  o --install-src will succesfully installed src.rpm from
    /var/cache/urpmi/rpms/* (unless post-clean is 0)

we could not do that by default because "urpmi --install-src" as user could
not download the file

1 files changed, 5 insertions, 0 deletions

diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm
index c99ce474..6491dab0 100644
--- a/urpm/main_loop.pm
+++ b/urpm/main_loop.pm
@@ -124,6 +124,11 @@ foreach my $set (@{$state->{transaction} || []}) {
 	    if ($?) {
 		print N("Installation failed"), "\n";
 		++$nok;
+	    } elsif ($urpm->{options}{'post-clean'}) {
+		if (my @tmp_srpm = grep { urpm::is_temporary_file($urpm, $_) } @l) {
+		    $urpm->{log}(N("removing installed rpms (%s)", join(' ', @tmp_srpm)));
+		    unlink @tmp_srpm;
+		}
 	    }
 	}
 	next;