summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mageia.org>2011-05-14 14:29:53 +0000
committerPascal Terjan <pterjan@mageia.org>2011-05-14 14:29:53 +0000
commit7c43409d9ff37c0df4d9b6d6da8491ff84b3bce2 (patch)
treec36e881b8e2c1f95982a08189ea690fa5219ae74 /perl-install/fs
parent4dc2532f2bb358e28915571f71195a0f88483264 (diff)
downloaddrakx-backup-do-not-use-7c43409d9ff37c0df4d9b6d6da8491ff84b3bce2.tar
drakx-backup-do-not-use-7c43409d9ff37c0df4d9b6d6da8491ff84b3bce2.tar.gz
drakx-backup-do-not-use-7c43409d9ff37c0df4d9b6d6da8491ff84b3bce2.tar.bz2
drakx-backup-do-not-use-7c43409d9ff37c0df4d9b6d6da8491ff84b3bce2.tar.xz
drakx-backup-do-not-use-7c43409d9ff37c0df4d9b6d6da8491ff84b3bce2.zip
match partitions when one of them as device_alias to the device of the other one
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/get.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/fs/get.pm b/perl-install/fs/get.pm
index 8e49e91fa..461984431 100644
--- a/perl-install/fs/get.pm
+++ b/perl-install/fs/get.pm
@@ -144,7 +144,10 @@ sub is_same_hd {
} else {
$hd1->{device_LABEL} && $hd2->{device_LABEL} && $hd1->{device_LABEL} eq $hd2->{device_LABEL}
|| $hd1->{device_UUID} && $hd2->{device_UUID} && $hd1->{device_UUID} eq $hd2->{device_UUID}
- || $hd1->{device} && $hd2->{device} && $hd1->{device} eq $hd2->{device};
+ || $hd1->{device} && $hd2->{device} && $hd1->{device} eq $hd2->{device}
+ || $hd1->{device} && $hd2->{device_alias} && $hd1->{device} eq $hd2->{device_alias}
+ || $hd1->{device_alias} && $hd2->{device} && $hd1->{device_alias} eq $hd2->{device}
+ || $hd1->{device_alias} && $hd2->{device_alias} && $hd1->{device_alias} eq $hd2->{device_alias};
}
}