Author: jonathan
Date: Tue Jan 20 10:57:27 2009
New Revision: 35836
Modified:
trunk/languages/perl6/src/builtins/guts.pir
Log:
[rakudo] Final fix needed to get a proto in the class to avoid conflicts with
methods of the same name in roles (by bringing them into the multi).
Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir (original)
+++ trunk/languages/perl6/src/builtins/guts.pir Tue Jan 20 10:57:27 2009
@@ -755,6 +755,9 @@
it_loop:
unless it goto it_loop_end
$S0 = shift it
+ $P0 = meths[$S0]
+ $I0 = isa $P0, 'MultiSub'
+ if $I0 goto it_loop
push res_list, $S0
goto it_loop
it_loop_end:
