remove duplicate entries also without explicit fixup

src/gen_dcs_classifier.pl

@@ -750,8 +750,8 @@ my %common_subkeys;
 my $invalid = "*invalid*";
 my $manual_fixup = "*manual fixup*";
 
-sub fixup_entry($) {
-    my $entry = $_;
+sub fixup_entry($$) {
+    my ($entry, $seen) = @_;
 
     my $key = ${$entry->[ENTRY_KEY]};
 
@@ -784,7 +784,12 @@ sub fixup_entry($) {
 	warn 'reordered from fixup: id '.$entry->[ENTRY_ID].' order '.$entry->[ENTRY_ORDER];
     }
 
-    $entry->[ENTRY_ACTIVE] = 1;
+    if (exists($seen->{$key})) {
+	warn 'duplicate key '.$key.' - disabling';
+    } else {
+	$seen->{$key} = 1;
+	$entry->[ENTRY_ACTIVE] = 1;
+    }
 }
 
 sub process_entry($) {
@@ -851,7 +856,10 @@ sub process_entry($) {
     $entry->[ENTRY_INITMASK]		= $initmask;
 }
 
-map { fixup_entry($_); } @entries;
+{
+    my %fixup_seen;
+    map { fixup_entry($_, \%fixup_seen); } @entries;
+}
 @entries = sort { $a->[ENTRY_ORDER] <=> $b->[ENTRY_ORDER] }
 	   grep { $_->[ENTRY_ACTIVE] } @entries;