1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!perl -w
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
# test that prefork runs from the directory the script lives in
# All Modperl::*Prefork modules must chdir into the current dir, so we
# should be able to read ourselves via a relative path
print "Content-type: text/plain\n\n";
my $script = "prefork.pl";
if (open my $fh, $script) {
print "ok $script";
}
else {
print "prefork didn't chdir into the scripts directory?";
print " The error was: $!";
}
|
