diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-08-27 14:44:02 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-08-27 14:44:02 +0000 |
| commit | 16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14 (patch) | |
| tree | 2f87567571d960bb4f3ddcdda6fd7a2bc9aa7237 /perl-install/install_any.pm | |
| parent | f1a0bb5a081a93faff9432d7c3b885a7c2b41a3b (diff) | |
| download | drakx-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar drakx-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar.gz drakx-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar.bz2 drakx-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar.xz drakx-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.zip | |
added warn about packages to remove.
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 ae0281d51..9dc5b573d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -434,6 +434,19 @@ Do you really want to install these servers? } } +sub warnAboutRemovedPackages { + my ($o, $packages) = @_; + my @removedPackages = keys %{$packages->{state}{ask_remove} || {}} or return; + if (!$o->ask_yesorno('', +formatAlaTeX(_("The following packages will be removed to allow upgrading your system: %s + + +Do you really want to remove these packages? +", join(", ", @removedPackages))), 1)) { + $packages->{state}{ask_remove} = {}; + } +} + sub addToBeDone(&$) { my ($f, $step) = @_; |