Changeset 22819 for src

Timestamp:

10/29/08 20:50:28 (2 months ago)

Author:

azawawi

Message:

[redspans] empty buffers are never printed

Files:

• src/perl6/redspans (modified) (1 diff)

src/perl6/redspans

@@ -30 +30 @@
         my $tree = "@{$loc[$i]}";
         if($tree ne $last_tree) {
-            say "\n'$buffer'\n$last_tree";
+            say "\n'$buffer'\n$last_tree" if $buffer ne '';
             $buffer = $c;
         } else {