From 6162aa3214fa3df4debd19f5123634ea78f6ac4a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 1 Mar 2001 17:31:33 +0000 Subject: add LVM in important_types2. in expert, have interesting types in the beginning --- perl-install/partition_table.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'perl-install') 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); } -- cgit v1.2.1