summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/gpt.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/gpt.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/gpt.pm')
-rw-r--r--perl-install/partition_table/gpt.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index de83dadf8..ba9307df3 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -184,7 +184,7 @@ sub write {
{
# write the PMBR
- my $pmbr = partition_table::dos::clear_raw();
+ my $pmbr = partition_table::dos::empty_raw();
$pmbr->{raw}[0] = { pt_type => 0xee, local_start => $info->{myLBA}, size => $info->{alternateLBA} - $info->{myLBA} + 1 };
partition_table::dos::write($hd, $sector, $pmbr->{raw});
}
@@ -258,9 +258,10 @@ sub info {
};
}
-sub clear_raw {
- my ($hd) = @_;
- { raw => [], info => info($hd) };
+sub initialize {
+ my ($class, $hd) = @_;
+ $hd->{primary} = { raw => [], info => info($hd) };
+ bless $hd, $class;
}
1;