From bba05ad41f791e93a8bd588e91dca68748c4ee81 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 12 Jun 2016 10:22:28 +0200
Subject: fix partition type test

thus guessing better if we need a GRUB_BIOS partition (mga#18656)
---
 perl-install/fs/any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm
index f8b314a34..ac7255475 100644
--- a/perl-install/fs/any.pm
+++ b/perl-install/fs/any.pm
@@ -160,6 +160,7 @@ sub is_boot_bios_part_needed {
     my $rootDev = $root->{rootDevice};
     my $boot_hd;
     if ($rootDev) {
+	$rootDev = "/dev/" . $rootDev if $rootDev !~ m!/!;
 	# is it GPT?
 	return if c::get_disk_type($rootDev) ne 'gpt';
 	($boot_hd) = find { $_->{device} eq $rootDev } fs::get::hds($all_hds);
-- 
cgit v1.2.1