do init_db inside pkg_inside otherwise LOG is closed and rpmlib tries to write in it and ...

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 0bcd9d28a..5de1f29cb 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -812,7 +812,7 @@ sub init_db {
     my ($prefix) = @_;
 
     my $f = "$prefix/root/install.log";
-    open(LOG, "> $f") ? log::l("opened $f") : log::l("Failed to open $f. No install log will be kept.");
+    open(LOG, ">> $f") ? log::l("opened $f") : log::l("Failed to open $f. No install log will be kept.");
     *LOG or *LOG = log::F() or *LOG = *STDERR;
     CORE::select((CORE::select(LOG), $| = 1)[0]);
     c::rpmErrorSetCallback(fileno LOG);
@@ -1241,9 +1241,7 @@ sub install($$$;$$) {
     log::l("pkgs::install the following: ", join(" ", keys %packages));
     eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo";
 
-    log::l("reading /usr/lib/rpm/rpmrc");
-    c::rpmReadConfigFiles() or die "can't read rpm config files";
-    log::l("\tdone");
+    init_db($prefix);
 
     my $callbackOpen = sub {
 	my $p = $packages{$_[0]};
@@ -1459,6 +1457,8 @@ sub install($$$;$$) {
 	cleanHeaders($prefix);
     } while ($nb > 0 && !$pkgs::cancel_install);
 
+    done_db();
+
     cleanHeaders($prefix);
 
     loopback::save_boot($loop_boot);