diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/c/stuff.xs.pl | 2 | ||||
| -rw-r--r-- | 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}"; |