Integrate changes #9675,9676 from maintperl into mainline.

[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 ee8c0c9..ce03ef8 100644 (file)
--- a/ext/File/Glob/Glob.xs
+++ b/ext/File/Glob/Glob.xs
@@ -69,6 +69,12 @@ constant(char *name, int arg)
     case 'K':
        break;
     case 'L':
+       if (strEQ(name, "GLOB_LIMIT"))
+#ifdef GLOB_LIMIT
+           return GLOB_LIMIT;
+#else
+           goto not_there;
+#endif
        break;
     case 'M':
        if (strEQ(name, "GLOB_MARK"))