diff options
author | Olivier Blin <oblin@mandriva.com> | 2008-03-13 12:37:13 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2008-03-13 12:37:13 +0000 |
commit | 75eae589114bc69f6de16821065d1231769c8f24 (patch) | |
tree | 8b41ddba1edde22eda55fe72a949851223b73c3a /transfugdrake.pm | |
parent | 481a9770fc38606a6a3aba14d7e09e924dc1d806 (diff) | |
download | transfugdrake-75eae589114bc69f6de16821065d1231769c8f24.tar transfugdrake-75eae589114bc69f6de16821065d1231769c8f24.tar.gz transfugdrake-75eae589114bc69f6de16821065d1231769c8f24.tar.bz2 transfugdrake-75eae589114bc69f6de16821065d1231769c8f24.tar.xz transfugdrake-75eae589114bc69f6de16821065d1231769c8f24.zip |
fix matching windows system path with ntfs-3g (i.e. really be case-insensitive)
Diffstat (limited to 'transfugdrake.pm')
-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; } |