diff options
Diffstat (limited to 'urpm/main_loop.pm')
| -rw-r--r-- | urpm/main_loop.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm index 5d7074e2..3dec70c8 100644 --- a/urpm/main_loop.pm +++ b/urpm/main_loop.pm @@ -172,7 +172,7 @@ foreach my $set (@{$state->{transaction} || []}) { } } - if (keys(%transaction_sources_install) || keys(%transaction_sources)) { + if (keys(%transaction_sources_install) || keys(%transaction_sources) || $set->{remove}) { if ($parallel) { print N("distributing %s", join(' ', values %transaction_sources_install, values %transaction_sources)), "\n"; #- no remove are handle here, automatically done by each distant node. @@ -185,7 +185,7 @@ foreach my $set (@{$state->{transaction} || []}) { ); } else { if ($options{verbose} >= 0) { - my @packnames = (values %transaction_sources_install, values %transaction_sources); + if (my @packnames = (values %transaction_sources_install, values %transaction_sources)) { (my $common_prefix) = $packnames[0] =~ m!^(.*)/!; if (length($common_prefix) && @packnames == grep { m!^\Q$common_prefix/! } @packnames) { #- there's a common prefix, simplify message @@ -193,6 +193,7 @@ foreach my $set (@{$state->{transaction} || []}) { } else { print N("installing %s", join "\n", @packnames), "\n"; } + } } my $to_remove = $urpm->{options}{'allow-force'} ? [] : $set->{remove} || []; bug_log(scalar localtime(), " ", join(' ', values %transaction_sources_install, values %transaction_sources), "\n"); |