From ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Sep 2007 10:23:17 +0000 Subject: transform ->clear_raw into the more generic ->initialize (useful to have a more standard partition_table::lvm) --- perl-install/partition_table/bsd.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'perl-install/partition_table/bsd.pm') diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm index 560a75fd9..d01f0ad7e 100644 --- a/perl-install/partition_table/bsd.pm +++ b/perl-install/partition_table/bsd.pm @@ -140,9 +140,11 @@ sub info { }; } -sub clear_raw { - my ($hd) = @_; - { raw => [ ({}) x $nb_primary ], info => info($hd) }; +sub initialize { + my ($class, $hd) = @_; + $hd->{primary} = { raw => [ ({}) x $nb_primary ], info => info($hd) }; + bless $hd, $class; +; } sub first_usable_sector { 2048 } -- cgit v1.2.1