Made syncqt collapse redundant ".." sections in paths.

2011-01-03 19:19:39 +01:00 · 2011-01-03 19:19:39 +01:00 · c7e91df28e
commit c7e91df28e
parent 95be70778a
1 changed files with 2 additions and 0 deletions
--- a/bin/syncqt
+++ b/bin/syncqt
@ -325,6 +325,8 @@ sub fixPaths {
    return basename($file) if($file_dir eq $dir);

    #guts
+    while ($file_dir =~ s,/[^/]+/\.\./,/,) {}
+    while ($dir =~ s,/[^/]+/\.\./,/,) {}
    my $match_dir = 0;
    for(my $i = 1; $i < length($file_dir); $i++) {
        my $slash = index($file_dir, "/", $i);