upstream/openldap
1
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2026-01-10 08:53:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ITS#2356 - support Perl newer than 5.6

Browse source
This commit is contained in:
Howard Chu 2003-03-13 01:58:26 +00:00
parent 0bfcfbf5fa
commit 573349a318
2 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servers/slapd/back-perl/init.c
View file

@ -175,7 +175,7 @@ perl_back_db_open(
static void
perl_back_xs_init()
perl_back_xs_init(PERL_BACK_XS_INIT_PARAMS)
{
char *file = __FILE__;
dXSUB_SYS;

13
servers/slapd/back-perl/perl_back.h
View file

@ -5,28 +5,25 @@
LDAP_BEGIN_DECL
/*
* From Apache mod_perl: test for Perl version.[ja
* From Apache mod_perl: test for Perl version.
*/
#ifdef pTHX_
#if defined(pTHX_) || (PERL_REVISION >= 5 && PERL_VERSION >= 6)
#define PERL_IS_5_6
#endif
#define EVAL_BUF_SIZE 500
#ifdef pTHX_
#define PERL_IS_5_6
#endif
extern ldap_pvt_thread_mutex_t perl_interpreter_mutex;
#ifdef HAVE_WIN32_ASPERL
#ifdef PERL_IS_5_6
/* We should be using the PL_errgv, I think */
/* All the old style variables are prefixed with PL_ now */
# define errgv PL_errgv
# define na PL_na
#endif
#ifdef HAVE_WIN32_ASPERL
#ifdef HAVE_WIN32_ASPERL
/* pTHX is needed often now */
# define PERL_INTERPRETER my_perl
# define PERL_BACK_XS_INIT_PARAMS pTHX