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

This commit is contained in:
axis 2011-01-03 19:19:39 +01:00
parent 95be70778a
commit c7e91df28e

View File

@ -325,6 +325,8 @@ sub fixPaths {
return basename($file) if($file_dir eq $dir); return basename($file) if($file_dir eq $dir);
#guts #guts
while ($file_dir =~ s,/[^/]+/\.\./,/,) {}
while ($dir =~ s,/[^/]+/\.\./,/,) {}
my $match_dir = 0; my $match_dir = 0;
for(my $i = 1; $i < length($file_dir); $i++) { for(my $i = 1; $i < length($file_dir); $i++) {
my $slash = index($file_dir, "/", $i); my $slash = index($file_dir, "/", $i);