From 9efbb4990254cdca79cc84cab1e660824f2d4a0f Mon Sep 17 00:00:00 2001 From: Francois Pons 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/install_steps.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 95f71a7fe..0c65acf03 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -477,6 +477,10 @@ GridHeight=70 #- move some file after an upgrade that may be seriously annoying. #- and rename saved files to .mdkgiorig. if ($o->{isUpgrade}) { + my $pkg = pkgs::packageByName($o->{packages}, 'rpm'); + $pkg && pkgs::packageSelectedOrInstalled($pkg) && pkgs::versionCompare(pkgs::packageVersion($pkg), '4.0') >= 0 and + pkgs::clean_old_rpm_db($o->{prefix}); + log::l("moving previous desktop files that have been updated to Trash of each user"); install_any::kdemove_desktop_file($o->{prefix}); -- cgit v1.2.1