6 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm
index d01f0ad7e..9421eae17 100644
--- a/perl-install/partition_table/bsd.pm
+++ b/perl-install/partition_table/bsd.pm
@@ -61,7 +61,7 @@ my $offset = 0x40;
 
 sub use_pt_type { 1 }
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 688626d7b..c12b7cba4 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -197,7 +197,7 @@ sub set_best_geometry_for_the_partition_table {
     }
 }
 
-sub read {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
diff --git a/perl-install/partition_table/empty.pm b/perl-install/partition_table/empty.pm
index b34b9210c..e5d3c5685 100644
--- a/perl-install/partition_table/empty.pm
+++ b/perl-install/partition_table/empty.pm
@@ -17,7 +17,7 @@ use partition_table;
 use c;
 
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index ba9307df3..81967d07e 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -138,7 +138,7 @@ sub read_partitionEntries {
     \@pt;
 }
 
-sub read {
+sub read_one {
     my ($hd, $sector) = @_;
 
     my $l = partition_table::dos::read($hd, $sector);
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index 779799188..2922bc7a3 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -98,7 +98,7 @@ sub adjustEnd($$) {
     my ($_hd, $_part) = @_;
 }
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;
 
diff --git a/perl-install/partition_table/sun.pm b/perl-install/partition_table/sun.pm
index d5d29e27b..1532c04a9 100644
--- a/perl-install/partition_table/sun.pm
+++ b/perl-install/partition_table/sun.pm
@@ -73,7 +73,7 @@ sub compute_crc($) {
     $crc;
 }
 
-sub read($$) {
+sub read_one {
     my ($hd, $sector) = @_;
     my $tmp;