X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/548d69a4ee38cc59612e787f479ac198d5c37741..dff53f21c8fccc7585f785fec893a5773e78a1b6:/modules/Tool.pm diff --git a/modules/Tool.pm b/modules/Tool.pm index e3056c5..dc11571 100644 --- a/modules/Tool.pm +++ b/modules/Tool.pm @@ -72,7 +72,7 @@ sub check_path($$) # Check if the path is above the root directory return if(index($path,$root) != 0); - return if($first eq $root && $last =~ m!^(/|\\)?\.\.(/|\\)?$!); + return if($first eq $root && ($last eq '..' || ($^O eq 'MSWin32' && $last =~ m!^\.\.+$!))); # Create short path name