summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_any.pm13
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) = @_;