From c9e1918760165314996e15654a842eafd280e7b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Aug 2002 12:30:17 +0000
Subject: (is_same_hd): add ugly support for davfs devices (http://...)
 comparison without the ending "/"

---
 perl-install/fsedit.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 9765da02e..6efcffd0c 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -313,6 +313,9 @@ sub is_same_hd {
     my ($hd1, $hd2) = @_;
     if ($hd1->{major} && $hd2->{major}) {
 	$hd1->{major} == $hd2->{major} && $hd1->{minor} == $hd2->{minor};
+    } elsif (my ($s1) = $hd1->{device} =~ m|https?://(.+?)/*$|) {
+	my ($s2) = $hd2->{device} =~ m|https?://(.+?)/*$|;
+	$s1 eq $s2;
     } else {
 	$hd1->{device} eq $hd2->{device};
     }
-- 
cgit v1.2.1