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

Author: jhorwitz
Date: Sat Dec 13 07:59:00 2008
New Revision: 546

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

Log:
grab pool objects from context


Modified: mod_parrot/trunk/lib/ModParrot/HLL/pir.pir
==============================================================================
--- mod_parrot/trunk/lib/ModParrot/HLL/pir.pir	(original)
+++ mod_parrot/trunk/lib/ModParrot/HLL/pir.pir	Sat Dec 13 07:59:00 2008
@@ -461,13 +461,9 @@
     find_global handler, $S0, 'handler'
 
     # get the pool objects
-    # XXX need access to these from the context!
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'conf_pool'
-    pconf = $P0()
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'log_pool'
-    plog = $P0()
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'temp_pool'
-    ptemp = $P0()
+    pconf = ctx.'conf_pool'()
+    plog = ctx.'log_pool'()
+    ptemp = ctx.'temp_pool'()
 
     # get the server_rec object
     $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'server_rec'
@@ -503,13 +499,9 @@
     find_global handler, $S0, 'handler'
 
     # get the pool objects
-    # XXX need access to these from the context!
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'conf_pool'
-    pconf = $P0()
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'log_pool'
-    plog = $P0()
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'temp_pool'
-    ptemp = $P0()
+    pconf = ctx.'conf_pool'()
+    plog = ctx.'log_pool'()
+    ptemp = ctx.'temp_pool'()
 
     # get the server_rec object
     $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'server_rec'
@@ -545,9 +537,7 @@
     find_global handler, $S0, 'handler'
 
     # get the pool objects
-    # XXX need access to these from the context!
-    $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'child_pool'
-    pchild = $P0()
+    pchild = ctx.'child_pool'()
 
     # get the server_rec object
     $P0 = get_root_global [ 'ModParrot'; 'NCI' ], 'server_rec'