diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-11-27 11:31:15 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-11-27 11:31:15 +0000 |
| commit | e4a73c3f60d9809988d147a11d3a48b5626ee1b5 (patch) | |
| tree | 5ae18cb1bd41ff2b22e735c50ab77182c2e222d2 /perl-install | |
| parent | 44f7ca085af75698e0bd60c9c9e5f73427529f1a (diff) | |
| download | drakx-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar drakx-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar.gz drakx-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar.bz2 drakx-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar.xz drakx-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.zip | |
(@bad_types): list of the different type of extended partitions
(important_types): remove @bad_types from important_types
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index c1f90c566..37b9f835f 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -22,6 +22,7 @@ use log; @fields2save = qw(primary extended totalsectors isDirty needKernelReread); +@bad_types = ('DOS 3.3+ Extended Partition', 'Win95: Extended partition, LBA-mapped', 'Linux extended partition'); my %types = ( 0x0 => 'Empty', @@ -194,8 +195,9 @@ my %fs2type = reverse %type2fs; 1; sub important_types { - $::expert and return sort values %types; - @important_types, $::beginner ? () : @important_types2; + my @l = $::expert ? sort values %types : + (@important_types, $::beginner ? () : @important_types2); + difference2(\@l, \@bad_types); } sub type2name($) { $types{$_[0]} || $_[0] } |