/usr/include/apache2/modperl_perl_includes.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 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | /* 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_PERL_INCLUDES_H
#define MODPERL_PERL_INCLUDES_H
/* header files for Perl */
#ifndef PERL_NO_GET_CONTEXT
# define PERL_NO_GET_CONTEXT
#endif
#define PERLIO_NOT_STDIO 0
#include "config.h"
/*
* sizeof(struct PerlInterpreter) changes #ifdef USE_LARGE_FILES
* apache-2.0 cannot be compiled with lfs because of sendfile.h
* the PERL_CORE optimization is a no-no in this case
*/
#if defined(USE_ITHREADS) && !defined(USE_LARGE_FILES)
# define PERL_CORE
#endif
#ifdef MP_SOURCE_SCAN
/* XXX: C::Scan does not properly remove __attribute__ within
* function prototypes; so we just rip them all out via cpp
*/
# undef __attribute__
# define __attribute__(arg)
# ifdef MP_SOURCE_SCAN_NEED_ITHREADS
/* just need to have pTHX_ defined for proper prototypes */
# define USE_ITHREADS
# endif
#endif
#ifdef WIN32
# define uid_t perl_uid_t
# define gid_t perl_gid_t
# ifdef exit
# undef exit
# endif
#endif
/* needed starting from 5.8.2 to access the PERL_HASH_INTERNAL macro
* in hv.h. we use it in modperl_util.c */
#define PERL_HASH_INTERNAL_ACCESS
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#if defined(WIN32) && defined(USE_LARGE_FILES)
# ifdef malloc
# undef malloc
# endif
# ifdef free
# undef free
# endif
#endif
#include "modperl_perl_unembed.h"
/* avoiding -Wall warning */
#undef dNOOP
#define dNOOP extern int __attribute__ ((unused)) Perl___notused
#ifndef G_METHOD
# define G_METHOD 64
#endif
#ifndef PERL_MAGIC_tied
# define PERL_MAGIC_tied 'P'
#endif
#ifndef PERL_MAGIC_tiedscalar
# define PERL_MAGIC_tiedscalar 'q'
#endif
#ifndef PERL_MAGIC_ext
# define PERL_MAGIC_ext '~'
#endif
#if defined(__APPLE__) && !defined(PERL_CORE) && !defined(environ)
# include <crt_externs.h>
# define environ (*_NSGetEnviron())
#endif
/* sv_copypv was added in perl 5.7.3 */
#ifndef sv_copypv
# define sv_copypv(dsv, ssv) \
STMT_START { \
STRLEN len; \
char *s; \
s = SvPV(ssv, len); \
sv_setpvn(dsv, s, len); \
if (SvUTF8(ssv)) { \
SvUTF8_on(dsv); \
} \
else { \
SvUTF8_off(dsv); \
} \
} STMT_END
#endif
/* perl bug workaround: with USE_ITHREADS perl leaks pthread_key_t on
* every reload of libperl.{a,so} (it's allocated on the very first
* perl_alloc() and never freed). This becomes a problem on apache
* restart: if the OS limit is 1024, 1024 restarts later things will
* start crashing */
/* XXX: once and if it's fixed in perl, we need to disable it for the
* versions that have it fixed, otherwise it'll crash because it'll be
* freed twice */
#ifdef USE_ITHREADS
#define MP_PERL_FREE_THREAD_KEY_WORKAROUND \
if (PL_curinterp) { \
FREE_THREAD_KEY; \
PL_curinterp = NULL; \
}
#else
#define MP_PERL_FREE_THREAD_KEY_WORKAROUND
#endif
#endif /* MODPERL_PERL_INCLUDES_H */
|