diff options
Diffstat (limited to 'urpm/install.pm')
| -rw-r--r-- | urpm/install.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index fbdb7ef1..29821e90 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -104,7 +104,7 @@ sub get_README_files { #- install packages according to each hash (remove, install or upgrade). #- options: #- test, excludepath, nodeps, noorder (unused), delta, -#- callback_open, callback_close, callback_inst, callback_trans, post_clean_cache +#- callback_inst, callback_trans, post_clean_cache #- (more options for trans->run) #- excludedocs, nosize, noscripts, oldpackage, repackage, ignorearch sub install { @@ -159,13 +159,13 @@ sub install { my $fh; #- assume default value for some parameter. $options{delta} ||= 1000; - $options{callback_open} ||= sub { + $options{callback_open} = sub { my ($_data, $_type, $id) = @_; $index++; $fh = urpm::sys::open_safe($urpm, '<', $install->{$id} || $upgrade->{$id}); $fh ? fileno $fh : undef; }; - $options{callback_close} ||= sub { + $options{callback_close} = sub { my ($urpm, undef, $pkgid) = @_; return unless defined $pkgid; get_README_files($urpm, $urpm->{depslist}[$pkgid]); |