fix matching windows system path with ntfs-3g (i.e. really be case-insensitive)

1 files changed, 1 insertions, 1 deletions

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;
     }