mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-12-27 19:09:47 +00:00
7868977652
- Give example conf file for mod_perl 2 in README.txt - Use RegistryPrefork handler to emulate mod_perl 1.x's chdir() behavior - Add version of RegistryPrefork.pm backported for mod_perl <= 1.99_08 - Don't autoflush output in the middle of sending HTTP headers; it confuses mod_perl's ParseHeaders - Comment out a warn() that's not really needed r=jrgm
32 lines
653 B
Perl
32 lines
653 B
Perl
package ModPerl::RegistryPrefork;
|
|
|
|
# RegistryPrefork.pm originally from
|
|
# http://perl.apache.org/docs/2.0/user/porting/compat.html#Code_Porting
|
|
# backported for mod_perl <= 1.99_08
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
our $VERSION = '0.01';
|
|
|
|
use base qw(ModPerl::Registry);
|
|
|
|
use File::Basename ();
|
|
|
|
use constant FILENAME => 1;
|
|
|
|
sub handler : method {
|
|
my $class = (@_ >= 2) ? shift : __PACKAGE__;
|
|
my $r = shift;
|
|
return $class->new($r)->default_handler();
|
|
}
|
|
|
|
sub chdir_file {
|
|
my $file = @_ == 2 ? $_[1] : $_[0]->[FILENAME];
|
|
my $dir = File::Basename::dirname($file);
|
|
chdir $dir or die "Can't chdir to $dir: $!";
|
|
}
|
|
|
|
1;
|
|
__END__
|