]> git.ipfire.org Git - thirdparty/postgresql.git/commitdiff
plperl: Fix breakage of c89f409749c in back branches.
authorAndres Freund <andres@anarazel.de>
Mon, 31 Jan 2022 01:53:53 +0000 (17:53 -0800)
committerAndres Freund <andres@anarazel.de>
Mon, 31 Jan 2022 02:01:04 +0000 (18:01 -0800)
ppport.h was only updated in 05798c9f7f0 (master). Unfortunately my commit
c89f409749c uses PERL_VERSION_LT which came in with that update. Breaking most
buildfarm animals.

I should have noticed that...

We might want to backpatch the ppport update instead, but for now lets get the
buildfarm green again.

Discussion: https://postgr.es/m/20220131015130.shn6wr2fzuymerf6@alap3.anarazel.de
Backpatch: 10-14, master doesn't need it

src/pl/plperl/plperl.c

index dfbc7983838532811a29f151fba8ffb21b31f5a3..98024a0df6a3cbb3f5465afd7c52f7bd35a03c5a 100644 (file)
@@ -299,11 +299,11 @@ static char *strip_trailing_ws(const char *msg);
 static OP  *pp_require_safe(pTHX);
 static void activate_interpreter(plperl_interp_desc *interp_desc);
 
-#if defined(WIN32) && PERL_VERSION_LT(5, 28, 0)
+#if defined(WIN32) && PERL_VERSION < 28
 static char *setlocale_perl(int category, char *locale);
 #else
 #define setlocale_perl(a,b)  Perl_setlocale(a,b)
-#endif                                                 /* defined(WIN32) && PERL_VERSION_LT(5, 28, 0) */
+#endif                                                 /* defined(WIN32) && PERL_VERSION < 28 */
 
 /*
  * Decrement the refcount of the given SV within the active Perl interpreter
@@ -4162,7 +4162,7 @@ plperl_inline_callback(void *arg)
  *
  * Starting in 5.28, perl exposes Perl_setlocale to do so.
  */
-#if defined(WIN32) && PERL_VERSION_LT(5, 28, 0)
+#if defined(WIN32) && PERL_VERSION < 28
 static char *
 setlocale_perl(int category, char *locale)
 {
@@ -4230,4 +4230,4 @@ setlocale_perl(int category, char *locale)
 
        return RETVAL;
 }
-#endif                                                 /* defined(WIN32) && PERL_VERSION_LT(5, 28, 0) */
+#endif                                                 /* defined(WIN32) && PERL_VERSION < 28 */