Perl comments now permitted in code blocks.

Added a newline to the generated script after every Perl code block
so that comments (which run to end of line) will always be terminated
at the end of the code block.

Author: Chris White

perlpp.pl

@@ -292,31 +292,33 @@ sub OnOpening {
 sub OnClosing {
 	my $inside;
 	my $insetMode;
-	my $plainMode = OBMODE_PLAIN;
+	my $nextMode = OBMODE_PLAIN;
 
 	$insetMode = GetModeOfOB();
 	$inside = EndOB();								# contents of the inset
 	if ( $inside =~ /"$/ ) {
 		StartOB( $insetMode );						# restore contents of the inset
 		print substr( $inside, 0, -1 );
-		$plainMode = OBMODE_CAPTURE;
+		$nextMode = OBMODE_CAPTURE;
 	} else {
 		if ( $insetMode == OBMODE_ECHO ) {
 			print "print ${inside};\n";				# don't wrap in (), trailing semicolon
 		} elsif ( $insetMode == OBMODE_COMMAND ) {
 			ExecuteCommand( $inside );
 		} elsif ( $insetMode == OBMODE_COMMENT ) {
 			# Ignore the contents - no operation
+		} elsif ( $insetMode == OBMODE_CODE ) {
+			print "$inside\n";	# \n so you can put comments in your perl code
 		} else {
 			print $inside;
 		}
 
 		if ( GetModeOfOB() == OBMODE_CAPTURE ) {		# if the inset is wrapped
 			print EndOB() . " PerlPP::EndOB(); } . ";	# end of do { .... } statement
-			$plainMode = OBMODE_CAPTURE;				# back to capturing
+			$nextMode = OBMODE_CAPTURE;				# back to capturing
 		}
 	}
-	StartOB( $plainMode );							# plain text
+	StartOB( $nextMode );							# plain text
 } #OnClosing()
 
 sub RunPerlPP {

t/basic.t

@@ -16,6 +16,7 @@ my @testcases=(
 	['Foo <?= 2+2 ?> <? print "?>Howdy, "world!"  I\'m cool.<?"; ?> bar'."\n",
 		'Foo 4 Howdy, "world!"  I\'m cool. bar'."\n"],
 	['<?# This output file is tremendously boring. ?>',''],
+	['<? my $x=42; #this is a comment?><?=$x?>','42'],
 	['<?#ditto?>',''],
 	['<? my $foo=80; ?>#define QUUX (<?= $foo/40 ?>)', '#define QUUX (2)'],
 	['<? print (map { $_ . $_ . "\n" } qw(a b c d)); ?>',"aa\nbb\ncc\ndd\n"],