diff options
| author | Paul Lindner <lindner@inuus.com> | 2001-03-16 03:28:03 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-16 02:50:49 +0000 |
| commit | 8722d079bea855032e83d28746a234953bd00d85 (patch) | |
| tree | 7e3c85420fdd1bc4bad8bf4323e3fa656ef2be5a | |
| parent | 310a2e7472ca7e4693981c2e781b2061438c2f71 (diff) | |
| download | perl-8722d079bea855032e83d28746a234953bd00d85.tar.gz | |
ext/GDBM_File GDBM_NOLOCK constant
Message-ID: <20010316112803.A7577@inuus.com>
p4raw-id: //depot/perl@9174
| -rw-r--r-- | ext/GDBM_File/GDBM_File.pm | 3 | ||||
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm index 074b976386..310243c736 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 01ee84f278..1ec5ea803d 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; |