* Fix bug #20791

git-svn-id: trunk@19795 -
2025-09-09 10:49:23 +02:00 · 2011-12-10 13:32:17 +00:00 · 2011-12-10 13:32:17 +00:00 · 3e3852a489
commit 3e3852a489
parent 631528a08b
1 changed files with 1 additions and 1 deletions
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/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