summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-11-27 11:31:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-11-27 11:31:15 +0000
commite4a73c3f60d9809988d147a11d3a48b5626ee1b5 (patch)
tree5ae18cb1bd41ff2b22e735c50ab77182c2e222d2 /perl-install
parent44f7ca085af75698e0bd60c9c9e5f73427529f1a (diff)
downloaddrakx-backup-do-not-use-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar
drakx-backup-do-not-use-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar.gz
drakx-backup-do-not-use-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar.bz2
drakx-backup-do-not-use-e4a73c3f60d9809988d147a11d3a48b5626ee1b5.tar.xz
drakx-backup-do-not-use-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.pm6
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] }