The Tor Browser / file comparison
comparison: tools/page-loader/RegistryPrefork.pm
tools/page-loader/RegistryPrefork.pm
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:8d38abf18f09 |
|---|---|
| 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__ |
