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