ext/GDBM_File GDBM_NOLOCK constant

Message-ID: <20010316112803.A7577@inuus.com>

p4raw-id: //depot/perl@9174

diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm
index 074b976..310243c 100644 (file)
--- a/ext/GDBM_File/GDBM_File.pm
+++ b/ext/GDBM_File/GDBM_File.pm
@@ -54,13 +54,14 @@ use XSLoader ();
        GDBM_FAST
        GDBM_INSERT
        GDBM_NEWDB
+       GDBM_NOLOCK
        GDBM_READER
        GDBM_REPLACE
        GDBM_WRCREAT
        GDBM_WRITER
 );
 
-$VERSION = "1.04";
+$VERSION = "1.05";
 
 sub AUTOLOAD {
     my($constname);

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;