summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/dos.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-18 10:23:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-18 10:23:17 +0000
commitce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6 (patch)
tree8ecd87a34987081dc1ccd9fd596257fe0ae1f51f /perl-install/partition_table/dos.pm
parentd4dd27cd5b6a8c23baa75a0bb0eefaa6b0fa39f1 (diff)
downloaddrakx-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar
drakx-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar.gz
drakx-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar.bz2
drakx-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar.xz
drakx-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.zip
transform ->clear_raw into the more generic ->initialize
(useful to have a more standard partition_table::lvm)
Diffstat (limited to 'perl-install/partition_table/dos.pm')
-rw-r--r--perl-install/partition_table/dos.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 43243259d..688626d7b 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -247,6 +247,12 @@ sub write {
1;
}
-sub clear_raw { { raw => [ ({}) x $nb_primary ] } }
+sub empty_raw { { raw => [ ({}) x $nb_primary ] } }
+
+sub initialize {
+ my ($class, $hd) = @_;
+ $hd->{primary} = empty_raw();
+ bless $hd, $class;
+}
1;