From 1198912b180ca6052146f52302123d091adcf3c6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Oct 2000 22:18:19 +0000
Subject: no_comment

---
 perl-install/install_interactive.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index c15f492cf..633e95b0c 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -188,7 +188,14 @@ sub partitionWizard {
     $o->set_help('doPartitionDisks');
 
     my %solutions = partitionWizardSolutions($o, $o->{hds}, $o->{fstab}, $o->{partitioning}{readonly});
-    %solutions = (loopback => $solutions{loopback}) if $o->{lnx4win} && $solutions{loopback};
+    if ($o->{lnx4win}) {
+	if ($solutions{loopback}) {
+	    %solutions = (loopback => $solutions{loopback});
+	} else {
+	    $o->ask_warn('', _("You don't have enough free space on your Windows partition")) if grep { isFat($_) } @{$o->{fstab}}
+	}
+    }
+
     delete $solutions{diskdrake} if $nodiskdrake;
 
     my @solutions = sort { $b->[0] <=> $a->[0] } values %solutions;
-- 
cgit v1.2.1