diff options
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index ef9e29038..a4120d0bb 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -226,7 +226,11 @@ sub important_types() { difference2(\@l, \@bad_types); } -sub type2fs { $type2fs{$_[0]{type}} || $_[0]{type} } +sub type2fs { + my ($part, $o_default) = @_; + my $type = $part->{type}; + $type2fs{$type} || $type =~ /^(\d+)$/ && $o_default || $type; +} sub fs2type { $fs2type{$_[0]} || $_[0] } sub type2name { $types{$_[0]} || $_[0] } sub name2type { |