diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-02 22:18:19 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-02 22:18:19 +0000 |
commit | 1198912b180ca6052146f52302123d091adcf3c6 (patch) | |
tree | fa1a3e13e0a8b49d13f196807c6c52f075b4d8c3 /perl-install/install_interactive.pm | |
parent | 6922b33f6d34f7937b2327035ed4da6c585a2cd7 (diff) | |
download | drakx-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.pm | 9 |
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; |