1# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- 2# Licensed to the Apache Software Foundation (ASF) under one or more 3# contributor license agreements. See the NOTICE file distributed with 4# this work for additional information regarding copyright ownership. 5# The ASF licenses this file to You under the Apache License, Version 2.0 6# (the "License"); you may not use this file except in compliance with 7# the License. You may obtain a copy of the License at 8# 9# http://www.apache.org/licenses/LICENSE-2.0 10# 11# Unless required by applicable law or agreed to in writing, software 12# distributed under the License is distributed on an "AS IS" BASIS, 13# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 14# See the License for the specific language governing permissions and 15# limitations under the License. 16# 17package APR; 18 19use DynaLoader (); 20our $VERSION = '0.009000'; 21our @ISA = qw(DynaLoader); 22 23#dlopen("APR.so", RTDL_GLOBAL); so we only need to link libapr.a once 24# XXX: see xs/ModPerl/Const/Const.pm for issues of using 0x01 25use Config (); 26use constant DL_GLOBAL => 27 ( $Config::Config{dlsrc} eq 'dl_dlopen.xs' && $^O ne 'openbsd' ) ? 0x01 : 0x0; 28sub dl_load_flags { DL_GLOBAL } 29 30unless (defined &APR::XSLoader::BOOTSTRAP) { 31 __PACKAGE__->bootstrap($VERSION); 32 *APR::XSLoader::BOOTSTRAP = sub () { 1 }; 33} 34 351; 36__END__ 37