1 files changed, 38 insertions, 0 deletions
diff --git a/perl-install/partition_table/lvm.pm b/perl-install/partition_table/lvm.pm
new file mode 100644
index 000000000..8a28a4c2a
--- /dev/null
+++ b/perl-install/partition_table/lvm.pm
@@ -0,0 +1,38 @@
+package partition_table::lvm; # $Id: $
+
+# LVM on full disk
+
+use diagnostics;
+use strict;
+
+our @ISA = qw(partition_table::readonly);
+
+use common;
+use partition_table::readonly;
+use fs::type;
+
+sub _parts {
+    my ($hd) = @_;
+
+    my $part = { size => $hd->{totalsectors}, device => $hd->{device} };
+    add2hash($part, fs::type::type_name2subpart('Linux Logical Volume Manager'));
+
+    [ $part ];
+}
+
+sub read_primary {
+    my ($hd) = @_;
+
+    my $type = fs::type::type_subpart_from_magic($hd);
+
+    $type && $type->{type_name} eq 'Linux Logical Volume Manager' or return;
+
+    partition_table::lvm->initialize($hd);
+    1;
+}
+
+sub initialize {
+    my ($class, $hd) = @_;
+
+    partition_table::readonly::initialize($class, $hd, _parts($hd));    
+}