Unix.st
changeset 855 2de3c842c687
parent 843 d36a3d5ad95a
child 914 d00401a9450e
--- a/Unix.st	Fri Jan 12 16:22:08 1996 +0100
+++ b/Unix.st	Fri Jan 12 16:27:52 1996 +0100
@@ -3524,7 +3524,12 @@
      After enabling, these exceptions will send the message 
      'signalInterrupt' to the SignalInterruptHandler object."
 
-    self enableSignal:(self sigPIPE).
+    "/ leads to trouble ...
+"/    self enableSignal:(self sigPIPE).
+
+    "/ ... better to ignore them, and let it be handled as a writeErrorSignal.
+    self disableSignal:(self sigPIPE).
+
     self enableSignal:(self sigBUS).
     self enableSignal:(self sigSEGV)
 !
@@ -6302,6 +6307,13 @@
 		    RETURN ( _MKSMALLINT(i) );
 		}
 	    }
+	} else {
+	    if (ret < 0) {
+		if (errno != EINTR) {
+		    printf("select errno = %d\n", errno);
+		    OperatingSystem_LastErrorNumber = _MKSMALLINT(errno);
+		}
+	    }
 	}
 
 	/*
@@ -6367,6 +6379,6 @@
 !OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.117 1996-01-06 17:49:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.118 1996-01-12 15:27:52 cg Exp $'
 ! !
 OperatingSystem initialize!