Explorar o código

* Fix do_erase which was wrong with inoutres setting

peter %!s(int64=23) %!d(string=hai) anos
pai
achega
e0625ccb5d
Modificáronse 1 ficheiros con 8 adicións e 3 borrados
  1. 8 3
      rtl/linux/osmain.inc

+ 8 - 3
rtl/linux/osmain.inc

@@ -180,8 +180,10 @@ Begin
      InOutRes := 2;
      exit;
    end;
-  Fpunlink(p);
-  Errno2Inoutres;
+  if Fpunlink(p)<0 then
+   Errno2Inoutres
+  Else
+   InOutRes:=0;
 End;
 
 { truncate at a given position }
@@ -614,7 +616,10 @@ End.
 *)
 {
  $Log$
- Revision 1.3  2002-12-23 22:23:43  peter
+ Revision 1.4  2002-12-24 19:45:40  peter
+   * Fix do_erase which was wrong with inoutres setting
+
+ Revision 1.3  2002/12/23 22:23:43  peter
    * fixed Getdir to not set Inoutres
    * broken symlinks are now ignored in getdir instead of aborting
      the search