mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-09-05 23:49:20 +02:00
Revert "plperl: Fix breakage of c89f409749
in back branches."
This reverts commits d81cac47a
et al. We shouldn't need that
hack after the preceding commits.
Discussion: https://postgr.es/m/20220131015130.shn6wr2fzuymerf6@alap3.anarazel.de
This commit is contained in:
parent
0a7ded19b4
commit
a2ff3f6ecd
@ -299,11 +299,11 @@ static char *strip_trailing_ws(const char *msg);
|
|||||||
static OP *pp_require_safe(pTHX);
|
static OP *pp_require_safe(pTHX);
|
||||||
static void activate_interpreter(plperl_interp_desc *interp_desc);
|
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);
|
static char *setlocale_perl(int category, char *locale);
|
||||||
#else
|
#else
|
||||||
#define setlocale_perl(a,b) Perl_setlocale(a,b)
|
#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
|
* 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.
|
* 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 *
|
static char *
|
||||||
setlocale_perl(int category, char *locale)
|
setlocale_perl(int category, char *locale)
|
||||||
{
|
{
|
||||||
@ -4230,4 +4230,4 @@ setlocale_perl(int category, char *locale)
|
|||||||
|
|
||||||
return RETVAL;
|
return RETVAL;
|
||||||
}
|
}
|
||||||
#endif /* defined(WIN32) && PERL_VERSION < 28 */
|
#endif /* defined(WIN32) && PERL_VERSION_LT(5, 28, 0) */
|
||||||
|
Loading…
Reference in New Issue
Block a user