diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/partition_table.pm | 4 |
3 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index c1182f8e1..c60639b19 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,7 @@ - diskdrake: o first usable sector is LBA34 for GPT + o respect used scheme when clearing a disk + (ie do not switch from gpt to dos scheme on small disk) - drakboot: o fix .old backup for grub2's grub.cfg - authentication: add support for sha256/sha512 and default to sha512 diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 3686461a8..e94dfad12 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -2,6 +2,8 @@ o fix .old backup for grub2's grub.cfg - partionning: o first usable sector is LBA34 for GPT + o respect used scheme when clearing a disk + (ie do not switch from gpt to dos scheme on small disk) Version 17.52 - 17 July 2016 diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 08fa8ab25..294e18052 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -229,7 +229,9 @@ sub _default_type { sub initialize { my ($hd, $o_type) = @_; - my $type = $o_type || _default_type($hd); + my $current = c::get_disk_type($hd->{file}); + $current = 'dos' if $current eq 'msdos'; + my $type = $o_type || $current || _default_type($hd); require "partition_table/$type.pm"; "partition_table::$type"->initialize($hd); |