summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index f3a67984f..20d6a2bce 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -274,6 +274,7 @@ sub initialize {
my $current = c::get_disk_type($hd->{file});
$current = 'dos' if $current eq 'msdos';
my $type = $o_type || $current || default_type($hd);
+ $hd->{pt_table_type} = $type;
require "partition_table/$type.pm";
"partition_table::$type"->initialize($hd);