Allow .WHAT and other p6object methods on Parrot MultiSub objects (RT…

… #66928).
rakudo · Jul 1, 2009 · ee1fd13 · ee1fd13
1 parent fbc5428
commit ee1fd13
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/classes/Multi.pir b/src/classes/Multi.pir
@@ -19,6 +19,7 @@ Multi - Perl 6 multi-dispatch routine
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
     proto = p6meta.'new_class'('Multi', 'parent'=>'parrot;Perl6MultiSub Code Any')
     p6meta.'register'('Perl6MultiSub', 'parent'=>proto, 'protoobject'=>proto)
+    p6meta.'register'('MultiSub', 'parent'=>proto, 'protoobject'=>proto)
 .end
 
 .sub 'Scalar' :method