various File::Glob fixes for DOSISH platforms

[p5sagit/p5-mst-13.2.git] / ext / File / Glob / Glob.xs

diff --git a/ext/File/Glob/Glob.xs b/ext/File/Glob/Glob.xs
index 98e366c..1805f68 100644 (file)
--- a/ext/File/Glob/Glob.xs
+++ b/ext/File/Glob/Glob.xs
@@ -80,6 +80,12 @@ constant(char *name, int arg)
 #endif
        break;
     case 'N':
+       if (strEQ(name, "GLOB_NOCASE"))
+#ifdef GLOB_NOCASE
+           return GLOB_NOCASE;
+#else
+           goto not_there;
+#endif
        if (strEQ(name, "GLOB_NOCHECK"))
 #ifdef GLOB_NOCHECK
            return GLOB_NOCHECK;