X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/1376138c9392575534de671ce7b6fbb05a578e19..6dfcf5c8bd6246a5c84bc27477a8921f1270757b:/PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 2f9db4d..df6ea34 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -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;