diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-18 14:10:29 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-18 14:10:29 +0000 |
commit | 5ad28ed89436c62bc3f7e995e95f71e10afd8326 (patch) | |
tree | 3f74df85bea3683eb8d05d2476230e6a8fb48f8f /perl-install | |
parent | d1d9877c184e326f0114dc9e20f8b162f97998c2 (diff) | |
download | drakx-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.pm | 13 |
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)); +} |