Fix [perl #80632] -MO=Concise,-tree format
authorReini Urban <rurban@x-ray.at>
Mon, 13 Dec 2010 19:06:33 +0000 (20:06 +0100)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 3 Sep 2011 19:44:23 +0000 (12:44 -0700)
Some time between 5.8.3 and 5.8.4, the -tree output
format started getting extra line breaks.
(cherry picked from commit efef081eeab2e6a1f5882c447d1aa3cfb2201e46)

ext/B/B/Concise.pm

index 2699605..c721edc 100644 (file)
@@ -586,7 +586,7 @@ sub fmt_line {    # generate text-line for op.
     $text = "# $hr->{src}\n$text" if $show_src and $hr->{src};
 
     chomp $text;
-    return "$text\n" if $text ne "";
+    return "$text\n" if $text ne "" and $order ne "tree";
     return $text; # suppress empty lines
 }