summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-18 14:10:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-18 14:10:29 +0000
commit5ad28ed89436c62bc3f7e995e95f71e10afd8326 (patch)
tree3f74df85bea3683eb8d05d2476230e6a8fb48f8f /perl-install
parentd1d9877c184e326f0114dc9e20f8b162f97998c2 (diff)
downloaddrakx-5ad28ed89436c62bc3f7e995e95f71e10afd8326.tar
drakx-5ad28ed89436c62bc3f7e995e95f71e10afd8326.tar.gz
drakx-5ad28ed89436c62bc3f7e995e95f71e10afd8326.tar.bz2
drakx-5ad28ed89436c62bc3f7e995e95f71e10afd8326.tar.xz
drakx-5ad28ed89436c62bc3f7e995e95f71e10afd8326.zip
it's better to inheritate from partition_table::readonly, that way we can do
->isa('partition_table::lvm')
Diffstat (limited to 'perl-install')
-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));
+}