Author: pmichaud
Date: Sun Jan 4 22:12:56 2009
New Revision: 34961
Modified:
branches/rvar/languages/perl6/src/builtins/guts.pir
Log:
[rakudo]: Handle multi-level namespace classes.
Modified: branches/rvar/languages/perl6/src/builtins/guts.pir
==============================================================================
--- branches/rvar/languages/perl6/src/builtins/guts.pir (original)
+++ branches/rvar/languages/perl6/src/builtins/guts.pir Sun Jan 4 22:12:56 2009
@@ -380,12 +380,17 @@
.param string name
.param int also
+ .local pmc nsarray, ns
+ $P0 = compreg 'Perl6'
+ nsarray = $P0.'parse_name'(name)
+ ns = get_hll_namespace nsarray
+
.local pmc metaclass
if also goto is_also
- metaclass = newclass name
+ metaclass = newclass ns
.return (metaclass)
is_also:
- metaclass = get_class name
+ metaclass = get_class ns
.return (metaclass)
.end
