/usr/include/apache2/modperl_error.h is in libapache2-mod-perl2-dev 2.0.10-2ubuntu3.
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 | /* 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_ERROR_H
#define MODPERL_ERROR_H
/*** mod_perl custom errors come here ***/
/* to check whether $@ is set by ModPerl::Util::exit */
#define MODPERL_RC_EXIT APR_OS_START_USERERR + 0
/* indicate the filter error problem */
#define MODPERL_FILTER_ERROR APR_OS_START_USERERR + 1
/**
* return the string representation of the error code
* @param rc error code
* @return the error string
*
* The return value must be immediately copied unless used only in a
* limited visible scope where it's clear that Perl_form() is not
* called again (which could happen indirectly). If unsure, copy.
*/
char *modperl_error_strerror(pTHX_ apr_status_t rc);
void modperl_croak(pTHX_ apr_status_t rc, const char* func);
#ifdef USE_ITHREADS
#define MP_PUTBACK_IF_USED() STMT_START \
{ \
modperl_interp_t *interp = modperl_thx_interp_get(aTHX); \
if (interp && interp->refcnt > 1) { \
modperl_interp_unselect(interp); \
} \
} STMT_END
#else
#define MP_PUTBACK_IF_USED() NOOP
#endif
#define MP_CROAK_PUTBACK(rc, func) STMT_START \
{ \
MP_PUTBACK_IF_USED(); \
modperl_croak(aTHX_ rc, func); \
} STMT_END
#define MP_RUN_CROAK(rc_run, func) STMT_START \
{ \
apr_status_t rc = rc_run; \
if (rc != APR_SUCCESS) { \
modperl_croak(aTHX_ rc, func); \
} \
} STMT_END
#define MP_RUN_CROAK_PUTBACK(rc_run, func) STMT_START \
{ \
apr_status_t rc = rc_run; \
if (rc != APR_SUCCESS) { \
MP_PUTBACK_IF_USED(); \
modperl_croak(aTHX_ rc, func); \
} \
} STMT_END
#define MP_RUN_CROAK_RESET_OK(s, rc_run, func) STMT_START \
{ \
apr_status_t rc = rc_run; \
if (rc != APR_SUCCESS) { \
if (APR_STATUS_IS_ECONNRESET(rc) || \
APR_STATUS_IS_ECONNABORTED(rc)) { \
ap_log_error(APLOG_MARK, APLOG_INFO, 0, s, \
"%s got: %s", func, \
modperl_error_strerror(aTHX_ rc)); \
} \
else { \
modperl_croak(aTHX_ rc, func); \
} \
} \
} STMT_END
#define MP_RUN_CROAK_RESET_OK_PUTBACK(s, rc_run, func) STMT_START \
{ \
apr_status_t rc = rc_run; \
if (rc != APR_SUCCESS) { \
if (APR_STATUS_IS_ECONNRESET(rc) || \
APR_STATUS_IS_ECONNABORTED(rc)) { \
ap_log_error(APLOG_MARK, APLOG_INFO, 0, s, \
"%s got: %s", func, \
modperl_error_strerror(aTHX_ rc)); \
} \
else { \
MP_PUTBACK_IF_USED(); \
modperl_croak(aTHX_ rc, func); \
} \
} \
} STMT_END
#endif /* MODPERL_ERROR_H */
/*
* Local Variables:
* c-basic-offset: 4
* indent-tabs-mode: nil
* End:
*/
|