From e31295b058b23831d5ceced25adc058df97704d3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Sep 2007 10:32:56 +0000
Subject: rename ->read to ->read_one

---
 perl-install/partition_table/bsd.pm   | 2 +-
 perl-install/partition_table/dos.pm   | 2 +-
 perl-install/partition_table/empty.pm | 2 +-
 perl-install/partition_table/gpt.pm   | 2 +-
 perl-install/partition_table/mac.pm   | 2 +-
 perl-install/partition_table/sun.pm   | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install/partition_table')

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;
 
-- 
cgit v1.2.1