From 9efbb4990254cdca79cc84cab1e660824f2d4a0f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 27 Mar 2001 12:04:42 +0000
Subject: fixed too early erasing of old rpmlib db. now postponed at end of
 install and only if rpm-4.0 or above has been installed.

---
 perl-install/pkgs.pm | 37 +++++++++++++++++++++----------------
 1 file changed, 21 insertions(+), 16 deletions(-)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 3a3bea5bf..e5e17923b 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -825,24 +825,8 @@ sub rebuild_db_open_for_traversal {
 	    my $rebuilddb_dir = "$prefix/var/lib/rpmrebuilddb.$$";
 	    -d $rebuilddb_dir and log::l("removing stale directory $rebuilddb_dir"), commands::rm("-rf", $rebuilddb_dir);
 
-	    my $failed;
 	    c::rpmdbRebuild($prefix) or log::l("rebuilding of rpm database failed: ". c::rpmErrorString()), c::_exit(2);
 
-	    foreach (qw(Basenames Conflictname Group Name Packages Providename Requirename Triggername)) {
-		-s "$prefix/var/lib/rpm/$_" or $failed = 'failed';
-	    }
-	    #- rebuilding has been successfull, so remove old rpm database if any.
-	    #- once we have checked the rpm4 db file are present and not null, in case
-	    #- of doubt, avoid removing them...
-	    unless ($failed) {
-		log::l("rebuilding rpm database completed successfully");
-		foreach (qw(conflictsindex.rpm fileindex.rpm groupindex.rpm nameindex.rpm packages.rpm
-                        providesindex.rpm requiredby.rpm triggerindex.rpm)) {
-		    -e "$prefix/var/lib/rpm/$_" or next;
-		    log::l("removing old rpm file $_");
-		    commands::rm("-f", "$prefix/var/lib/rpm/$_");
-		}
-	    }
 	    c::_exit(0);
 	}
 	$packages->{rebuild_db} = undef;
@@ -854,6 +838,27 @@ sub rebuild_db_open_for_traversal {
     $db;
 }
 
+sub clean_old_rpm_db {
+    my ($prefix) = @_;
+    my $failed;
+
+    foreach (qw(Basenames Conflictname Group Name Packages Providename Requirename Triggername)) {
+	-s "$prefix/var/lib/rpm/$_" or $failed = 'failed';
+    }
+    #- rebuilding has been successfull, so remove old rpm database if any.
+    #- once we have checked the rpm4 db file are present and not null, in case
+    #- of doubt, avoid removing them...
+    unless ($failed) {
+	log::l("rebuilding rpm database completed successfully");
+	foreach (qw(conflictsindex.rpm fileindex.rpm groupindex.rpm nameindex.rpm packages.rpm
+                    providesindex.rpm requiredby.rpm triggerindex.rpm)) {
+	    -e "$prefix/var/lib/rpm/$_" or next;
+	    log::l("removing old rpm file $_");
+	    commands::rm("-f", "$prefix/var/lib/rpm/$_");
+	}
+    }
+}
+
 sub done_db {
     log::l("closing install.log file");
     close LOG;
-- 
cgit v1.2.1