The #10370 wasn't quite right.

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

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index 01ee84f..1ec5ea8 100644 (file)
--- a/ext/GDBM_File/GDBM_File.xs
+++ b/ext/GDBM_File/GDBM_File.xs
@@ -124,6 +124,12 @@ constant(char *name, int arg)
 #else
            goto not_there;
 #endif
+       if (strEQ(name, "GDBM_NOLOCK"))
+#ifdef GDBM_NOLOCK
+           return GDBM_NOLOCK;
+#else
+           goto not_there;
+#endif
        if (strEQ(name, "GDBM_READER"))
 #ifdef GDBM_READER
            return GDBM_READER;