From 7c32cf9c3f2c6ad9884716f67aee1a2979812de9 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 18 Nov 1999 17:21:44 +0000 Subject: *** empty log message *** --- perl-install/pkgs.pm | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index c4e41db87..0c56f6a11 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -317,12 +317,15 @@ sub init_db { c::rpmErrorSetCallback(fileno LOG); #- c::rpmSetVeryVerbose(); -# log::l("reading /usr/lib/rpm/rpmrc"); -# c::rpmReadConfigFiles() or die "can't read rpm config files"; -# log::l("\tdone"); + log::l("reading /usr/lib/rpm/rpmrc"); + c::rpmReadConfigFiles() or die "can't read rpm config files"; + log::l("\tdone"); + + if ($isUpgrade) { + c::rpmdbRebuild($prefix) or die "rebuilding of rpm database failed: ", c::rpmErrorString(); + } - $isUpgrade and c::rpmdbRebuild($prefix) || die "rebuilding of rpm database failed: ", c::rpmErrorString(); - c::rpmdbInit($prefix, 0644) || die "creation of rpm database failed: ", c::rpmErrorString(); + c::rpmdbInit($prefix, 0644) or die "creation of rpm database failed: ", c::rpmErrorString(); #- $isUpgrade ? c::rpmdbRebuild($prefix) : c::rpmdbInit($prefix, 0644) or die "creation/rebuilding of rpm database failed: ", c::rpmErrorString(); } @@ -488,9 +491,12 @@ sub install($$) { eval { fs::mount("/proc", "$prefix/proc", "proc", 0) }; + #- if someone try to change the function log::ld or the parameters used, + #- DON TRY THAT unless you have modified accordingly install_steps_gtk. + #- because log::ld is catched, furthermore do not translate the messages used. log::l("starting installation: ", $nb, " packages, ", $total, " bytes"); + log::ld("starting installation: ", $nb, " packages, ", $total, " bytes"); - #- !! do not translate these messages, they are used when catched (cf install_steps_gtk) my $callbackOpen = sub { my $f = (my $p = $packages{$_[0]})->{file}; print LOG "$f\n"; -- cgit v1.2.1