From: Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com>
Date: Tue, 27 Sep 2005 15:18:00 +0000 (+0200)
Subject: AW: [perl #36291] incorrect $! from open ">&nr" with too many open files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b42969c054c571b3b721d68818184e59ca761058;p=p5sagit%2Fp5-mst-13.2.git

AW: [perl #36291] incorrect $! from open ">&nr" with too many open files
From: "Dintelmann, Peter" <Peter.Dintelmann@Dresdner-Bank.com>
Date: Tue, 27 Sep 2005 15:18:00 +0200

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

diff --git a/doio.c b/doio.c
index 4f30a59..26554cf 100644
--- a/doio.c
+++ b/doio.c
@@ -408,7 +408,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw,
 			else
 			    was_fdopen = TRUE;
 			if (!(fp = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,num_svs,svp))) {
-			    if (dodup)
+			    if (dodup && fd >= 0)
 				PerlLIO_close(fd);
 			}
 		    }