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 (file)
--- 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;
                  }
                }
            }