Fix [perl #80632] -MO=Concise,-tree format

Some time between 5.8.3 and 5.8.4, the -tree output
format started getting extra line breaks.
(cherry picked from commit efef081eeab2e6a1f5882c447d1aa3cfb2201e46)

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 2699605..c721edc 100644 (file)
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -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
 }