From 145eb477362c0def60b3ef8ad6349c490a44735a Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Fri, 11 May 2001 13:02:22 +0100
Subject: $foo->bar(0) Message-ID: <20010511120222.A11529@penderel>

p4raw-id: //depot/perl@10080
---
 ext/B/B/Deparse.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext')

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;
-- 
cgit v1.2.1