summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 7251913c6..2c98bbd92 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -144,7 +144,7 @@ sub hds {
my $chunks = $mdstat[$i+1] =~ /([^ ]+) chunks/ ? $1 : "64k";
my @disks;
foreach my $part (@parts) {
- if (grep /$part->{device}/, @thisparts) {
+ if (grep { readlink("/dev/$part->{device}") eq $_ || $part->{device} eq $_ } @thisparts) {
$part->{raid} = $nb;
delete $part->{mntpoint};
push @disks, $part;