summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/proc_partitions.pm6
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;