From f01a2650aeaed517e5d9509032abf63c3e138d49 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 17 Feb 2003 16:37:46 +0000
Subject: add a reboot if not enough free space is available for installation
 or upgrade.

---
 perl-install/install_steps_interactive.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

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;
 
-- 
cgit v1.2.1