Author: jonathan
Date: Thu Aug 7 08:37:33 2008
New Revision: 30094
Modified:
trunk/languages/perl6/src/builtins/op.pir
Log:
[rakudo] Fix bug in does operator, where it failed to work if you tried to
apply multiple mixins to an object over time.
Modified: trunk/languages/perl6/src/builtins/op.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/op.pir (original)
+++ trunk/languages/perl6/src/builtins/op.pir Thu Aug 7 08:37:33 2008
@@ -374,8 +374,7 @@
# Get the class of the variable we're adding roles to.
.local pmc p6meta, parrot_class
- p6meta = get_hll_global ['Perl6Object'], '$!P6META'
- parrot_class = p6meta.get_parrotclass(var)
+ parrot_class = class var
# Derive a new class that does the role(s) specified.
.local pmc derived
