summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table')
-rw-r--r--perl-install/partition_table/lvm.pm12
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;
+}