From cec8a8ea2a524a6f9e5ea42750b9f0f54df873ce Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 27 Mar 2015 07:59:47 -0400
Subject: log which type is unknown

---
 perl-install/c/stuff.xs.pl          | 2 +-
 perl-install/partition_table/gpt.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 7f12bcc26..9a983a493 100755
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -127,7 +127,7 @@ PedPartitionFlag string_to_pedpartflag(char*type) {
    } else if (!strcmp(type, "RAID")) {
       flag = PED_PARTITION_RAID;
    } else {
-      printf("set_partition_flag: unknown type");
+      printf("set_partition_flag: unknown type: %s\n", type);
    }
    return flag;
 }
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 6b302017b..5dec99630 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -158,7 +158,7 @@ sub write {
 	    }
 	    if ($flag) {
 	        c::set_partition_flag($hd->{file}, $part_number, $flag)
-	          or die "failed to set type for $part->{file} on $part->{mntpoint}";
+	          or die "failed to set type '$flag' for $part->{file} on $part->{mntpoint}";
 	    }
         } elsif ($action eq 'del' && !$partitions_killed) {
             c::disk_del_partition($hd->{file}, $part_number) or die "failed to del partition #$part_number on $hd->{file}";
-- 
cgit v1.2.1