summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index e7fd1e1ff..16c582c6e 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -16,8 +16,8 @@ use partition_table_raw;
use log;
-@important_types = ('Linux native', arch() =~ /i.86/ ? 'ReiserFS' : (), 'Linux swap', 'Win98 FAT32');
-@important_types2 = ('Linux RAID');
+@important_types = ('Linux native', 'Linux swap', if_(arch() =~ /i.86/, 'ReiserFS', 'DOS FAT16', 'Win98 FAT32'));
+@important_types2 = ('Linux RAID', 'Linux Logical Volume Manager partition');
@fields2save = qw(primary extended totalsectors isDirty needKernelReread);
@@ -194,8 +194,7 @@ my %fs2type = reverse %type2fs;
1;
sub important_types {
- my @l = $::expert ? sort values %types :
- (@important_types, if_($::expert, @important_types2));
+ my @l = (@important_types, if_($::expert, @important_types2, sort values %types));
difference2(\@l, \@bad_types);
}