瀏覽代碼

* Do not try to check the fileage of files that are not found

git-svn-id: trunk@29005 -
joost 10 年之前
父節點
當前提交
2acf86655f
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fpmkunit/src/fpmkunit.pp

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

@@ -5942,8 +5942,8 @@ begin
         end;
         end;
     end;
     end;
 
 
-  // Check main source
-  If not Result then
+  // Check main source, only if the TargetSourceFileName is found
+  If not Result and (ATarget.TargetSourceFileName<>'') then
     begin
     begin
       TFN := AddPathPrefix(APackage,ATarget.TargetSourceFileName);
       TFN := AddPathPrefix(APackage,ATarget.TargetSourceFileName);
       if FileExists(TFN) then
       if FileExists(TFN) then