[svn:mod_parrot] r467 - mod_parrot/trunk/eg/pir

Author: jhorwitz
Date: Mon Oct 20 06:48:45 2008
New Revision: 467

Modified:
   mod_parrot/trunk/eg/pir/authenhandler.pir
   mod_parrot/trunk/eg/pir/handler.pir
   mod_parrot/trunk/eg/pir/interpinfo.pir

Log:
fix for new ModParrot;Apache;Constants namespace


Modified: mod_parrot/trunk/eg/pir/authenhandler.pir
==============================================================================
--- mod_parrot/trunk/eg/pir/authenhandler.pir	(original)
+++ mod_parrot/trunk/eg/pir/authenhandler.pir	Mon Oct 20 06:48:45 2008
@@ -25,7 +25,7 @@
     .local string pw
     .local int status
 
-    ap_const = get_root_global [ 'Apache'; 'Constants' ], 'table'
+    ap_const = get_root_global [ 'ModParrot'; 'Apache'; 'Constants' ], 'table'
 
     $P0 = r.'get_basic_auth_pw'( )
     status = $P0[0]

Modified: mod_parrot/trunk/eg/pir/handler.pir
==============================================================================
--- mod_parrot/trunk/eg/pir/handler.pir	(original)
+++ mod_parrot/trunk/eg/pir/handler.pir	Mon Oct 20 06:48:45 2008
@@ -25,7 +25,7 @@
     r.'puts'($S0)
 
     # tell apache we're finished
-    ap_const = get_root_global [ 'Apache'; 'Constants' ], 'table'
+    ap_const = get_root_global [ 'ModParrot'; 'Apache'; 'Constants' ], 'table'
     $I0 = ap_const['OK']
     .return($I0)
 .end

Modified: mod_parrot/trunk/eg/pir/interpinfo.pir
==============================================================================
--- mod_parrot/trunk/eg/pir/interpinfo.pir	(original)
+++ mod_parrot/trunk/eg/pir/interpinfo.pir	Mon Oct 20 06:48:45 2008
@@ -122,7 +122,7 @@
 
     # tell apache we're finished
     .local pmc ap_const
-    ap_const = get_root_global [ 'Apache'; 'Constants' ], 'table'
+    ap_const = get_root_global [ 'ModParrot'; 'Apache'; 'Constants' ], 'table'
     $I0 = ap_const['OK']
     .return($I0)
 .end