This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make require report too many open files error
authorDave Mitchell <davem@fdisolutions.com>
Mon, 29 May 2006 15:27:02 +0000 (15:27 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Mon, 29 May 2006 15:27:02 +0000 (15:27 +0000)
ie don't continue searching the rest of @INC

p4raw-id: //depot/perl@28331

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;
                  }
                }
            }