From 0ec07d89144fab40d351a24dca0645eca179ce29 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 29 Jul 1999 21:55:41 +0000 Subject: no_comment --- perl-install/pkgs.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index f56e43cee..0ad16d1b0 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -221,6 +221,10 @@ sub init_db { c::rpmErrorSetCallback($fd); # c::rpmSetVeryVerbose(); + log::l("reading /usr/lib/rpm/rpmrc"); + c::rpmReadConfigFiles() or die "can't read rpm config files"; + log::l("\tdone"); + $isUpgrade ? c::rpmdbRebuild($prefix) : c::rpmdbInit($prefix, 0644) or die "creation/rebuilding of rpm database failed: ", c::rpmErrorString(); } @@ -238,6 +242,8 @@ sub getHeader($) { sub install { my ($prefix, $toInstall, $isUpgrade, $force) = @_; + c::rpmReadConfigFiles() or die "can't read rpm config files"; + my $db = c::rpmdbOpen($prefix) or die "error opening RPM database: ", c::rpmErrorString(); log::l("opened rpm database"); -- cgit v1.2.1