diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-03-27 12:04:42 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-03-27 12:04:42 +0000 |
| commit | 9efbb4990254cdca79cc84cab1e660824f2d4a0f (patch) | |
| tree | 5a5bf8dcd56114d7a138d387a228e3101d4e7e40 /perl-install/install_steps.pm | |
| parent | 1e495ca482a29b8baeb85f56654a3bd3d108b64a (diff) | |
| download | drakx-9efbb4990254cdca79cc84cab1e660824f2d4a0f.tar drakx-9efbb4990254cdca79cc84cab1e660824f2d4a0f.tar.gz drakx-9efbb4990254cdca79cc84cab1e660824f2d4a0f.tar.bz2 drakx-9efbb4990254cdca79cc84cab1e660824f2d4a0f.tar.xz drakx-9efbb4990254cdca79cc84cab1e660824f2d4a0f.zip | |
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.
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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}); |