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