From 995720bf24dbc9195426b87de962f6431ab313ca Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 8 Jun 2012 18:51:26 +0000
Subject: (_init_common_options) split it out of run()

---
 urpm/main_loop.pm | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

(limited to 'urpm/main_loop.pm')

diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm
index ec1a7619..43034fa6 100644
--- a/urpm/main_loop.pm
+++ b/urpm/main_loop.pm
@@ -175,6 +175,25 @@ sub _handle_removable_media {
     $callbacks->{post_removable} and $callbacks->{post_removable}->();
 }
 
+sub _init_common_options {
+  my ($urpm, $state, $callbacks, $test) = @_;
+  (
+      urpm::install::options($urpm),
+      test => $test,
+      verbose => $options{verbose},
+      script_fd => $urpm->{options}{script_fd},
+      oldpackage => $state->{oldpackage},
+      justdb => $options{justdb},
+      replacepkgs => $options{replacepkgs},
+      callback_close_helper => $callbacks->{close_helper},
+      callback_inst => $callbacks->{inst},
+      callback_open_helper => $callbacks->{open_helper},
+      callback_trans => $callbacks->{trans},
+      callback_report_uninst => $callbacks->{callback_report_uninst},
+      raw_message => 1,
+  );
+}
+
 # locking is left to callers
 sub run {
     my ($urpm, $state, $something_was_to_be_done, $ask_unselect, $_requested, $callbacks) = @_;
@@ -290,21 +309,7 @@ sub run {
                 my $to_remove = $urpm->{options}{'allow-force'} ? [] : $set->{remove} || [];
                 bug_log(scalar localtime(), " ", join(' ', values %transaction_sources_install, values %$transaction_sources), "\n");
                 $urpm->{log}("starting installing packages");
-                my %install_options_common = (
-                    urpm::install::options($urpm),
-                    test => $test,
-                    verbose => $options{verbose},
-                    script_fd => $urpm->{options}{script_fd},
-                    oldpackage => $state->{oldpackage},
-                    justdb => $options{justdb},
-                    replacepkgs => $options{replacepkgs},
-                    callback_close_helper => $callbacks->{close_helper},
-                    callback_inst => $callbacks->{inst},
-                    callback_open_helper => $callbacks->{open_helper},
-                    callback_trans => $callbacks->{trans},
-                    callback_report_uninst => $callbacks->{callback_report_uninst},
-                    raw_message => 1,
-                );
+                my %install_options_common = _init_common_options($urpm, $state, $callbacks, $test);
 	    
                 urpm::orphans::add_unrequested($urpm, $state) if !$test;
 
-- 
cgit v1.2.1