use fs::type to find partition code (for vfat replicator masters)

1 files changed, 3 insertions, 1 deletions

diff --git a/draklive b/draklive
index d75db14..3659c17 100755
--- a/draklive
+++ b/draklive
@@ -1310,6 +1310,8 @@ sub allocate_master {
     device_allocate_file($dest, $disk_size);
 
     #- FIXME: use parted?
+    require fs::type;
+    my $pt_type = sprintf('%x', (fs::type::fs_type2subpart($fs))->{pt_type});
     open(my $fdisk, "| fdisk -C $cylinders -S $sectors_per_track -H $heads $dest");
     print $fdisk <<EOF;
 o
@@ -1319,7 +1321,7 @@ p
 
 
 t
-83
+$pt_type
 a
 1
 w