diff options
Diffstat (limited to 'urpm')
-rw-r--r-- | urpm/install.pm | 2 | ||||
-rw-r--r-- | urpm/main_loop.pm | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index 86d789fd..7598d6fe 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -227,12 +227,14 @@ sub install { $options{callback_open} = sub { my ($_data, $_type, $id) = @_; $index++; + $options{callback_open_helper} and $options{callback_open_helper}->(@_); $fh = urpm::sys::open_safe($urpm, '<', $install->{$id} || $upgrade->{$id}); $fh ? fileno $fh : undef; }; $options{callback_close} = sub { my ($urpm, undef, $pkgid) = @_; return unless defined $pkgid; + $options{callback_close_helper} and $options{callback_close_helper}->(@_); get_README_files($urpm, $trans, $urpm->{depslist}[$pkgid]); close $fh if defined $fh; }; diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm index c497027c..74e860dd 100644 --- a/urpm/main_loop.pm +++ b/urpm/main_loop.pm @@ -220,10 +220,13 @@ foreach my $set (@{$state->{transaction} || []}) { 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, |