tools/page-loader/RegistryPrefork.pm

   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/.
   4
   5 package ModPerl::RegistryPrefork;
   6
   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
  10
  11 use strict;
  12 use warnings FATAL => 'all';
  13
  14 our $VERSION = '0.01';
  15
  16 use base qw(ModPerl::Registry);
  17
  18 use File::Basename ();
  19
  20 use constant FILENAME => 1;
  21
  22 sub handler : method {
  23     my $class = (@_ >= 2) ? shift : __PACKAGE__;
  24     my $r = shift;
  25     return $class->new($r)->default_handler();
  26 }
  27
  28 sub chdir_file {
  29     my $file = @_ == 2 ? $_[1] : $_[0]->[FILENAME];
  30     my $dir = File::Basename::dirname($file);
  31     chdir $dir or die "Can't chdir to $dir: $!";
  32 }
  33
  34 1;
  35 __END__