Explorar o código

* Fix bug #20791

git-svn-id: trunk@19795 -
michael %!s(int64=13) %!d(string=hai) anos
pai
achega
3e3852a489
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-passrc/src/pscanner.pp

+ 1 - 1
packages/fcl-passrc/src/pscanner.pp

@@ -521,7 +521,7 @@ begin
       Inc(I);
       end;
     // search in BaseDirectory
-    if BaseDirectory<>'' then
+    if (Result=Nil) and (BaseDirectory<>'') then
       begin
       FN:=SearchLowUpCase(BaseDirectory+AName);
 	  try