diff options
-rw-r--r-- | xml/signout.expected.xml | 2 | ||||
-rwxr-xr-x | xmpt | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/xml/signout.expected.xml b/xml/signout.expected.xml index 4ae4038..1516eee 100644 --- a/xml/signout.expected.xml +++ b/xml/signout.expected.xml @@ -1 +1 @@ -</{stream}> +</{stream}>{# Need a match as the final step or nothing gets read.} @@ -43,6 +43,7 @@ if (@ARGV) { } binmode($inh, ':utf8'); binmode($outh, ':utf8'); + eval_in($inh, $outh, \%conf, @plans); waitpid($pid, 0) if $pid; @@ -106,6 +107,10 @@ sub parse_template { if ($intext) { if ($tok =~ /{/) { + if ($line =~ /^#/) { + do { my $tok = shift @parts } until $tok = '}'; + next; + } $thunkstart = $line; $intext = 0; } else { |