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.

1 files changed, 1 insertions, 1 deletions

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 6d0695660d..fbc02adeb5 100644
--- 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
 }