X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/ce10babcb8d07587e9bf95496e22e9b4e801f207..2b7efc613fb570f3cced7985419850bdd5668047:/modules/Tool.pm diff --git a/modules/Tool.pm b/modules/Tool.pm index 3ef4a10..16d5d72 100644 --- a/modules/Tool.pm +++ b/modules/Tool.pm @@ -68,8 +68,9 @@ sub check_path($$) $first = abs_path($first); my $last = file_name($path); + $last = '' if($last eq '.'); - if(-d $first.'/'.$last && (not -l $first.'/'.$last) && -r $first.'/'.$last && -x $first.'/'.$last) + if($last eq '..' || ($^O eq 'MSWin32' && $last =~ m!^\.\.\.+$!)) { $first = abs_path($first.'/'.$last); $last = '';