From 0810aa1a87ba9ded271f3c3d8037787d9866e1a0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 30 Jul 2016 16:27:37 +0200
Subject: 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"
---
 perl-install/partition_table.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/partition_table.pm')

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);
-- 
cgit v1.2.1