summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-27 14:44:02 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-27 14:44:02 +0000
commit16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14 (patch)
tree2f87567571d960bb4f3ddcdda6fd7a2bc9aa7237 /perl-install
parentf1a0bb5a081a93faff9432d7c3b885a7c2b41a3b (diff)
downloaddrakx-backup-do-not-use-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar
drakx-backup-do-not-use-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar.gz
drakx-backup-do-not-use-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar.bz2
drakx-backup-do-not-use-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.tar.xz
drakx-backup-do-not-use-16978c16fbb3dfe2c7cc7508e7085f2d0cd68d14.zip
added warn about packages to remove.
Diffstat (limited to 'perl-install')
-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) = @_;