From 75eae589114bc69f6de16821065d1231769c8f24 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 13 Mar 2008 12:37:13 +0000
Subject: fix matching windows system path with ntfs-3g (i.e. really be
 case-insensitive)

---
 transfugdrake.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'transfugdrake.pm')

diff --git a/transfugdrake.pm b/transfugdrake.pm
index a230586..9df4764 100755
--- a/transfugdrake.pm
+++ b/transfugdrake.pm
@@ -9,7 +9,7 @@ sub get_insensitive_path {
     my $full_path = $prefix;
     my @path_l = split("/", $path);
     foreach my $i (@path_l) {
-	my $e = find { member($_, lc($i), uc($i)) } all($full_path)
+	my $e = find { lc($_) eq lc($i) } all($full_path)
 	    or return;
 	$full_path .= "/" . $e;
     }
-- 
cgit v1.2.1