File c029d660f2fe60699cf64bbb3fa9f671a1a370d5.patch of Package perl

Overview Repositories Revisions Requests Users Attributes Meta

File c029d660f2fe60699cf64bbb3fa9f671a1a370d5.patch of Package perl (Revision 2508b17eb9f3446d219e58e27ede2ebb)

Currently displaying revision 2508b17eb9f3446d219e58e27ede2ebb , Show latest

From c029d660f2fe60699cf64bbb3fa9f671a1a370d5 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org>
Date: Wed, 23 Jun 2021 00:15:54 +0300
Subject: [PATCH] Fix GDBM_File to compile with version 1.20 and earlier

* ext/GDBM_File/GDBM_File.xs (ITEM_NOT_FOUND): Define conditionally,
depending on the GDBM_VERSION_MAJOR and GDBM_VERSION_MINOR.
Don't assume GDBM_ITEM_NOT_FOUND is a define (it isn't since
gdbm commit d3e27957).
---
 ext/GDBM_File/GDBM_File.xs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
index cd0bb6f26ff..494c2889ca8 100644
--- a/ext/GDBM_File/GDBM_File.xs
+++ b/ext/GDBM_File/GDBM_File.xs
@@ -145,14 +145,13 @@ output_datum(pTHX_ SV *arg, char *str, int size)
 #define gdbm_setopt(db,optflag,optval,optlen) not_here("gdbm_setopt")
 #endif
 
-#ifndef GDBM_ITEM_NOT_FOUND
-# define GDBM_ITEM_NOT_FOUND GDBM_NO_ERROR
-#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_ITEM_NOT_FOUND || gdbm_errno == GDBM_NO_ERROR)
+# define ITEM_NOT_FOUND()  (gdbm_errno == GDBM_NO_ERROR)
+#else
+# define ITEM_NOT_FOUND()  (gdbm_errno == GDBM_ITEM_NOT_FOUND)
+#endif
 
 #define CHECKDB(db) do {                        \
     if (!db->dbp) {                             \

Places

File c029d660f2fe60699cf64bbb3fa9f671a1a370d5.patch of Package perl (Revision 2508b17eb9f3446d219e58e27ede2ebb)

Places