diff options
| -rw-r--r-- | urpm/main_loop.pm | 8 |
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}); } |