diff options
Diffstat (limited to 'Rpmdrake/pkg.pm')
| -rwxr-xr-x | Rpmdrake/pkg.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index a5c2ef7d..35eff4d3 100755 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -461,7 +461,7 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( my %pkgs = map { $_->id => undef } grep { $_->flag_selected } @{$urpm->{depslist}}; my ($local_sources, $list, $local_to_removes) = urpm::get_pkgs::selected2list($urpm, \%pkgs, - clean_all => 1, + clean_all => 0 ); my $distant_number = scalar keys %pkgs; if (!$local_sources && (!$list || !@$list)) { @@ -473,9 +473,6 @@ sub perform_installation { #- (partially) duplicated from /usr/sbin/urpmi :-( ); goto return_with_error; } - foreach (@$local_to_removes) { - unlink $_; - } my @pkgs = map { scalar($_->fullname) } sort(grep { $_->flag_selected } @{$urpm->{depslist}});#{ $a->name cmp $b->name } @{$urpm->{depslist}}[keys %{$state->{selected}}]; @{$urpm->{ask_remove}} = sort urpm::select::removed_packages($urpm, $urpm->{state}); |