summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/partition_table/lvm.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/partition_table/lvm.pm b/perl-install/partition_table/lvm.pm
index e82d026e1..5378d0bb2 100644
--- a/perl-install/partition_table/lvm.pm
+++ b/perl-install/partition_table/lvm.pm
@@ -5,9 +5,10 @@ package partition_table::lvm; # $Id: $
use diagnostics;
use strict;
-1;
+our @ISA = qw(partition_table::readonly);
use common;
+use partition_table::readonly;
use fs::type;
use lvm;
@@ -28,8 +29,12 @@ sub read_primary {
$type && $type->{pt_type} == $wanted->{pt_type} or return;
- require partition_table::readonly;
- partition_table::readonly->initialize($hd, _parts($hd));
-
+ partition_table::lvm->initialize($hd);
1;
}
+
+sub initialize {
+ my ($class, $hd) = @_;
+
+ partition_table::readonly::initialize($class, $hd, _parts($hd));
+}