diff options
| author | Reini Urban <rurban@x-ray.at> | 2010-12-13 20:06:33 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-03 12:44:23 -0700 |
| commit | a8cbcc67781cc7e1a99797e6036d803cfd41c4ba (patch) | |
| tree | 26ffacf5f2cd524e84ee6e27d3b6583acbd5b011 | |
| parent | d0ac0b39a1a51dabf67d15cf66a440dfbc5b78b3 (diff) | |
| download | perl-a8cbcc67781cc7e1a99797e6036d803cfd41c4ba.tar.gz | |
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)
| -rw-r--r-- | ext/B/B/Concise.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 2699605894..c721edcbaa 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 } |