diff options
| -rw-r--r-- | urpm/install.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index ef06919a..28726b0c 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -53,6 +53,20 @@ sub build_transaction_set_ { #- build transaction set... $urpm->build_transaction_set($db, $state, split_length => $options{split_length}); } + + $urpm->{debug} and $urpm->{debug}(join("\n", "scheduled sets of transactions:", + transaction_set_to_string($urpm, $state->{transaction} || []))); +} + +sub transaction_set_to_string { + my ($urpm, $set) = @_; + + map { + sprintf('remove=%s install=%s update=%s', + join(',', @{$_->{remove} || []}), + join(',', map { $urpm->{depslist}[$_]->name } @{$_->{install} || []}), + join(',', map { $urpm->{depslist}[$_]->name } @{$_->{upgrade} || []})); + } @$set; } # install logger callback |