Explorar o código

* call UniqueString for Result in fpkmkunit.fixpath as suggest by Henry Vermaak, resolves #20015

git-svn-id: trunk@18269 -
florian %!s(int64=14) %!d(string=hai) anos
pai
achega
386585ab66
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 0
packages/fpmkunit/src/fpmkunit.pp

@@ -1744,6 +1744,7 @@ begin
   Result:=APath;
   If (result<>'') then
     begin
+      UniqueString(Result);
       P:=PChar(Result);
       While (P^<>#0) do
         begin