diff options
Diffstat (limited to 'perl-install/partition_table')
| -rw-r--r-- | perl-install/partition_table/lvm.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/partition_table/lvm.pm b/perl-install/partition_table/lvm.pm index b0bc88cf3..0e8090772 100644 --- a/perl-install/partition_table/lvm.pm +++ b/perl-install/partition_table/lvm.pm @@ -23,3 +23,15 @@ sub initialize { bless $hd, $class; } + +sub read_primary { + my ($hd) = @_; + + my $wanted = fs::type::type_name2subpart('Linux Logical Volume Manager'); + my $type = fs::type::type_subpart_from_magic($hd); + + $type && $type->{pt_type} == $wanted->{pt_type} or return; + + partition_table::lvm->initialize($hd); + 1; +} |