From 5c78c71ec36130ed25c4cc6068904105517cb963 Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Sat, 12 Jun 2010 12:22:40 +0200
Subject: [PATCH] Set an attribute type to Any if there's no supplied type
 constraint.

---
 src/Perl6/Compiler/Package.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Perl6/Compiler/Package.pm b/src/Perl6/Compiler/Package.pm
index 6e3182a1e8f..7199b44ef4e 100644
--- a/src/Perl6/Compiler/Package.pm
+++ b/src/Perl6/Compiler/Package.pm
@@ -181,6 +181,11 @@ method finish($block) {
             $_<type>.named('type');
             $attr.push($_<type>);
         }
+        else {
+            $attr.push(PAST::Var.new(
+                :name('Any'), :namespace([]), :scope('package'), :named('type')
+            ));
+        }
         $decl.push(PAST::Op.new(
             :pasttype('callmethod'),
             :name('add_attribute'),