From 5f18268ba678b36b46284b6b8b13d49fde5909a1 Mon Sep 17 00:00:00 2001
From: LAUN Wolfgang <wolfgang.laun@alcatel.at>
Date: Mon, 17 May 2004 09:38:19 +0200
Subject: [PATCH] Re: [perl #29581] glob() misses a lot of matches Message-ID:
 <DF27CDCBD2581D4B88431901094E4B4D02B0C71E@attmsx1.aut.alcatel.at>

p4raw-id: //depot/perl@22823
---
 ext/File/Glob/Glob.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
-- 
2.7.4