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.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/partition_table.pm')

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 632085b26..7f309d329 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -245,14 +245,14 @@ sub read_one($$) {
 		# perl_checker: require partition_table::sun
 		require "partition_table/$_.pm";
 		bless $hd, "partition_table::$_";
-		($pt, $info) = $hd->read($sector);
+		($pt, $info) = $hd->read_one($sector);
 		log::l("found a $_ partition table on $hd->{file} at sector $sector");
 	    };
 	    $@ or last;
 	}
     } else {
 	#- keep current blessed object for that, this means it is neccessary to read sector 0 before.
-	($pt, $info) = $hd->read($sector);
+	($pt, $info) = $hd->read_one($sector);
     }
 
     my @extended = $hd->hasExtended ? grep { isExtended($_) } @$pt : ();
-- 
cgit v1.2.1