/usr/include/apache2/modperl_interp.h is in libapache2-mod-perl2-dev 2.0.8+httpd24-r1449661-6ubuntu2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | /* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#ifndef MODPERL_INTERP_H
#define MODPERL_INTERP_H
void modperl_interp_init(server_rec *s, apr_pool_t *p,
PerlInterpreter *perl);
apr_status_t modperl_interp_cleanup(void *data);
#ifdef USE_ITHREADS
modperl_interp_t *modperl_thx_interp_get(PerlInterpreter *thx);
void modperl_thx_interp_set(PerlInterpreter *thx, modperl_interp_t *interp);
const char *modperl_interp_scope_desc(modperl_interp_scope_e scope);
void modperl_interp_clone_init(modperl_interp_t *interp);
modperl_interp_t *modperl_interp_new(modperl_interp_pool_t *mip,
PerlInterpreter *perl);
void modperl_interp_destroy(modperl_interp_t *interp);
modperl_interp_t *modperl_interp_get(server_rec *s);
apr_status_t modperl_interp_unselect(void *data);
modperl_interp_t *modperl_interp_pool_get(apr_pool_t *p);
void modperl_interp_pool_set(apr_pool_t *p,
modperl_interp_t *interp,
int cleanup);
modperl_interp_t *modperl_interp_pool_select(apr_pool_t *p,
server_rec *s);
modperl_interp_t *modperl_interp_select(request_rec *r, conn_rec *c,
server_rec *s);
#define MP_dINTERP_SELECT(r, c, s) \
pTHX; \
modperl_interp_t *interp = NULL; \
interp = modperl_interp_select(r, c, s); \
aTHX = interp->perl
#define MP_INTERP_PUTBACK(interp) \
if (interp && MpInterpPUTBACK(interp)) { \
modperl_interp_unselect(interp); \
}
#define MP_aTHX aTHX
apr_status_t modperl_interp_pool_destroy(void *data);
typedef apr_status_t (*modperl_interp_mip_walker_t)(pTHX_
modperl_interp_pool_t *mip,
void *data);
void modperl_interp_mip_walk(PerlInterpreter *current_perl,
PerlInterpreter *parent_perl,
modperl_interp_pool_t *mip,
modperl_interp_mip_walker_t walker,
void *data);
void modperl_interp_mip_walk_servers(PerlInterpreter *current_perl,
server_rec *base_server,
modperl_interp_mip_walker_t walker,
void *data);
#else
#define MP_dINTERP_SELECT(r, c, s) dNOOP
#define MP_INTERP_PUTBACK(interp) NOOP
#define MP_aTHX 0
#endif /* USE_ITHREADS */
#endif /* MODPERL_INTERP_H */
|