summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/partition_table.pm4
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);