summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm15
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 13715852f..230cdc6a3 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -258,6 +258,13 @@ sub default_type {
is_uefi() || $hd->{totalsectors} > 2 * 1024 * 1024 * 2048 ? 'gpt' : "dos";
}
+sub _get_disk_type {
+ my ($hd) = @_;
+ my $current = c::get_disk_type($hd->{file});
+ $current = 'dos' if $current eq 'msdos';
+ $hd->{current_pt_table_type} = $current;
+}
+
=item initialize($hd, $o_type)
Initialize a $hd object.
@@ -271,9 +278,7 @@ The optional $o_type parameter enables to override the detected disk type (eg: '
sub initialize {
my ($hd, $o_type) = @_;
- my $current = c::get_disk_type($hd->{file});
- $current = 'dos' if $current eq 'msdos';
- $hd->{current_pt_table_type} = $current;
+ my $current = _get_disk_type($hd);
my $type = $o_type || $current || default_type($hd);
$hd->{pt_table_type} = $type;
@@ -302,9 +307,7 @@ sub read_primary {
#- The libparted ped_disk_probe() function opens the raw device for R/W, which causes a
#- change event to be sent for every partition when the raw device is closed again. So
#- be careful not to call this function more than once. (mga#15752)
- my $current = c::get_disk_type($hd->{file});
- $current = 'dos' if $current eq 'msdos';
- $hd->{current_pt_table_type} = $current;
+ _get_disk_type($hd);
my @parttype = (
# gpt must be tried before dos as it presents a fake compatibility mbr