* fixed exceptionhandling scanner (2nd attempt to load file was not in an try..except). Bug reported on German laz forum

git-svn-id: trunk@16333 -

packages/fcl-passrc/src/pscanner.pp

@@ -501,8 +501,12 @@ begin
     if BaseDirectory<>'' then
       begin
       FN:=SearchLowUpCase(BaseDirectory+AName);
-      If (FN<>'') then
+	  try
+      If (FN<>'') then   
         Result := TFileLineReader.Create(FN);
+      except 
+        Result:=nil;
+        end;		
       end;
     end;
 end;