[DBD::Pg] Fix building on pre-5.18 perls
[email protected] Tue, 10 Feb 2015 17:25:28 +0000
| Newsgroups | perl.dbd.pg.changes |
|---|---|
| Message-ID | <[email protected]> |
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