summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/c/stuff.xs.pl2
-rw-r--r--perl-install/partition_table/gpt.pm2
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}";