X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FFile%2FGlob%2FGlob.xs;h=a21fe84f35fa2a1fb86a59da197793dea4ae79a0;hb=8063af025e8b11a3a92c708534a72a8c4fe60322;hp=98e366c4017feae351d11a0180ae95d98696d03f;hpb=72b166521443a1b89b0fed156fa8334cfab6e61b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/File/Glob/Glob.xs b/ext/File/Glob/Glob.xs
index 98e366c..a21fe84 100644
--- 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: $$