1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/partition_table/empty.pm b/perl-install/partition_table/empty.pm
index b34b9210c..fe4ad4317 100644
--- a/perl-install/partition_table/empty.pm
+++ b/perl-install/partition_table/empty.pm
@@ -1,7 +1,7 @@
-package partition_table::empty; # $Id$
+package partition_table::empty;
 
 #- this is a mainly dummy partition table. If we find it's empty, we just call -
-#- zero_MBR which will take care of bless'ing us to the partition table type best
+#- ->clear which will take care of bless'ing us to the partition table type best
 #- suited
 
 
@@ -17,7 +17,7 @@ use partition_table;
 use c;
 
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
@@ -28,7 +28,7 @@ sub read($$) {
     sysread $F, $tmp, 1024 or die "error reading magic number on disk $hd->{device}";
     $tmp eq substr($tmp, 0, 1) x 1024 or die "bad magic number on disk $hd->{device}";
 
-    partition_table::raw::zero_MBR($hd);
+    partition_table::initialize($hd);
 
     $hd->{primary}{raw}, $hd->{primary}{info};
 }