Use the actual symbolic constants

jnthn · Apr 2, 2010 · b6cfbb4 · b6cfbb4
1 parent 3f144cd
commit b6cfbb4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/perl5.pir b/perl5.pir
@@ -17,11 +17,11 @@ Creates the compiler using a C<PCT::HLLCompiler> object.
 
 =cut
 
+.include "dlopenflags.pasm"
 .namespace [ 'Perl5' ; 'Compiler' ]
 
 .sub 'onload' :anon :load :init
-    # XXX can I access the symbolic constants?
-    $P0 = box 1
+    $P0 = box .Parrot_dlopen_global_FLAG
     $P1 = loadlib 'blizkost_group', $P0
     load_bytecode 'PCT.pbc'