diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-28 17:52:25 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-28 17:52:25 +0000 |
commit | 62d97a61f7ac3d2889cc925bbf2fed71c440bf49 (patch) | |
tree | 658b52912f995c30a08f982c729b29b793fd924f /perl-install/install_interactive.pm | |
parent | f993948d20464e09233c8e8342f8af9591f5b2af (diff) | |
download | drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar.gz drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar.bz2 drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.tar.xz drakx-62d97a61f7ac3d2889cc925bbf2fed71c440bf49.zip |
no_comment
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r-- | perl-install/install_interactive.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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) { |