[svn:mod_parrot] r394 - mod_parrot/trunk/lib/ModParrot/HLL

[jhorwitz@xxxxxxxxxxxx]

Author: jhorwitz
Date: Fri Jul 25 18:11:09 2008
New Revision: 394

Modified:
   mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir

Log:
use constants from http_config.h


Modified: mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir
==============================================================================
--- mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir        (original)
+++ mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir        Fri Jul 25 18:11:09 2008
@@ -40,7 +40,9 @@
     $P0.'register'($P1)
 
     # register apache directives
-    .local pmc add_module, cmds
+    .local pmc add_module, cmds, ap_const
+
+    ap_const = get_root_global ['Apache'; 'Constants'], 'ap_const'
 
     load_bytecode 'Apache/Module.pbc'
 
@@ -52,12 +54,12 @@
     $P1 = 'Perl6ResponseHandler'
     $P0['name'] = $P1
     $P1 = new 'Integer'
-    $P1 = 1 # TAKE1
+    $P1 = ap_const['OR_AUTHCFG']
     $P0['args_how'] = $P1
     $P1 = get_hll_global 'cmd_perl6responsehandler'
     $P0['func'] = $P1
     $P1 = new 'Integer'
-    $P1 = 8 # OR_AUTHCFG
+    $P1 = ap_const['OR_AUTHCFG']
     $P0['req_override'] = $P1
     $P1 = new 'String'
     $P1 = "usage: Perl6ResponseHandler handler-name"