1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index ef638f2b6..78e5469cd 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -1,4 +1,4 @@
-package partition_table::mac; # $Id$
+package partition_table::mac;
 
 use diagnostics;
 #use strict;   - fixed other PPC code to comply, but program bails on empty partition table - sbenedict
@@ -79,6 +79,8 @@ $p_format = join '', @$p_format;
 my $magic = 0x4552;
 my $pmagic = 0x504D;
 
+sub use_pt_type { 1 }
+
 sub first_usable_sector { 1 }
 
 sub adjustStart($$) {
@@ -96,7 +98,7 @@ sub adjustEnd($$) {
     my ($_hd, $_part) = @_;
 }
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
@@ -191,7 +193,7 @@ sub read($$) {
 }
 
 sub write($$$;$) {
-    my ($hd, $sector, $pt, $info) = @_;
+    my ($hd, $_handle, $sector, $pt, $info) = @_;
 
     #- handle testing for writing partition table on file only!
     my $F;
@@ -355,8 +357,8 @@ sub info {
     $info;
 }
 
-sub clear_raw {
-    my ($hd) = @_;
+sub initialize {
+    my ($class, $hd) = @_;
     my @oldraw = @{$hd->{primary}{raw}};
     my $pt = { raw => [ ({}) x 63 ], info => info($hd) };
 
@@ -387,7 +389,8 @@ sub clear_raw {
     }
     @{$pt->{info}{ddMap}} = @{$hd->{primary}{info}{ddMap}};
 
-    $pt;
+    $hd->{primary} = $pt;
+    bless $hd, $class;
 }
 
 1;