summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-06-08 18:51:29 +0000
committerThierry Vignaud <tv@mageia.org>2012-06-08 18:51:29 +0000
commitc3a726da8ee2a8705fd15590aae0643c4c770c1a (patch)
tree29528c5cc35a22a82f4bd74432bc945738a7447c
parent995720bf24dbc9195426b87de962f6431ab313ca (diff)
downloadurpmi-c3a726da8ee2a8705fd15590aae0643c4c770c1a.tar
urpmi-c3a726da8ee2a8705fd15590aae0643c4c770c1a.tar.gz
urpmi-c3a726da8ee2a8705fd15590aae0643c4c770c1a.tar.bz2
urpmi-c3a726da8ee2a8705fd15590aae0643c4c770c1a.tar.xz
urpmi-c3a726da8ee2a8705fd15590aae0643c4c770c1a.zip
(run) add some comments
-rw-r--r--urpm/main_loop.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm
index 43034fa6..e99b8b54 100644
--- a/urpm/main_loop.pm
+++ b/urpm/main_loop.pm
@@ -244,6 +244,7 @@ sub run {
my $migrate_back_rpmdb_db_version =
$urpm->{root} && urpm::select::should_we_migrate_back_rpmdb_db_version($urpm, $state);
+ #- no process each remove/install transaction
foreach my $set (@{$state->{transaction} || []}) {
#- put a blank line to separate with previous transaction or user question.
@@ -260,9 +261,12 @@ sub run {
}
$callbacks->{post_download} and $callbacks->{post_download}->();
+
+ #- extract package that should be installed instead of upgraded,
my %transaction_sources_install = %{$urpm->extract_packages_to_install($transaction_sources, $state) || {}};
$callbacks->{post_extract} and $callbacks->{post_extract}->($set, $transaction_sources, \%transaction_sources_install);
+ #- verify packages
if (!$force && ($urpm->{options}{'verify-rpm'} || grep { $_->{'verify-rpm'} } @{$urpm->{media}})) {
_verify_rpm($urpm, $callbacks, \%transaction_sources_install, $transaction_sources);
}
@@ -283,6 +287,7 @@ sub run {
}
}
+ #- install/remove other packages
if (keys(%transaction_sources_install) || keys(%$transaction_sources) || $set->{remove}) {
if ($parallel) {
$urpm->{print}(N("distributing %s", join(' ', values %transaction_sources_install, values %$transaction_sources)));
@@ -332,6 +337,7 @@ sub run {
$msg . N("Try installation without checking dependencies?"))) {
$urpm->{log}("starting installing packages without deps");
$install_options_common{nodeps} = 1;
+ # try again:
goto install;
}
} elsif (!$no_question && !$install_options_common{force} && $urpm->{options}{'allow-force'}) {
@@ -339,6 +345,7 @@ sub run {
$msg . N("Try harder to install (--force)?"))) {
$urpm->{log}("starting force installing packages without deps");
$install_options_common{force} = 1;
+ # try again:
goto install;
}
}
@@ -357,6 +364,7 @@ sub run {
}
}
+ #- migrate the chrooted rpmdb if needed
if ($migrate_back_rpmdb_db_version) {
urpm::sys::migrate_back_rpmdb_db_version($urpm, $urpm->{root});
}