diff options
Diffstat (limited to 'urpm/install.pm')
| -rw-r--r-- | urpm/install.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/urpm/install.pm b/urpm/install.pm index fc30b847..3dd97302 100644 --- a/urpm/install.pm +++ b/urpm/install.pm @@ -222,6 +222,7 @@ sub install { $urpm->{readmes} = {}; my $index; my $fh; + my $is_test = $options{test}; # fix circular reference #- assume default value for some parameter. $options{delta} ||= 1000; @@ -239,7 +240,7 @@ sub install { my ($urpm, undef, $pkgid) = @_; return unless defined $pkgid; $callback_close_helper and $callback_close_helper->($db, @_); - get_README_files($urpm, $trans, $urpm->{depslist}[$pkgid]) if !$options{test}; + get_README_files($urpm, $trans, $urpm->{depslist}[$pkgid]) if !$is_test; close $fh if defined $fh; }; #- ensure perl does not create a circular reference below, otherwise all this won't be collected, |