Trim blank lines on points in Lite compiler.

ingydotnet · Mar 1, 2016 · 3e2f2e5 · 3e2f2e5
1 parent 0cdd3fc
commit 3e2f2e5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/TestML/Compiler/Lite.pm b/lib/TestML/Compiler/Lite.pm
@@ -186,6 +186,10 @@ sub compile_data {
                 die "Failed to parse TestML string:\n$string_block";
             }
             $block->{points} ||= {};
+            $value =~ s/(\r?\n)\s*\z//;
+            if (length $value) {
+                $value .= $1;
+            }
             $block->{points}{$key} = $value;
 
             if ($key =~ /^(ONLY|SKIP|LAST)$/) {