1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
# test the require
use Apache::Test ();
use File::Spec::Functions qw(catfile);
my $vars = Apache::Test::config()->{vars};
my $require = catfile $vars->{serverroot}, 'cgi-bin', 'local-conf.pl';
print "Content-type: text/plain\n\n";
# XXX: meanwhile we don't chdir to the script's dir
delete $INC{$require};
require $require;
print defined $test_require && $test_require;
|
