Browse Source

FIX: ExcludeBackPathDelimiter with drive root

Alexander Koblov 3 years ago
parent
commit
ff2732ac56
1 changed files with 1 additions and 1 deletions
  1. 1 1
      components/doublecmd/dcstrutils.pas

+ 1 - 1
components/doublecmd/dcstrutils.pas

@@ -773,7 +773,7 @@ var
   L: Integer;
 begin
   L:= Length(Path);
-  if (L > 1) and (Path[L] in AllowDirectorySeparators) then
+  if (L > 1) and (Path[L] in AllowDirectorySeparators) and (Path[L - 1] <> DriveSeparator) then
     Result:= Copy(Path, 1, L - 1)
   else
     Result:= Path;