From a09e679fb42ba0d04c68cff7b4d3c422e2a5fea2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 28 Aug 2007 13:47:12 +0000 Subject: better debug message --- urpm/install.pm | 7 ++++--- 1 file 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; } -- cgit v1.2.1