/usr/include/apache2/modperl_io.h is in libapache2-mod-perl2-dev 2.0.10-2ubuntu3.18.04.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 | /* 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_IO_H
#define MODPERL_IO_H
#include "modperl_io_apache.h"
/*
* bleedperl change #11639 switch tied handle magic
* from living in the gv to the GvIOp(gv), so we have to deal
* with both to support 5.6.x
*/
#if MP_PERL_VERSION_AT_LEAST(5, 7, 0)
# define TIEHANDLE_SV(handle) (SV*)GvIOp((SV*)handle)
#else
# define TIEHANDLE_SV(handle) (SV*)handle
#endif
#define dHANDLE(name) GV *handle = gv_fetchpv(name, TRUE, SVt_PVIO)
#define IoFLUSH_off(gv) \
IoFLAGS(GvIOp((gv))) &= ~IOf_FLUSH
#define IoFLUSH_on(gv) \
IoFLAGS(GvIOp((gv))) |= IOf_FLUSH
#define IoFLUSH(gv) \
(IoFLAGS(GvIOp((gv))) & IOf_FLUSH)
MP_INLINE void modperl_io_handle_tie(pTHX_ GV *handle,
char *classname, void *ptr);
MP_INLINE GV *modperl_io_tie_stdout(pTHX_ request_rec *r);
MP_INLINE GV *modperl_io_tie_stdin(pTHX_ request_rec *r);
MP_INLINE int modperl_io_handle_tied(pTHX_ GV *handle, char *classname);
MP_INLINE void modperl_io_handle_untie(pTHX_ GV *handle);
MP_INLINE GV *modperl_io_perlio_override_stdin(pTHX_ request_rec *r);
MP_INLINE GV *modperl_io_perlio_override_stdout(pTHX_ request_rec *r);
MP_INLINE void modperl_io_perlio_restore_stdin(pTHX_ GV *handle);
MP_INLINE void modperl_io_perlio_restore_stdout(pTHX_ GV *handle);
#if defined(MP_IO_TIE_SFIO)
/* XXX */
#elif defined(MP_IO_TIE_PERLIO)
#define modperl_io_override_stdin modperl_io_perlio_override_stdin
#define modperl_io_override_stdout modperl_io_perlio_override_stdout
#define modperl_io_restore_stdin modperl_io_perlio_restore_stdin
#define modperl_io_restore_stdout modperl_io_perlio_restore_stdout
#else
#define modperl_io_override_stdin modperl_io_tie_stdin
#define modperl_io_override_stdout modperl_io_tie_stdout
#define modperl_io_restore_stdin modperl_io_handle_untie
#define modperl_io_restore_stdout modperl_io_handle_untie
#endif
#endif /* MODPERL_IO_H */
/*
* Local Variables:
* c-basic-offset: 4
* indent-tabs-mode: nil
* End:
*/
|