From: Paul Lindner <lindner@inuus.com>
Date: Fri, 16 Mar 2001 11:28:03 +0000 (-0800)
Subject: ext/GDBM_File GDBM_NOLOCK constant
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8722d079bea855032e83d28746a234953bd00d85;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;