projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 83df2ad)
Re: [perl #29581] glob() misses a lot of matches
authorLAUN Wolfgang <wolfgang.laun@alcatel.at>
Mon, 17 May 2004 07:38:19 +0000 (09:38 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 May 2004 08:54:15 +0000 (08:54 +0000)
Message-ID: <DF27CDCBD2581D4B88431901094E4B4D02B0C71E@attmsx1.aut.alcatel.at>

p4raw-id: //depot/perl@22823

ext/File/Glob/Glob.xs patch | blob | history

diff --git a/ext/File/Glob/Glob.xs b/ext/File/Glob/Glob.xs
index bc58b6a..40a0fbc 100644 (file)
--- 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
 
Domain: System / Base;