From 62d97a61f7ac3d2889cc925bbf2fed71c440bf49 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Sep 2000 17:52:25 +0000
Subject: no_comment

---
 perl-install/install_interactive.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index b59e50ebd..c15f492cf 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -55,8 +55,8 @@ sub partitionWizardSolutions {
     my @wizlog;
     my (@solutions, %solutions);
 
-    my $min_linux = 500 << 11;
-    my $max_linux = 2500 << 11;
+    my $min_linux = 400 << 11;
+    my $max_linux = 3000 << 11;
     my $min_swap = 50 << 11;
     my $max_swap = 300 << 11;
     my $min_freewin = 100 << 11;
@@ -188,7 +188,7 @@ 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 => $solutions{loopback}) if $o->{lnx4win} && $solutions{loopback};
     delete $solutions{diskdrake} if $nodiskdrake;
 
     my @solutions = sort { $b->[0] <=> $a->[0] } values %solutions;
@@ -199,6 +199,7 @@ sub partitionWizard {
     log::l("solutions found: " . join('', map {$_->[1]} @sol) . " (all solutions found: " . join('', map {$_->[1]} @solutions) . ")");
 
     @solutions = @sol if @sol > 1;
+    log::l("solutions: ", int @solutions);
     @solutions or $o->ask_warn('', _("I can't find any room for installing")), die 'already displayed';
 
     my $ok; while (!$ok) {
-- 
cgit v1.2.1