added warn about packages to remove.

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