diff options
Diffstat (limited to 'rtl/netware/sysfile.inc')
| -rw-r--r-- | rtl/netware/sysfile.inc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rtl/netware/sysfile.inc b/rtl/netware/sysfile.inc index 8c85d29c5b..ad7a723470 100644 --- a/rtl/netware/sysfile.inc +++ b/rtl/netware/sysfile.inc @@ -264,7 +264,10 @@ Begin FileRec(f).Handle := _open(p,oflags,438); end; IF FileRec(f).Handle < 0 THEN - Errno2Inoutres + begin + Errno2Inoutres; + FileRec(f).mode:=fmclosed; + end ELSE InOutRes := 0; End; |