From: LAUN Wolfgang <wolfgang.laun@alcatel.at>
Date: Mon, 17 May 2004 07:38:19 +0000 (+0200)
Subject: Re: [perl #29581] glob() misses a lot of matches
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f18268ba678b36b46284b6b8b13d49fde5909a1;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #29581] glob() misses a lot of matches
Message-ID: <DF27CDCBD2581D4B88431901094E4B4D02B0C71E@attmsx1.aut.alcatel.at>

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

diff --git a/ext/File/Glob/Glob.xs b/ext/File/Glob/Glob.xs
index bc58b6a..40a0fbc 100644
--- a/ext/File/Glob/Glob.xs
+++ b/ext/File/Glob/Glob.xs
@@ -21,7 +21,7 @@ START_MY_CXT
 #else
 int
 errfunc(const char *foo, int bar) {
-  return !(bar == ENOENT || bar == ENOTDIR);
+  return !(bar == EACCES || bar == ENOENT || bar == ENOTDIR);
 }
 #endif