use File::Basename ();
use File::Spec;
-use Cwd ();
+#use Cwd ();
use strict;
-our $VERSION = '3.17';
+our $VERSION = '3.18';
# Subs in this package:
# _default_error($plain, $html) Default error handler
# everything Do everything: CGI
# handler($r) Do everything: mod_perl
# mod_perl_init($r) Initialization for mod_perl
-# mod_perl_print Faster printing for mod_perl
+# mod_perl_print Faster printing for mod_perl
# sendheaders Send headers
# source($path, $level, $linespec) Read and parse .plp files
# start Start the initialized PLP script
delete @ENV{
qw(PATH_TRANSLATED SCRIPT_NAME SCRIPT_FILENAME PATH_INFO),
- grep { /^REDIRECT_/ } keys %ENV
+ grep /^REDIRECT_/, keys %ENV
};
$ENV{PATH_INFO} = $path_info if defined $path_info;
# FAST printing under mod_perl
sub mod_perl_print {
- return if @_ == 1 and not length $_[0];
+ return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
$PLP::r->print(@_);
}
my $part = $1;
if ($part eq '<:=' and not $in_block) {
$in_block = 2;
- $source .= "\cQ, ";
+ $source .= "\cQ, (";
} elsif ($part eq '<:' and not $in_block) {
$in_block = 1;
$source .= "\cQ; ";
} elsif ($part eq ':>' and $in_block) {
$source .= (
$in_block == 2
- ? ", q\cQ" # 2
+ ? "), q\cQ" # 2
: "; $PLP::print q\cQ" # 1
);
$in_block = 0;
}
}
}
+
+ if ($in_block) {
+ $source .= (
+ $in_block == 2
+ ? "), q\cQ" # 2
+ : "; $PLP::print q\cQ" # 1
+ );
+ }
if ($use_cache) {
$cached{$path}[1] = $source;
SetHandler perl-script
PerlHandler PLP
PerlSendHeader On
- PerlSetVar PLPcache On
+ PerlSetVar PLPcache On
</Files>
# Who said CGI was easier to set up? :)
ScriptAlias /foo/bar/ /PLP_COMMON/
<Directory /foo/bar/>
- AllowOverride None
- Options +ExecCGI
- Order allow,deny
- Allow from all
+ AllowOverride None
+ Options +ExecCGI
+ Order allow,deny
+ Allow from all
</Directory>
AddHandler plp-document plp
Action plp-document /PLP_COMMON/plp.cgi
No warranty, no guarantees. Use PLP at your own risk, as I disclaim all
responsibility.
-=head1 AUTHOR
+=head1 AUTHORS
+
+Currently maintained by Mischa POSLAWSKY <perl@shiar.org>
-Juerd Waalboer <juerd@cpan.org>
+Originally by Juerd Waalboer <juerd@cpan.org>
=head1 SEE ALSO