Add item to the list of methods that we don't go and create a closure…

… for, as per jnthn++.
rakudo · Mar 12, 2010 · e5d11fe · e5d11fe
1 parent 35e26f8
commit e5d11fe
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/pmc/p6opaque.pmc b/src/pmc/p6opaque.pmc
@@ -46,6 +46,7 @@ static STRING *hides_str;
 static STRING *HOW_str;
 static STRING *invoke_str;
 static STRING *isa_str;
+static STRING *item_str;
 static STRING *Junction_str;
 static STRING *MAKE_WHATEVER_CLOSURE_str;
 static STRING *match_against_str;
@@ -287,6 +288,7 @@ pmclass P6opaque extends Object need_ext dynpmc group perl6_group {
         HOW_str                      = CONST_STRING(interp, "HOW");
         invoke_str                   = CONST_STRING(interp, "invoke");
         isa_str                      = CONST_STRING(interp, "isa");
+        item_str                     = CONST_STRING(interp, "item");
         Junction_str                 = CONST_STRING(interp, "Junction");
         MAKE_WHATEVER_CLOSURE_str    = CONST_STRING(interp, "!MAKE_WHATEVER_CLOSURE");
         match_against_str            = CONST_STRING(interp, "match_against");
@@ -399,6 +401,7 @@ back some kind of iterator to let us get all of the possible candidates.
                 !Parrot_str_equal(interp, name, HOW_str) &&
                 !Parrot_str_equal(interp, name, ACCEPTS_str) &&
                 !Parrot_str_equal(interp, name, isa_str) &&
+                !Parrot_str_equal(interp, name, item_str) &&
                 !Parrot_str_equal(interp, name, Scalar_str) &&
                 !Parrot_str_equal(interp, name, defined_str) &&
                 !Parrot_str_equal(interp, name, FETCH_str)) {