1 # This Source Code Form is subject to the terms of the Mozilla Public
2 # License, v. 2.0. If a copy of the MPL was not distributed with this
3 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
5 package ModPerl
::RegistryPrefork
;
7 # RegistryPrefork.pm originally from
8 # http://perl.apache.org/docs/2.0/user/porting/compat.html#Code_Porting
9 # backported for mod_perl <= 1.99_08
12 use warnings FATAL
=> 'all';
14 our $VERSION = '0.01';
16 use base
qw(ModPerl::Registry);
18 use File
::Basename
();
20 use constant FILENAME
=> 1;
22 sub handler
: method
{
23 my $class = (@_ >= 2) ?
shift : __PACKAGE__
;
25 return $class->new($r)->default_handler();
29 my $file = @_ == 2 ?
$_[1] : $_[0]->[FILENAME
];
30 my $dir = File
::Basename
::dirname
($file);
31 chdir $dir or die "Can't chdir to $dir: $!";