From 2fe536b25f66c52a75ed8c53cd5f14d9e795d6a3 Mon Sep 17 00:00:00 2001 From: Martin Whitaker Date: Sat, 20 Apr 2019 11:02:52 +0100 Subject: Minimise calls to ped_disk_probe() when reading partition tables (mga#15752) --- perl-install/partition_table/gpt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/partition_table/gpt.pm') diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm index c155ed48e..e1c07a761 100644 --- a/perl-install/partition_table/gpt.pm +++ b/perl-install/partition_table/gpt.pm @@ -45,7 +45,7 @@ $rev_parted_mapping{vfat} = 'fat32'; sub read_one { my ($hd, $_sector) = @_; - c::get_disk_type($hd->{file}) eq "gpt" or die "$hd->{device} not a GPT disk ($hd->{file})"; + $hd->{current_pt_table_type} eq "gpt" or die "$hd->{device} not a GPT disk ($hd->{file})"; my @pt; foreach (c::get_disk_partitions($hd->{file})) { -- cgit v1.2.1