$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 (file)
--- 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 (executable)
--- 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");