2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4 * Copyright 1999-2003 The OpenLDAP Foundation.
5 * Portions Copyright 1999 John C. Quillan.
6 * Portions Copyright 2002 myinternet Limited.
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted only as authorized by the OpenLDAP
13 * A copy of this license is available in file LICENSE in the
14 * top-level directory of the distribution or, alternatively, at
15 * <http://www.OpenLDAP.org/license.html>.
24 * From Apache mod_perl: test for Perl version.
27 #if defined(pTHX_) || (PERL_REVISION > 5 || (PERL_REVISION == 5 && PERL_VERSION >= 6))
31 #define EVAL_BUF_SIZE 500
33 extern ldap_pvt_thread_mutex_t perl_interpreter_mutex;
36 /* We should be using the PL_errgv, I think */
37 /* All the old style variables are prefixed with PL_ now */
38 # define errgv PL_errgv
42 #ifdef HAVE_WIN32_ASPERL
43 /* pTHX is needed often now */
44 # define PERL_INTERPRETER my_perl
45 # define PERL_BACK_XS_INIT_PARAMS pTHX
46 # define PERL_BACK_BOOT_DYNALOADER_PARAMS pTHX, CV *cv
48 # define PERL_INTERPRETER perl_interpreter
49 # define PERL_BACK_XS_INIT_PARAMS void
50 # define PERL_BACK_BOOT_DYNALOADER_PARAMS CV *cv
53 extern PerlInterpreter *PERL_INTERPRETER;
56 typedef struct perl_backend_instance {
59 int pb_filter_search_results;