summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-02 22:18:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-02 22:18:19 +0000
commit1198912b180ca6052146f52302123d091adcf3c6 (patch)
treefa1a3e13e0a8b49d13f196807c6c52f075b4d8c3 /perl-install/install_interactive.pm
parent6922b33f6d34f7937b2327035ed4da6c585a2cd7 (diff)
downloaddrakx-1198912b180ca6052146f52302123d091adcf3c6.tar
drakx-1198912b180ca6052146f52302123d091adcf3c6.tar.gz
drakx-1198912b180ca6052146f52302123d091adcf3c6.tar.bz2
drakx-1198912b180ca6052146f52302123d091adcf3c6.tar.xz
drakx-1198912b180ca6052146f52302123d091adcf3c6.zip
no_comment
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r--perl-install/install_interactive.pm9
1 files changed, 8 insertions, 1 deletions
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;