← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy-updates

« back to all changes in this revision

Viewing changes to lib/Apache/Reload.pm

  • 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:
lib/Apache/Reload.pm
 
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
#
1
15
package Apache::Reload;
2
16
 
3
17
use strict;
21
35
 
22
36
sub import {
23
37
    my $class = shift;
24
 
    my($package,$file) = (caller)[0,1];
 
38
    my($package, $file) = (caller)[0,1];
25
39
 
26
40
    $class->register_module($package, $file);
27
41
}
71
85
 
72
86
    if ($TouchFile) {
73
87
        warn "Checking mtime of $TouchFile\n" if $DEBUG;
74
 
        my $touch_mtime = (stat($TouchFile))[9] || return 1;
 
88
        my $touch_mtime = (stat $TouchFile)[9] || return 1;
75
89
        return 1 unless $touch_mtime > $TouchTime;
76
90
        $TouchTime = $touch_mtime;
77
91
        open my $fh, $TouchFile or die "Can't open '$TouchFile': $!";
88
102
                $TouchModules || 
89
103
                (ref($o) && $o->dir_config("ReloadModules")) || 
90
104
                '';
91
 
        my @extra = split(/\s+/, $ExtraList);
 
105
        my @extra = split /\s+/, $ExtraList;
92
106
        foreach (@extra) {
93
107
            if (/(.*)::\*$/) {
94
108
                my $prefix = $1;