diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-28 13:47:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-28 13:47:12 +0000 |
| commit | a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2 (patch) | |
| tree | 497a7019904b02d2f4dffa13b9d951f4b47e2f31 | |
| parent | 6dc554230ca73e99fbc1ac5fdd2a3ccd0c9f32e0 (diff) | |
| download | urpmi-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.pm | 7 |
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; } |