From d65bec95a92593ca66b0cdc86019d7940112a2e2 Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Thu, 8 Oct 2009 19:10:42 +0200
Subject: [PATCH] Couple of small fixes to signature generation, to unbreak
 auto-threading on method arguments.

---
 src/parser/signature.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/parser/signature.pm b/src/parser/signature.pm
index 87d65d0a9aa..2cb8715eb27 100644
--- a/src/parser/signature.pm
+++ b/src/parser/signature.pm
@@ -45,6 +45,7 @@ method add_invocant() {
         $param<var_name> := "self";
         $param<invocant> := 1;
         $param<multi_invocant> := 1;
+        $param<names> := list();
         @entries.unshift($param);
     }
 }
@@ -127,13 +128,14 @@ method ast($high_level?) {
 
         # Fix up nominal type.
         my $sigil := substr($_<var_name>, 0, 1);
-        if $_<slurpy> {
-            $_<nom_type> := PAST::Var.new( :name('Object'), :scope('package') );
+        if $_<slurpy> || $_<invocant> {
+            $_<nom_type> := PAST::Var.new( :name('Object'), :namespace(list()), :scope('package') );
         }
         elsif $sigil eq "$" {
             if !$_<nom_type> {
                 $_<nom_type> := PAST::Var.new(
                     :name(self.get_default_parameter_type()),
+                    :namespace(list()),
                     :scope('package')
                 );
             }