"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/lib/APR/XSLoader.pm" (5 Oct 2019, 1302 Bytes) of package /linux/www/apache_httpd_modules/mod_perl-2.0.11.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "XSLoader.pm" see the Fossies "Dox" file reference documentation and the last Fossies "Diffs" side-by-side code changes report: 2.0.8_vs_2.0.9.

    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 #
   17 package APR::XSLoader;
   18 
   19 use strict;
   20 use warnings FATAL => 'all';
   21 
   22 use XSLoader ();
   23 
   24 BEGIN {
   25     unless (defined &BOOTSTRAP) {
   26         *BOOTSTRAP = sub () { 0 };
   27     }
   28 }
   29 
   30 sub load {
   31     return unless BOOTSTRAP;
   32     # do not change the next line and do not insert anything below it in this
   33     # function. XSLoader::load depends on it.
   34     goto &XSLoader::load;
   35 }
   36 
   37 1;
   38 __END__