summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-28 13:47:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-28 13:47:12 +0000
commita09e679fb42ba0d04c68cff7b4d3c422e2a5fea2 (patch)
tree497a7019904b02d2f4dffa13b9d951f4b47e2f31
parent6dc554230ca73e99fbc1ac5fdd2a3ccd0c9f32e0 (diff)
downloadurpmi-a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2.tar
urpmi-a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2.tar.gz
urpmi-a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2.tar.bz2
urpmi-a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2.tar.xz
urpmi-a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2.zip
better debug message
-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;
}