From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 29 May 2006 15:27:02 +0000 (+0000)
Subject: make require report too many open files error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff806af2ea404e8d06ddc51fb69c5913462e33d3;p=p5sagit%2Fp5-mst-13.2.git

make require report too many open files error
ie don't continue searching the rest of @INC

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

diff --git a/pp_ctl.c b/pp_ctl.c
index c5b4755..9633ba3 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3297,6 +3297,9 @@ PP(pp_require)
 			    tryname += 2;
 			break;
 		    }
+		    else if (errno == EMFILE)
+			/* no point in trying other paths if out of handles */
+			break;
 		  }
 		}
 	    }