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;
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;