summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-28 17:52:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-28 17:52:25 +0000
commit62d97a61f7ac3d2889cc925bbf2fed71c440bf49 (patch)
tree658b52912f995c30a08f982c729b29b793fd924f /perl-install/install_interactive.pm
parentf993948d20464e09233c8e8342f8af9591f5b2af (diff)
downloaddrakx-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.pm7
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) {