X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/1376138c9392575534de671ce7b6fbb05a578e19..0daff7b8f9f15f54cfd2af57e4c8f868db199dda:/PLP.pm diff --git a/PLP.pm b/PLP.pm index 2f9db4d..6d6a520 100644 --- a/PLP.pm +++ b/PLP.pm @@ -14,7 +14,7 @@ use Cwd (); use strict; -our $VERSION = '3.17'; +our $VERSION = '3.18'; # Subs in this package: # _default_error($plain, $html) Default error handler @@ -68,7 +68,7 @@ sub cgi_init { 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; @@ -261,14 +261,14 @@ sub sendheaders () { 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; @@ -285,6 +285,14 @@ sub sendheaders () { } } } + + if ($in_block) { + $source .= ( + $in_block == 2 + ? "), q\cQ" # 2 + : "; $PLP::print q\cQ" # 1 + ); + } if ($use_cache) { $cached{$path}[1] = $source; @@ -525,9 +533,11 @@ FAQ at L. Some examples can be found at L. No warranty, no guarantees. Use PLP at your own risk, as I disclaim all responsibility. -=head1 AUTHOR +=head1 AUTHORS + +Currently maintained by Mischa POSLAWSKY -Juerd Waalboer +Originally by Juerd Waalboer =head1 SEE ALSO