[fpc-devel]FileIsReadOnly problem

[Colin Western]

The sense of the result of FileIsReadOnly seems to be inverted - see 
attched patch
Colin
diff -uNr fpc/rtl/unix/sysutils.pp fpc.w/rtl/unix/sysutils.pp
--- fpc/rtl/unix/sysutils.pp	2004-04-20 20:15:42.000000000 +0100
+++ fpc.w/rtl/unix/sysutils.pp	2004-04-24 19:07:08.000000000 +0100
@@ -321,7 +321,7 @@
 Function FileIsReadOnly(const FileName: String): Boolean; 
  
 begin
-  Result := fpAccess(PChar(FileName),W_OK)= 0;
+  Result := fpAccess(PChar(FileName),W_OK)<>0;
 end;  
 
 {****************************************************************************