diff options
-rwxr-xr-x | transfugdrake.pm | 2 |
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; } |