diff options
| -rw-r--r-- | urpm/install.pm | 3 | ||||
| -rw-r--r-- | urpm/main_loop.pm | 7 |
2 files changed, 7 insertions, 3 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index c656c9ed..29bf272f 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -53,9 +53,6 @@ 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 { diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm index b3eb5e0d..c99ce474 100644 --- a/urpm/main_loop.pm +++ b/urpm/main_loop.pm @@ -65,6 +65,13 @@ urpm::install::build_transaction_set_($urpm, $state, split_level => $urpm->{options}{'split-level'}, split_length => !$test && $urpm->{options}{'split-length'}); + if ($options{debug__do_not_install}) { + $urpm->{debug} = sub { print STDERR "$_[0]\n" }; + } + +$urpm->{debug} and $urpm->{debug}(join("\n", "scheduled sets of transactions:", + urpm::install::transaction_set_to_string($urpm, $state->{transaction} || []))); + $options{debug__do_not_install} and exit 0; my ($ok, $nok) = (0, 0); |