- 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;
# FAST printing under mod_perl
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
# FAST printing under mod_perl
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;