diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-10-02 15:13:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-10-02 15:13:21 +0000 |
| commit | bb62f81431cfbb6c57fadd8915a55b1c68b4598e (patch) | |
| tree | e58a7a17bb87b4be18e6216611f414c78c8ba285 /perl-install/install/any.pm | |
| parent | 65c2f01be328a54210359e48076705113c25e26a (diff) | |
| download | drakx-backup-do-not-use-bb62f81431cfbb6c57fadd8915a55b1c68b4598e.tar drakx-backup-do-not-use-bb62f81431cfbb6c57fadd8915a55b1c68b4598e.tar.gz drakx-backup-do-not-use-bb62f81431cfbb6c57fadd8915a55b1c68b4598e.tar.bz2 drakx-backup-do-not-use-bb62f81431cfbb6c57fadd8915a55b1c68b4598e.tar.xz drakx-backup-do-not-use-bb62f81431cfbb6c57fadd8915a55b1c68b4598e.zip | |
move code
Diffstat (limited to 'perl-install/install/any.pm')
| -rw-r--r-- | perl-install/install/any.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 9ad757da3..6008ab2b8 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -381,6 +381,19 @@ sub setPackages { log::l("selecting task-kde (since kdebase-progs was installed)"); install::pkgs::select_by_package_names($o->{packages}, ['task-kde']); } + if (-e "$::prefix/usr/bin/kicker" + && !install::pkgs::packageByName($o->{packages}, 'task-kde3')) { + log::l("kde3 installed, but task-kde3 not available so can't upgrade correctly"); + + my $choice; + $o->ask_from_({ messages => formatAlaTeX(N("You have decided to upgrade your system to %s. KDE 3.5 has been detected +on your system. This installer cannot preserve KDE 3.5 in an upgrade. If you choose to proceed, +KDE 4 will replace KDE 3, and you will lose your personal KDE configuration settings. +To upgrade with KDE 3.5 and your personal settings preserved, +please reboot your system and upgrade using the Mandriva update applet.", 'Mandriva Linux 2009')) }, + [ { val => \$choice, type => 'list', list => [ N_("Reboot"), N_("Proceed") ], format => \&translate } ]); + $choice eq 'Reboot' and install::steps::rebootNeeded($o); + } } } |