зеркало из https://github.com/mozilla/gecko-dev.git
32 строки
653 B
Perl
32 строки
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__
|