- do not rebuild rpmdb if it is ok

  (will workaround #32547) (need perl-URPM 3.01)

3 files changed, 8 insertions, 4 deletions

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index d0672d97d..4a1538a7f 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- do not rebuild rpmdb if it is ok 
+  (will workaround #32547) (need perl-URPM 3.01)
 - adapt to perl-URPM 3.00 API to parse pubkey files
 - adjust Uzbek locale (cf locales-uz change)
 - sort languages in "choose language" step in text mode
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 7586932e2..6c9d60889 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -368,8 +368,8 @@ sub setPackages {
 	    1 while $o->selectSupplMedia;
 	}
 
-	#- open rpm db according to right mode needed (ie rebuilding database if upgrading)
-	$o->{packages}{rpmdb} ||= install::pkgs::rpmDbOpen($o->{isUpgrade}, $o->{rpm_dbapi});
+	#- open rpm db according to right mode needed
+	$o->{packages}{rpmdb} ||= install::pkgs::rpmDbOpen('rebuild_if_needed', $o->{rpm_dbapi});
 
 	{
 	    my $_wait = $o->wait_message('', N("Looking at packages already installed..."));
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 4c96b681a..9aada5d53 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -552,7 +552,7 @@ sub openInstallLog() {
 }
 
 sub rpmDbOpen {
-    my ($b_rebuild_needed, $o_rpm_dbapi) = @_;
+    my ($b_rebuild_if_needed, $o_rpm_dbapi) = @_;
 
     clean_rpmdb_shared_regions();
     
@@ -562,7 +562,9 @@ sub rpmDbOpen {
 	URPM::add_macro("_dbapi $wanted_dbapi");
     }
 
-    if ($b_rebuild_needed && !$o_rpm_dbapi) {
+    my $need_rebuild = $b_rebuild_if_needed && !URPM::DB::verify($::prefix);
+
+    if ($need_rebuild && !$o_rpm_dbapi) {
 	if (my $pid = fork()) {
 	    waitpid $pid, 0;
 	    $? & 0xff00 and die "rebuilding of rpm database failed";