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

[jhorwitz@xxxxxxxxxxxx]

Author: jhorwitz
Date: Wed Jul 30 11:54:39 2008
New Revision: 406

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

Log:
fix typos in Perl6ResponseHandler implementation


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        Wed Jul 30 11:54:39 2008
@@ -42,7 +42,7 @@
     # register apache directives
     .local pmc add_module, cmds, ap_const
 
-    ap_const = get_root_global ['Apache'; 'Constants'], 'ap_const'
+    ap_const = get_root_global ['Apache'; 'Constants'], 'ap_constants'
 
     load_bytecode 'Apache/Module.pbc'
 
@@ -54,7 +54,7 @@
     $P1 = 'Perl6ResponseHandler'
     $P0['name'] = $P1
     $P1 = new 'Integer'
-    $P1 = ap_const['OR_AUTHCFG']
+    $P1 = ap_const['TAKE1']
     $P0['args_how'] = $P1
     $P1 = get_hll_global 'cmd_perl6responsehandler'
     $P0['func'] = $P1