From a384dec9ada016af7631ecb2b29bd972045dc9b2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 3 Sep 2001 12:26:27 +0000 Subject: fix mtab reading and pseudo-device use --- perl-install/fsedit.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install/fsedit.pm') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 42a6b7311..2c96c39fc 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -165,8 +165,9 @@ sub hds { } - my $l = { %{ empty_all_hds() }, hds => \@hds, lvms => \@lvms, raids => \@raids }; - $l; + my $all_hds = { %{ empty_all_hds() }, hds => \@hds, lvms => \@lvms, raids => \@raids }; + fs::get_major_minor(get_all_fstab($all_hds)); + $all_hds; } @@ -200,7 +201,7 @@ sub readProcPartitions { foreach my $part (@parts) { my $dev; if ($devfs_like) { - $dev = -e "/dev/$part->{dev}" ? $part->{dev} : sprintf("%x%02x", $part->{major}, $part->{minor}); + $dev = -e "/dev/$part->{dev}" ? $part->{dev} : sprintf("0x%x%02x", $part->{major}, $part->{minor}); $part->{rootDevice} = $devfs2normal{dirname($part->{dev}) . '/disc'}; } else { $dev = $part->{dev}; -- cgit v1.2.1