From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 17 May 2003 13:38:35 +0000 (+0000)
Subject: Spotted a bare close() where PerlLIO_close() seems correct.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a521f284323c7ef06cccf453146cc13958cfd6d;p=p5sagit%2Fp5-mst-13.2.git

Spotted a bare close() where PerlLIO_close() seems correct.

p4raw-id: //depot/perlio@19543
---

diff --git a/perlio.c b/perlio.c
index e0cb501..cab4243 100644
--- a/perlio.c
+++ b/perlio.c
@@ -432,7 +432,7 @@ PerlIO_findFILE(PerlIO *pio)
 
 /*
  * Why is this here - not in perlio.h?  RMB
- */ 
+ */
 void PerlIO_debug(const char *fmt, ...)
 #ifdef CHECK_FORMAT
     __attribute__ ((__format__(__printf__, 1, 2)))
@@ -2946,7 +2946,7 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
 	}
 	if (dupfd) {
 	    PerlLIO_dup2(dupfd,fd);
-	    close(dupfd);
+	    PerlLIO_close(dupfd);
 	}
 	return result;
     }