paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 03:59:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package po files: fixed check for read only output directory

Browse Source 
git-svn-id: trunk@15925 -
This commit is contained in:
mattias 2008-07-31 10:28:59 +00:00
parent 09821d6e7d
commit dbbebe8dd7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/idetranslations.pas
View File

@ -192,7 +192,8 @@ begin
Result:=true;
if (RSTDirectory='') then exit;// nothing to do
RSTDirectory:=AppendPathDelim(RSTDirectory);
if not DirectoryIsWritableCached(RSTDirectory) then begin
PODirectory:=AppendPathDelim(PODirectory);
if not DirectoryIsWritableCached(PODirectory) then begin
// only update writable directories
DebugLn(['ConvertRSTFiles skipping read only directory ',RSTDirectory]);
exit(true);