head	1.2;
access;
symbols
	RELEASE_5_4_0:1.1
	RELEASE_4_11_0:1.1
	RELEASE_5_3_0:1.1
	RELEASE_4_10_0:1.1
	RELEASE_5_2_1:1.1
	RELEASE_5_2_0:1.1
	RELEASE_4_9_0:1.1
	RELEASE_5_1_0:1.1
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1;
locks; strict;
comment	@# @;


1.2
date	2005.07.17.17.03.18;	author pav;	state dead;
branches;
next	1.1;

1.1
date	2002.03.28.09.03.29;	author jkoshy;	state Exp;
branches;
next	;


desc
@@


1.2
log
@- Update to 4.0.10
- Transfer maintainership to submitter

PR:		ports/83547
Submitted by:	Aldert Nooitgedagt <aldert@@nooitgedagt.net>
Approved by:	Matthew Braithwaite <mab@@red-bean.com> (maintainer)
@
text
@--- tcl8.3.2/unix/tclUnixPipe.c	Thu Aug 17 17:46:15 2000
+++ tcl8.3.2/unix/tclUnixPipe.c.new	Fri Feb 15 12:30:19 2002
@@@@ -950,12 +950,16 @@@@
      * nonblocking, the read will never block.
      */
 
-    bytesRead = read(GetFd(psPtr->inFile), buf, (size_t) toRead);
-    if (bytesRead > -1) {
-        return bytesRead;
+    while (1) {
+        bytesRead = read(GetFd(psPtr->inFile), buf, (size_t) toRead);
+        if (bytesRead > -1) {
+           return bytesRead;
+        }
+        if ( errno != EINTR ) {
+           *errorCodePtr = errno;
+           return -1;
+        }
     }
-    *errorCodePtr = errno;
-    return -1;
 }
 
 /*
@


1.1
log
@Upgrade to v3.4.2.

PR:		ports/35100
Submitted by:	Jose Abelardo Martinez <jamartinez@@altern.org>
@
text
@@

