- change prototype of fs::get_major_minor()

- use it in fs::proc_partitions::compare()
  (not useful at the moment, but it may help in the future)

1 files changed, 4 insertions, 2 deletions

diff --git a/perl-install/fs/proc_partitions.pm b/perl-install/fs/proc_partitions.pm
index 17484eaa8..1cb3acfd1 100644
--- a/perl-install/fs/proc_partitions.pm
+++ b/perl-install/fs/proc_partitions.pm
@@ -23,9 +23,11 @@ sub read {
 
     my $devfs_like = any { $_->{dev} =~ m|/disc$| } @$disks;
 
+    fs::get_major_minor($hds);
+
     my %devfs2normal = map {
-	my (undef, $major, $minor) = devices::entry($_->{device});
-	my $disk = find { $_->{major} == $major && $_->{minor} == $minor } @$disks;
+	my $hd = $_;
+	my $disk = find { $_->{major} == $hd->{major} && $_->{minor} == $hd->{minor} } @$disks;
 	$disk->{dev} => $_->{device};
     } @$hds;