summaryrefslogtreecommitdiffstats
path: root/urpm/install.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-05 19:01:43 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-05 19:01:43 +0000
commit0834d50e0b3dc375687362ff5d6f10753d2ffc10 (patch)
tree00e2f0d62e171bbd49c8720ef806dda3af7dee9c /urpm/install.pm
parent448206fda38d36732781f755b60613fa2d0b399f (diff)
downloadurpmi-0834d50e0b3dc375687362ff5d6f10753d2ffc10.tar
urpmi-0834d50e0b3dc375687362ff5d6f10753d2ffc10.tar.gz
urpmi-0834d50e0b3dc375687362ff5d6f10753d2ffc10.tar.bz2
urpmi-0834d50e0b3dc375687362ff5d6f10753d2ffc10.tar.xz
urpmi-0834d50e0b3dc375687362ff5d6f10753d2ffc10.zip
(install) fix circular reference that defeats perl's GC
else we keep the RPM DB open several times until rpm fails: created transaction for installing on / (remove=0, install=0, upgrade=8) error: rpmdb: Lock table is out of available locker entries error: cannot open Basenames index using db4 - Cannot allocate memory (12) error: rpmdb: Lock table is out of available locker entries error: cannot open Group index using db4 - Cannot allocate memory (12) error: rpmdb: Lock table is out of available locker entries error: cannot open Requirename index using db4 - Cannot allocate memory (12) error: rpmdb: Lock table is out of available locker entries error: cannot open Triggername index using db4 - Cannot allocate memory (12) error: rpmdb: Lock table is out of available locker entries (...) regression introduced in commit r2946 on 2012-02-14 (was: '(install) --test: do not display "More information on package"')
Diffstat (limited to 'urpm/install.pm')
-rw-r--r--urpm/install.pm3
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,