diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-23 14:11:33 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-23 14:11:33 +0000 |
commit | 0f0b6d87fbb3e83a70d5b9825c3ba4de211f2101 (patch) | |
tree | 9557f125c186ea34c91ad6cc1f25df1fe12d6adf | |
parent | b64ea0c14bc81335b2a654d8adcbbd1dffaca804 (diff) | |
download | urpmi-0f0b6d87fbb3e83a70d5b9825c3ba4de211f2101.tar urpmi-0f0b6d87fbb3e83a70d5b9825c3ba4de211f2101.tar.gz urpmi-0f0b6d87fbb3e83a70d5b9825c3ba4de211f2101.tar.bz2 urpmi-0f0b6d87fbb3e83a70d5b9825c3ba4de211f2101.tar.xz urpmi-0f0b6d87fbb3e83a70d5b9825c3ba4de211f2101.zip |
display computed transaction set in debug mode
-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 |