Committed by =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <[email protected]>

Fix building on pre-5.18 perls

isALPHANUMERIC_A was introduced in 5.18, so use the expanded version
for backwards compatibility.
---
 dbdimp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dbdimp.c b/dbdimp.c
index 2dee5d4..1bf5227 100644
--- a/dbdimp.c
+++ b/dbdimp.c
@@ -2958,7 +2958,7 @@ static void pg_db_detect_client_encoding_utf8(pTHX_ 
imp_dbh_t *imp_dbh) {
        Newx(clean_encoding, len + 1, char);
        for (i = 0, j = 0; i < len; i++) {
                const char c = toLOWER(client_encoding[i]);
-               if (isALPHANUMERIC_A(c))
+               if (isALPHA(c) || isDIGIT(c))
                        clean_encoding[j++] = c;
        };
        clean_encoding[j] = '\0';
-- 
1.8.4

Reply via email to