From b6cfbb4c7c58eb36aacbff48c88394731c6eb8fb Mon Sep 17 00:00:00 2001
From: Stefan O'Rear <stefanor@cox.net>
Date: Fri, 2 Apr 2010 00:33:52 -0700
Subject: [PATCH] Use the actual symbolic constants

---
 perl5.pir | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl5.pir b/perl5.pir
index 5cbf20f..9ed7db2 100644
--- 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'