summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-17 16:37:46 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-17 16:37:46 +0000
commitf01a2650aeaed517e5d9509032abf63c3e138d49 (patch)
tree112152b986007498c5f841805fc627faf330032e /perl-install
parent449f2abfe1c7931220d79beb4df4b91fcc113637 (diff)
downloaddrakx-f01a2650aeaed517e5d9509032abf63c3e138d49.tar
drakx-f01a2650aeaed517e5d9509032abf63c3e138d49.tar.gz
drakx-f01a2650aeaed517e5d9509032abf63c3e138d49.tar.bz2
drakx-f01a2650aeaed517e5d9509032abf63c3e138d49.tar.xz
drakx-f01a2650aeaed517e5d9509032abf63c3e138d49.zip
add a reboot if not enough free space is available for installation or upgrade.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 5254b74ae..d4371b51d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -382,7 +382,11 @@ sub choosePackages {
require pkgs;
my $min_size = pkgs::selectedSize($packages);
- $min_size < $availableC or die N("Your system does not have enough space left for installation or upgrade (%d > %d)", $min_size, $availableC);
+ unless ($min_size < $availableC) {
+ $o->ask_warn('', N("Your system does not have enough space left for installation or upgrade (%d > %d)",
+ $min_size, $availableC));
+ install_steps::rebootNeeded($o);
+ }
my $min_mark = 4;