summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-07-30 16:27:37 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-07-31 17:31:11 +0200
commit0810aa1a87ba9ded271f3c3d8037787d9866e1a0 (patch)
treeb08f5f37bcf1e3889b701d33e58ccc9459e4070f /perl-install
parentfa5d71d34b1193fea0e290bb0586d0ff02747366 (diff)
downloaddrakx-0810aa1a87ba9ded271f3c3d8037787d9866e1a0.tar
drakx-0810aa1a87ba9ded271f3c3d8037787d9866e1a0.tar.gz
drakx-0810aa1a87ba9ded271f3c3d8037787d9866e1a0.tar.bz2
drakx-0810aa1a87ba9ded271f3c3d8037787d9866e1a0.tar.xz
drakx-0810aa1a87ba9ded271f3c3d8037787d9866e1a0.zip
do not switch from gpt to dos scheme on small disk
or more generally, do not switch from current scheme to default one if not told otherwise else we get errors when partitionning after clearing them, such as: "INTERNAL ERROR: unknown device vda7"
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);