Revert "plperl: Fix breakage of c89f409749c in back branches."
authorTom Lane <[email protected]>
Mon, 31 Jan 2022 20:07:39 +0000 (15:07 -0500)
committerTom Lane <[email protected]>
Mon, 31 Jan 2022 20:07:39 +0000 (15:07 -0500)
This reverts commits d81cac47a et al.  We shouldn't need that
hack after the preceding commits.

Discussion: https://postgr.es/m/20220131015130[email protected]

src/pl/plperl/plperl.c

index c87715f34be87b96bac0f1c56a0c72c00c52a42c..bfd4ff2baf808f8a3923245cc107808c991c6c8e 100644 (file)
@@ -300,11 +300,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 < 28
+#if defined(WIN32) && PERL_VERSION_LT(5, 28, 0)
 static char *setlocale_perl(int category, char *locale);
 #else
 #define setlocale_perl(a,b)  Perl_setlocale(a,b)
-#endif                         /* defined(WIN32) && PERL_VERSION < 28 */
+#endif                         /* defined(WIN32) && PERL_VERSION_LT(5, 28, 0) */
 
 /*
  * Decrement the refcount of the given SV within the active Perl interpreter
@@ -4039,7 +4039,7 @@ plperl_inline_callback(void *arg)
  *
  * Starting in 5.28, perl exposes Perl_setlocale to do so.
  */
-#if defined(WIN32) && PERL_VERSION < 28
+#if defined(WIN32) && PERL_VERSION_LT(5, 28, 0)
 static char *
 setlocale_perl(int category, char *locale)
 {
@@ -4107,4 +4107,4 @@ setlocale_perl(int category, char *locale)
 
    return RETVAL;
 }
-#endif                         /* defined(WIN32) && PERL_VERSION < 28 */
+#endif                         /* defined(WIN32) && PERL_VERSION_LT(5, 28, 0) */