Procházet zdrojové kódy

* Fix bug #34241 using provided suggestion by Christo Crause

git-svn-id: trunk@39713 -
michael před 7 roky
rodič
revize
2d1ea8070e
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -9039,7 +9039,7 @@ Var
 begin
   N:=FixPath(Value, False);
   if ExtractFileExt(N)='' then
-    ChangeFileExt(N,IncExt);
+    N:=ChangeFileExt(N,IncExt);
   Result:=inherited Add(N,CPUs,OSes) as TDependency;
   Result.FDependencyType:=depInclude;
 end;