From: Robin Houston <robin@cpan.org>
Date: Fri, 11 May 2001 12:02:22 +0000 (+0100)
Subject: $foo->bar(0)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=145eb477362c0def60b3ef8ad6349c490a44735a;p=p5sagit%2Fp5-mst-13.2.git

$foo->bar(0)
Message-ID: <20010511120222.A11529@penderel>

p4raw-id: //depot/perl@10080
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 21fdd15..19e9451 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;
diff --git a/t/op/method.t b/t/op/method.t
index 1f5cbb6..ceb39be 100755
--- a/t/op/method.t
+++ b/t/op/method.t
@@ -9,7 +9,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..54\n";
+print "1..56\n";
 
 @A::ISA = 'B';
 @B::ISA = 'C';
@@ -46,6 +46,9 @@ test($obj->$mname("a","b","c"), "method,a,b,c");
 test((method $obj ("a","b","c")), "method,a,b,c");
 test((method $obj "a","b","c"), "method,a,b,c");
 
+test($obj->method(0), "method,0");
+test($obj->method(1), "method,1");
+
 test($obj->method(), "method");
 test($obj->$mname(), "method");
 test((method $obj ()), "method");