diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
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 |