[svn:parrot] r42822 - trunk/runtime/parrot/library

[jonathan at svn.parrot.org]

Author: jonathan
Date: Sun Nov 29 19:04:55 2009
New Revision: 42822
URL: https://trac.parrot.org/parrot/changeset/42822

Log:
[p6object] P6Object needs to also recognize new Perl 6 named for Object (left recognition of existing one in, no deprecation issues).

Modified:
   trunk/runtime/parrot/library/P6object.pir

Modified: trunk/runtime/parrot/library/P6object.pir
==============================================================================
--- trunk/runtime/parrot/library/P6object.pir	Sun Nov 29 12:53:50 2009	(r42821)
+++ trunk/runtime/parrot/library/P6object.pir	Sun Nov 29 19:04:55 2009	(r42822)
@@ -802,9 +802,10 @@
     $P0 = self.'HOW'()
     parrotclass = $P0.'get_parrotclass'(self)
 
-    # Perl6Object accepts anything.
+    # Perl6Object (legacy) and Mu accept anything.
     $S0 = parrotclass
     if $S0 == 'Perl6Object' goto accept_anyway
+    if $S0 == 'Mu' goto accept_anyway
 
     # Otherwise, just try a normal check.
     $I0 = can topic, 'HOW'