develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r34961 - branches/rvar/languages/perl6/src/builtins

From:
pmichaud
Date:
January 4, 2009 22:13
Subject:
[svn:parrot] r34961 - branches/rvar/languages/perl6/src/builtins
Message ID:
20090105061257.17108CB9F9@x12.develooper.com
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 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About