diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 23:48:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 23:48:10 +0000 |
| commit | f99a63a2847c6b782592a184fb425a1f34215fb8 (patch) | |
| tree | 7d7f1dc9e65d470660a650bfda768af80e8c1a08 /ext | |
| parent | 19103b91374ccd8680065ad4812871fe2d75144e (diff) | |
| download | perl-f99a63a2847c6b782592a184fb425a1f34215fb8.tar.gz | |
Deparse nits.
p4raw-id: //depot/perl@9875
Diffstat (limited to 'ext')
| -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 { |