Let CgOp reference classes by Perl 6 name

sorear · Oct 5, 2010 · eeab430 · eeab430
1 parent c25514f
commit eeab430
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/CSharpBackend.pm b/src/CSharpBackend.pm
@@ -317,7 +317,9 @@ sub resolve_lex {
 
         resolve_lex($body, $_) for @{ $op->zyg };
     } elsif ($opc eq 'class_ref') {
-        my $cl = $unit->deref([ @rest ]);
+        my $cl = (@rest > 1) ? $unit->deref([ @rest ]) :
+            $unit->deref($unit->get_stash(@{ $body->find_lex(@rest)->path })
+                ->obj);
         my $nn = CgOp::rawsget($cl->{peer}{$arg});
         %$op = %$nn;
         bless $op, ref($nn);