33 lines
1.3 KiB
Diff
33 lines
1.3 KiB
Diff
From 5bc1e5fdd87aa205011512cd1e6cc655bcf677fd Mon Sep 17 00:00:00 2001
|
|
From: Sergey Poznyakoff <gray@gnu.org>
|
|
Date: Wed, 23 Jun 2021 15:31:42 +0300
|
|
Subject: [PATCH 3/3] Fix definition of ITEM_NOT_FOUND for pre-1.13 versions.
|
|
|
|
---
|
|
ext/GDBM_File/GDBM_File.xs | 9 +++++----
|
|
1 file changed, 5 insertions(+), 4 deletions(-)
|
|
|
|
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
|
|
index 494c2889ca..0125b5dcac 100644
|
|
--- a/ext/GDBM_File/GDBM_File.xs
|
|
+++ b/ext/GDBM_File/GDBM_File.xs
|
|
@@ -145,10 +145,11 @@ output_datum(pTHX_ SV *arg, char *str, int size)
|
|
#define gdbm_setopt(db,optflag,optval,optlen) not_here("gdbm_setopt")
|
|
#endif
|
|
|
|
-#if GDBM_VERSION_MAJOR == 1 && GDBM_VERSION_MINOR < 13
|
|
-/* Prior to 1.13, gdbm_fetch family functions set gdbm_errno to GDBM_NO_ERROR
|
|
- if the requested key did not exist */
|
|
-# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_NO_ERROR)
|
|
+#if GDBM_VERSION_MAJOR == 1 && GDBM_VERSION_MINOR < 13
|
|
+/* Prior to 1.13, only gdbm_fetch set GDBM_ITEM_NOT_FOUND if the requested
|
|
+ key did not exist. Other similar functions would set GDBM_NO_ERROR instead.
|
|
+ The GDBM_ITEM_NOT_FOUND existed as early as in 1.7.3 */
|
|
+# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_NO_ERROR || gdbm_errno == GDBM_ITEM_NOT_FOUND)
|
|
#else
|
|
# define ITEM_NOT_FOUND() (gdbm_errno == GDBM_ITEM_NOT_FOUND)
|
|
#endif
|
|
--
|
|
2.31.1
|
|
|