git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix setting PLPcache from apache configuration
[perl/plp/.git]
/
PLP
/
Apache.pm
diff --git
a/PLP/Apache.pm
b/PLP/Apache.pm
index bc788811252a533e48457aca4529033cc1325b2a..5a9745c138c4f831c48d2ff5334d2920226de169 100644
(file)
--- a/
PLP/Apache.pm
+++ b/
PLP/Apache.pm
@@
-21,9
+21,11
@@
BEGIN {
}
}
}
}
+our $r;
+
# mod_perl initializer: returns 0 on success, Apache error code on failure
sub init {
# mod_perl initializer: returns 0 on success, Apache error code on failure
sub init {
-
our
$r = shift;
+ $r = shift;
$PLP::print = 'PLP::Apache::print';
$PLP::read = \&read;
$PLP::print = 'PLP::Apache::print';
$PLP::read = \&read;
@@
-39,8
+41,8
@@
sub init {
$ENV{PLP_NAME} = $r->uri;
$ENV{PLP_NAME} = $r->uri;
-
our $
use_cache = $r->dir_config('PLPcache') !~ /^off$/i;
-#S
our $
use_safe = $r->dir_config('PLPsafe') =~ /^on$/i;
+
$PLP::
use_cache = $r->dir_config('PLPcache') !~ /^off$/i;
+#S
$PLP::
use_safe = $r->dir_config('PLPsafe') =~ /^on$/i;
my $path = $r->filename();
my ($file, $dir) = File::Basename::fileparse($path);
chdir $dir;
my $path = $r->filename();
my ($file, $dir) = File::Basename::fileparse($path);
chdir $dir;
@@
-60,7
+62,7
@@
sub read ($) {
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
- $
PLP::Apache::
r->print(@_);
+ $r->print(@_);
}
# This is the mod_perl handler.
}
# This is the mod_perl handler.