From b392299c4d0c391cf5d55479bd1ebca43cbec8c3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 20 May 2015 03:22:33 -0400
Subject: prefer 'fat32' over 'fat16'

not that important as we do the format/..., we only rely on libparted
for writing the partition table & setting the GUID, but just in case...
---
 perl-install/partition_table/gpt.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/partition_table')

diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 5c1f53ca0..161ea621a 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -109,6 +109,8 @@ my %parted_mapping = (
    'fat32' => 'vfat',
    );
 my %rev_parted_mapping = reverse %parted_mapping;
+# prefer 'fat32' over 'fat16':
+$rev_parted_mapping{vfat} = 'fat32';
 
 sub read_one {
     my ($hd, $_sector) = @_;
-- 
cgit v1.2.1