summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-22 16:29:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-22 16:29:02 +0000
commit5eabc0cdf002227c7b346e16639e86bd2bc802dd (patch)
treea35d1daf01735f15be97c445eca4414afe325a08 /perl-install
parent91d28380c3f7135fa5b7d64fa251b37c772994ae (diff)
downloaddrakx-5eabc0cdf002227c7b346e16639e86bd2bc802dd.tar
drakx-5eabc0cdf002227c7b346e16639e86bd2bc802dd.tar.gz
drakx-5eabc0cdf002227c7b346e16639e86bd2bc802dd.tar.bz2
drakx-5eabc0cdf002227c7b346e16639e86bd2bc802dd.tar.xz
drakx-5eabc0cdf002227c7b346e16639e86bd2bc802dd.zip
defaults to ext3 instead of ext2
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fsedit.pm18
-rw-r--r--perl-install/install_interactive.pm2
-rw-r--r--perl-install/raid.pm2
3 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 91de6a0ff..5610adc42 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -19,20 +19,20 @@ use fs;
%suggestions = (
__("simple") => [
- { mntpoint => "/", size => 300 << 11, type => 0x83, ratio => 5, maxsize =>3500 << 11 },
+ { mntpoint => "/", size => 300 << 11, type =>0x483, ratio => 5, maxsize =>3500 << 11 },
{ mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 },
- { mntpoint => "/home", size => 300 << 11, type => 0x83, ratio => 3 },
+ { mntpoint => "/home", size => 300 << 11, type =>0x483, ratio => 3 },
], 'with usr' => [
- { mntpoint => "/", size => 150 << 11, type => 0x83, ratio => 1, maxsize => 500 << 11 },
+ { mntpoint => "/", size => 150 << 11, type =>0x483, ratio => 1, maxsize => 500 << 11 },
{ mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 },
- { mntpoint => "/usr", size => 300 << 11, type => 0x83, ratio => 4, maxsize =>3000 << 11 },
- { mntpoint => "/home", size => 100 << 11, type => 0x83, ratio => 5 },
+ { mntpoint => "/usr", size => 300 << 11, type =>0x483, ratio => 4, maxsize =>3000 << 11 },
+ { mntpoint => "/home", size => 100 << 11, type =>0x483, ratio => 5 },
], __("server") => [
- { mntpoint => "/", size => 150 << 11, type => 0x83, ratio => 1, maxsize => 250 << 11 },
+ { mntpoint => "/", size => 150 << 11, type =>0x483, ratio => 1, maxsize => 250 << 11 },
{ mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 2, maxsize => 400 << 11 },
- { mntpoint => "/usr", size => 300 << 11, type => 0x83, ratio => 3, maxsize =>3000 << 11 },
- { mntpoint => "/var", size => 100 << 11, type => 0x83, ratio => 4 },
- { mntpoint => "/home", size => 100 << 11, type => 0x83, ratio => 5 },
+ { mntpoint => "/usr", size => 300 << 11, type =>0x483, ratio => 3, maxsize =>3000 << 11 },
+ { mntpoint => "/var", size => 100 << 11, type =>0x483, ratio => 4 },
+ { mntpoint => "/home", size => 100 << 11, type =>0x483, ratio => 5 },
],
);
foreach (values %suggestions) {
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index ec50e51db..70cdb4ec9 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -105,7 +105,7 @@ sub partitionWizardSolutions {
{ label => _("Swap partition size in MB: "), val => \$s_swap, min => $min_swap >> 11, max => $max_swap >> 11, type => 'range' },
]) or return;
push @{$part->{loopback}},
- { type => 0x83, loopback_file => '/lnx4win/linuxsys.img', mntpoint => '/', size => $s_root << 11, loopback_device => $part, notFormatted => 1 },
+ { type =>0x483, loopback_file => '/lnx4win/linuxsys.img', mntpoint => '/', size => $s_root << 11, loopback_device => $part, notFormatted => 1 },
{ type => 0x82, loopback_file => '/lnx4win/swapfile', mntpoint => 'swap', size => $s_swap << 11, loopback_device => $part, notFormatted => 1 };
fsedit::recompute_loopbacks($all_hds);
1;
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 0d0a8720a..7096a203b 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -21,7 +21,7 @@ sub nb {
sub new {
my ($raids, @parts) = @_;
my $nb = @$raids;
- $raids->[$nb] = { 'chunk-size' => "64k", type => 0x83, disks => [ @parts ], device => "md$nb", notFormatted => 1, level => 1 };
+ $raids->[$nb] = { 'chunk-size' => "64k", type => 0x483, disks => [ @parts ], device => "md$nb", notFormatted => 1, level => 1 };
foreach my $part (@parts) {
$part->{raid} = $nb;
delete $part->{mntpoint};