From 95ed32885421a4158c603f640862843c0c0ee480 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 3 Mar 2009 16:59:00 +0000 Subject: (install) add more callbacks for installer --- urpm/install.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'urpm/install.pm') 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; }; -- cgit v1.2.1