Deparse nits.

[p5sagit/p5-mst-13.2.git] / ext / B / B / Deparse.pm

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 03e5e6c..a982575 100644 (file)
--- 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 {