summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--urpm/install.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/urpm/install.pm b/urpm/install.pm
index ab88701e..e8b9873a 100644
--- a/urpm/install.pm
+++ b/urpm/install.pm
@@ -61,11 +61,12 @@ sub build_transaction_set_ {
sub transaction_set_to_string {
my ($urpm, $set) = @_;
+ my $format_list = sub { int(@_) . '=' . join(',', @_) };
map {
sprintf('remove=%s install=%s update=%s',
- join(',', @{$_->{remove} || []}),
- join(',', map { $urpm->{depslist}[$_]->name } @{$_->{install} || []}),
- join(',', map { $urpm->{depslist}[$_]->name } @{$_->{upgrade} || []}));
+ $format_list->(@{$_->{remove} || []}),
+ $format_list->(map { $urpm->{depslist}[$_]->name } @{$_->{install} || []}),
+ $format_list->(map { $urpm->{depslist}[$_]->name } @{$_->{upgrade} || []}));
} @$set;
}