mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-26 11:12:14 -05:00
Fix bug #21.
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@380 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
parent
c5faba2cb5
commit
4a0e4dde3b
@ -7,7 +7,7 @@ interface
|
|||||||
uses
|
uses
|
||||||
Classes, SysUtils, httpsend,blcksock
|
Classes, SysUtils, httpsend,blcksock
|
||||||
{$IFDEF LINUX}
|
{$IFDEF LINUX}
|
||||||
,unixutils // for chmod
|
,BaseUnix
|
||||||
{$ENDIF};
|
{$ENDIF};
|
||||||
|
|
||||||
type
|
type
|
||||||
@ -219,7 +219,8 @@ begin
|
|||||||
RenameFile(FBasePath + FReplacementFile +'_', FBasePath + FReplacementFile);
|
RenameFile(FBasePath + FReplacementFile +'_', FBasePath + FReplacementFile);
|
||||||
DeleteFile(FBasePath + FReplacementFile+'_old_');
|
DeleteFile(FBasePath + FReplacementFile+'_old_');
|
||||||
{$IFDEF LINUX}
|
{$IFDEF LINUX}
|
||||||
Chmod(FBasePath + FReplacementFile, PermissionBits[0] or PermissionBits[1] or PermissionBits[2]);
|
fpchmod(FBasePath + FReplacementFile, S_IRUSR or S_IWUSR or S_IXUSR or S_IRGRP
|
||||||
|
or S_IXGRP or S_IROTH or S_IXOTH);
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user