summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 16d6da39f..1cd6ede24 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -365,11 +365,11 @@ sub remove_empty_extended {
}
$_->{normal};
} @{$hd->{extended}};
- adjust_main_extended($hd);
+ adjust_main_extended($hd, 1);
}
sub adjust_main_extended {
- my ($hd) = @_;
+ my ($hd, $no_auto_win_extended) = @_;
if (!is_empty_array_ref $hd->{extended}) {
my ($l, @l) = @{$hd->{extended}};
@@ -386,7 +386,7 @@ sub adjust_main_extended {
}
$l->{start} = $hd->{primary}{extended}{start} = $start;
$l->{size} = $hd->{primary}{extended}{size} = $end - $start;
- $hd->{primary}{extended}{type} = $only_linux ? 0x85 : $has_win_lba ? 0xf : 0x5 if !$::expert;
+ $hd->{primary}{extended}{type} = $only_linux ? 0x85 : $has_win_lba ? 0xf : 0x5 if !$::expert && !$no_auto_win_extended;
}
unless (@{$hd->{extended} || []} || !$hd->{primary}{extended}) {
%{$hd->{primary}{extended}} = (); #- modify the raw entry