summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/type.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 6eb7e6c12..137731c4b 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -194,7 +194,8 @@ sub part2type_name {
my ($part) = @_;
my @names = keys %type_name2fs_type;
- if (my $pt_type = $part->{pt_type} || $part->{fs_type} && $fs_type2pt_type{$part->{fs_type}}) {
+ my $pt_type = defined $part->{pt_type} ? $part->{pt_type} : $part->{fs_type} && $fs_type2pt_type{$part->{fs_type}};
+ if (defined $pt_type) {
@names = grep { $pt_type eq $type_name2pt_type{$_} } @names;
}
if (my $fs_type = $part->{fs_type} || $part->{pt_type} && $pt_type2fs_type{$part->{pt_type}}) {