diff options
Diffstat (limited to 'ext/B/B/Deparse.pm')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 03e5e6c51e..a98257579e 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -953,9 +953,9 @@ sub lineseq { } $expr .= $self->deparse($ops[$i], 0); $expr =~ s/;\n?\z//; - push @exprs, $expr if length $expr; + push @exprs, $expr; } - return join(";\n", @exprs); + return join(";\n", grep {length} @exprs); } sub scopeop { |