From 1e3683e5e5afae425e3ad423f6c07721067a9a01 Mon Sep 17 00:00:00 2001
From: Stephen Weeks <tene@allalone.org>
Date: Wed, 13 May 2009 17:02:34 -0600
Subject: [PATCH] Work around problems caused by not being able to set an HLL
 on PMCs.

---
 perl6.pir | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/perl6.pir b/perl6.pir
index 679d6c4ae6e..6497b1fe683 100644
--- a/perl6.pir
+++ b/perl6.pir
@@ -25,11 +25,13 @@ This is the base file for the Rakudo Perl 6 compiler.
     $P0.'new_class'('Perl6Object', 'name'=>'Object')
     p6meta = $P0.'HOW'()
     set_hll_global ['Perl6Object'], '$!P6META', p6meta
-    .local pmc hllns, parrotns, exports
+    .local pmc hllns, parrotns, imports, exports
     hllns = get_hll_namespace
     parrotns = get_root_namespace ['parrot']
-    exports = split ' ', 'PAST PGE PCT'
-    parrotns.'export_to'(hllns, exports)
+    imports = split ' ', 'PAST PGE PCT'
+    exports = split ' ', '!DISPATCH_JUNCTION_MULTI'
+    parrotns.'export_to'(hllns, imports)
+    hllns.'export_to'(parrotns, exports)
 .end