From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 20 Jan 2003 17:37:35 +0000 (+0000)
Subject: Retract #18154 (integrate of perlio #18507), not enough
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5fc90066d16fe0d0a69d1a8bcc8acbe64a4d8c74;p=p5sagit%2Fp5-mst-13.2.git

Retract #18154 (integrate of perlio #18507), not enough
threadsafety.

p4raw-id: //depot/perl@18521
---

diff --git a/perlio.c b/perlio.c
index 2d5785b..de6950b 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2708,13 +2708,6 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
 	    }
 	    else {
             	/* Tricky - must fclose(stdio) to free memory but not close(fd) */ 
-#ifdef USE_THREADS
-    	    	/* Sarathy pointed out that another thread could reuse
-		   fd after fclose() but before we dup2() below
-		   so take out a MUTEX to shut them out 
-		 */  
-    	    	MUTEX_LOCK(&PerlIO_mutex);
-#endif
 	    	dupfd = PerlLIO_dup(fd);
 	    }
 	}    
@@ -2732,14 +2725,12 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
 	    /* We need to restore fd from the saved copy */
 	    if (PerlLIO_dup2(dupfd,fd) != fd)
 	      result = -1;
-#ifdef USE_THREADS
-    	    MUTEX_UNLOCK(&PerlIO_mutex);
-#endif
 	    if (PerlLIO_close(dupfd) != 0)
 	      result = -1; 
 	}
 	return result;
     } 
+
 }