diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-09-18 10:23:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-09-18 10:23:17 +0000 |
| commit | ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6 (patch) | |
| tree | 8ecd87a34987081dc1ccd9fd596257fe0ae1f51f /perl-install/partition_table/gpt.pm | |
| parent | d4dd27cd5b6a8c23baa75a0bb0eefaa6b0fa39f1 (diff) | |
| download | drakx-backup-do-not-use-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar drakx-backup-do-not-use-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar.gz drakx-backup-do-not-use-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar.bz2 drakx-backup-do-not-use-ce9f2f3dc52173a581d8a6c2ab41e2911d4a47e6.tar.xz drakx-backup-do-not-use-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.pm | 9 |
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; |