| #!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: $!"; |
| } |
| |
| |