diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-11 13:02:22 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-11 12:52:49 +0000 |
| commit | 145eb477362c0def60b3ef8ad6349c490a44735a (patch) | |
| tree | 1b077b939fca9fa56bfb2bb225b8e17bc1772aa8 /ext | |
| parent | 85b4d566cfc4cf2b1ecaeebe47e23f42cb8382a1 (diff) | |
| download | perl-145eb477362c0def60b3ef8ad6349c490a44735a.tar.gz | |
$foo->bar(0)
Message-ID: <20010511120222.A11529@penderel>
p4raw-id: //depot/perl@10080
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 21fdd15114..19e9451286 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -2756,7 +2756,7 @@ sub method { } my $args = join(", ", @exprs); $kid = $obj . "->" . $meth; - if ($args) { + if (length $args) { return $kid . "(" . $args . ")"; # parens mandatory } else { return $kid; |