summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-20 06:01:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-20 06:01:06 +0000
commitbeff4cd64f0d64a11dd4d44bef7b2567d3a57516 (patch)
treefe4914172b883bf9d7f9e61f0440cfb34db8c59b /perl-install/fs
parent8c84f730c5e0f572d9f9c783b5bade2617576ea5 (diff)
downloaddrakx-beff4cd64f0d64a11dd4d44bef7b2567d3a57516.tar
drakx-beff4cd64f0d64a11dd4d44bef7b2567d3a57516.tar.gz
drakx-beff4cd64f0d64a11dd4d44bef7b2567d3a57516.tar.bz2
drakx-beff4cd64f0d64a11dd4d44bef7b2567d3a57516.tar.xz
drakx-beff4cd64f0d64a11dd4d44bef7b2567d3a57516.zip
- 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)
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;