Use the new (patch pending) interface to load libperl.so globally, fi…

…xes XS
jnthn · Mar 19, 2010 · cef64d4 · cef64d4
1 parent ef0cf35
commit cef64d4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/perl5.pir b/perl5.pir
@@ -17,11 +17,12 @@ Creates the compiler using a C<PCT::HLLCompiler> object.
 
 =cut
 
-.loadlib 'blizkost_group'
-
 .namespace [ 'Perl5' ; 'Compiler' ]
 
 .sub 'onload' :anon :load :init
+    # XXX can I access the symbolic constants?
+    $P0 = box 1
+    $P1 = loadlib 'blizkost_group', $P0
     load_bytecode 'PCT.pbc'
 
     $P0 = get_root_global ['parrot'], 'P6metaclass'