From 9aeb805dea0dc431331f1175f4fb3bed367e4684 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 21 Nov 2000 09:59:21 +0000
Subject: cosmetic changes for upgrade, removing some logs.

---
 perl-install/pkgs.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c35bb22d7..4ff05f593 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -775,6 +775,7 @@ sub init_db {
     log::l("\tdone");
 
     if ($isUpgrade) {
+	log::l("rebuilding rpm database");
 	c::rpmdbRebuild($prefix) or die "rebuilding of rpm database failed: ", c::rpmErrorString();
     }
     #- seems no more necessary to rpmdbInit ?
@@ -824,11 +825,9 @@ sub selectPackagesAlreadyInstalled {
 			 }
 		     });
 
-    log::l("before closing db");
     #- close db, job finished !
     c::rpmdbClose($db);
     log::l("done selecting packages to upgrade");
-
 }
 
 sub selectPackagesToUpgrade($$$;$$) {
@@ -1083,7 +1082,6 @@ sub selectPackagesToUpgrade($$$;$$) {
 			 });
     }
 
-    log::l("before closing db");
     #- close db, job finished !
     c::rpmdbClose($db);
     log::l("done selecting packages to upgrade");
-- 
cgit v1.2.1