From e4a73c3f60d9809988d147a11d3a48b5626ee1b5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 27 Nov 2000 11:31:15 +0000
Subject: (@bad_types): list of the different type of extended partitions
 (important_types): remove @bad_types from important_types

---
 perl-install/partition_table.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/partition_table.pm')

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] }
-- 
cgit v1.2.1