summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-06-23 13:03:19 +0000
committerFrancois Pons <fpons@mandriva.com>2000-06-23 13:03:19 +0000
commitc8d8767aa3dfeb049fd662080ac8cf2a7075ca56 (patch)
treee424b6ad6a2f2142554bee44cedd04d5016de938 /perl-install/fsedit.pm
parentb8820f0b8f1a137b9baa11b76626ad79e47cb707 (diff)
downloaddrakx-backup-do-not-use-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar
drakx-backup-do-not-use-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar.gz
drakx-backup-do-not-use-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar.bz2
drakx-backup-do-not-use-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.tar.xz
drakx-backup-do-not-use-c8d8767aa3dfeb049fd662080ac8cf2a7075ca56.zip
*** empty log message ***
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm8
1 files changed, 1 insertions, 7 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 6d30a73ab..599a7af5e 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -22,14 +22,9 @@ use log;
#- Globals
#-#####################################################################################
my @suggestions = (
-arch() =~ /^sparc/ ? (
- { mntpoint => "/", size => 50 << 11, type => 0x83, ratio => 1, maxsize => 1000 << 11 },
- { mntpoint => "swap", size => 30 << 11, type => 0x82, ratio => 1, maxsize => 500 << 11 },
-) : (
+ { mntpoint => "/boot", size => 16 << 11, type => 0x83, ratio => 1, maxsize => 30 << 11 },
{ mntpoint => "/", size => 50 << 11, type => 0x83, ratio => 1, maxsize => 300 << 11 },
{ mntpoint => "swap", size => 30 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 },
-),
- { mntpoint => "/boot", size => 16 << 11, type => 0x83, ratio => 1, maxsize => 30 << 11 },
{ mntpoint => "/usr", size => 200 << 11, type => 0x83, ratio => 6, maxsize =>3000 << 11 },
{ mntpoint => "/home", size => 50 << 11, type => 0x83, ratio => 3 },
{ mntpoint => "/var", size => 200 << 11, type => 0x83, ratio => 1, maxsize =>1000 << 11 },
@@ -168,7 +163,6 @@ sub computeSize($$$$) {
} @l;
}
my $size = int min($max, $best->{size} + $free_space * ($tot_ratios && $best->{ratio} / $tot_ratios));
-
#- verify other entry can fill the hole
if (grep { $_->{size} < $max - $size } @L) { $size } else { $max }
}