← Back to branch summary

~ubuntu-branches/ubuntu/feisty/libapache2-mod-perl2/feisty-security

« back to all changes in this revision

Viewing changes to src/modules/perl/modperl_perl.c

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2004-08-19 06:23:48 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040819062348-jxl4koqbtvgm8v2t
Tags: 1.99.14-4
Remove the LFS CFLAGS, and build-dep against apache2-*-dev (>= 2.0.50-10)
as we're backing out of the apache2/apr ABI transition.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/modules/perl/modperl_perl.c
 
1
/* Copyright 2001-2004 The Apache Software Foundation
 
2
 *
 
3
 * Licensed under the Apache License, Version 2.0 (the "License");
 
4
 * you may not use this file except in compliance with the License.
 
5
 * You may obtain a copy of the License at
 
6
 *
 
7
 *     http://www.apache.org/licenses/LICENSE-2.0
 
8
 *
 
9
 * Unless required by applicable law or agreed to in writing, software
 
10
 * distributed under the License is distributed on an "AS IS" BASIS,
 
11
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 
12
 * See the License for the specific language governing permissions and
 
13
 * limitations under the License.
 
14
 */
 
15
 
1
16
#include "mod_perl.h"
2
17
 
3
18
/* this module contains mod_perl small tweaks to the Perl runtime
42
57
    ids->gid  = getgid(); 
43
58
    ids->gid  = getegid(); 
44
59
 
45
 
    MP_TRACE_g(MP_FUNC, 
 
60
    MP_TRACE_r(MP_FUNC, 
46
61
               "pid=%d, "
47
62
#ifdef MP_MAINTAIN_PPID
48
63
               "ppid=%d, "
105
120
 
106
121
    PERL_SET_CONTEXT(perl);
107
122
 
 
123
    modperl_perl_call_endav(aTHX);
 
124
 
108
125
    PL_perl_destruct_level = modperl_perl_destruct_level();
109
126
 
110
127
#ifdef USE_ENVIRON_ARRAY
129
146
#   endif
130
147
#endif
131
148
 
132
 
    if (PL_endav) {
133
 
        modperl_perl_call_list(aTHX_ PL_endav, "END");
134
 
    }
135
 
 
136
149
    {
137
150
        dTHXa(perl);
138
151
 
161
174
#endif
162
175
}
163
176
 
 
177
void modperl_perl_call_endav(pTHX)
 
178
{
 
179
     if (PL_endav) {
 
180
         modperl_perl_call_list(aTHX_ PL_endav, "END");
 
181
     }
 
182
}
 
183
 
164
184
#if !(PERL_REVISION == 5 && ( PERL_VERSION < 8 ||    \
165
185
    (PERL_VERSION == 8 && PERL_SUBVERSION == 0))) && \
166
186
    (defined(USE_HASH_SEED) || defined(USE_HASH_SEED_EXPLICIT))