1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/partition_table/sun.pm b/perl-install/partition_table/sun.pm
index 54e734ca8..47d702621 100644
--- a/perl-install/partition_table/sun.pm
+++ b/perl-install/partition_table/sun.pm
@@ -1,4 +1,4 @@
-package partition_table::sun; # $Id$
+package partition_table::sun; # $Id: sun.pm 228416 2007-09-18 10:32:56Z pixel $
 
 use diagnostics;
 use strict;
@@ -39,6 +39,8 @@ my $magic = 0xDABE;
 my $nb_primary = 8;
 my $offset = 0;
 
+sub use_pt_type { 1 }
+
 sub adjustStart($$) {
     my ($hd, $part) = @_;
     my $end = $part->{start} + $part->{size};
@@ -71,7 +73,7 @@ sub compute_crc($) {
     $crc;
 }
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
@@ -184,7 +186,7 @@ sub info {
     $info;
 }
 
-sub clear_raw {
+sub initialize {
     my ($hd) = @_;
     my $pt = { raw => [ ({}) x $nb_primary ], info => info($hd) };
 
@@ -196,7 +198,8 @@ sub clear_raw {
 	size => $hd->{geom}{cylinders} * $hd->cylinder_size,
     };
 
-    $pt;
+    $hd->{primary} = $pt;
+    bless $hd, 'partition::sun';
 }
 
 1;