summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm')
-rw-r--r--urpm/install.pm3
-rw-r--r--urpm/main_loop.pm7
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);