summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-29 21:55:41 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-29 21:55:41 +0000
commit0ec07d89144fab40d351a24dca0645eca179ce29 (patch)
tree59cddb1cbc4264f9164195670848adc1230daf03 /perl-install/pkgs.pm
parentbbbfaa4f23a86e291e8d0ff769ea0fb571d0e7b5 (diff)
downloaddrakx-0ec07d89144fab40d351a24dca0645eca179ce29.tar
drakx-0ec07d89144fab40d351a24dca0645eca179ce29.tar.gz
drakx-0ec07d89144fab40d351a24dca0645eca179ce29.tar.bz2
drakx-0ec07d89144fab40d351a24dca0645eca179ce29.tar.xz
drakx-0ec07d89144fab40d351a24dca0645eca179ce29.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 6 insertions, 0 deletions
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");