[patch] -Wall cleanup round 2

[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..a21fe84 100644 (file)
--- a/ext/File/Glob/Glob.xs
+++ b/ext/File/Glob/Glob.xs
@@ -4,16 +4,9 @@
 
 #include "bsd_glob.h"
 
+/* XXX: need some thread awareness */
 static int GLOB_ERROR = 0;
 
-static int
-not_here(char *s)
-{
-    croak("%s not implemented on this architecture", s);
-    return -1;
-}
-
-
 static double
 constant(char *name, int arg)
 {
@@ -80,6 +73,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;
@@ -164,7 +163,7 @@ MODULE = File::Glob         PACKAGE = File::Glob
 void
 doglob(pattern,...)
     char *pattern
-PROTOTYPE:
+PROTOTYPE: $;$
 PREINIT:
     glob_t pglob;
     int i;
@@ -200,4 +199,4 @@ double
 constant(name,arg)
     char *name
     int   arg
-PROTOTYPE:
+PROTOTYPE: $$