diff options
| -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) = @_; |