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

Author: jhorwitz
Date: Mon Dec 15 12:34:05 2008
New Revision: 548

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

Log:
support for handlers with nested namespaces


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	Mon Dec 15 12:34:05 2008
@@ -315,7 +315,8 @@
     # set our default content type
     r.'content_type'('text/html')
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
   return_status:
@@ -353,7 +354,9 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
+
     status = handler(r)
 
     # return status code
@@ -391,7 +394,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -429,7 +433,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -458,7 +463,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
 
     # get the pool objects
     pconf = ctx.'conf_pool'()
@@ -496,7 +502,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
 
     # get the pool objects
     pconf = ctx.'conf_pool'()
@@ -534,7 +541,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
 
     # get the pool objects
     pchild = ctx.'child_pool'()
@@ -570,7 +578,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
 
     # get the pool objects
     # XXX need access to these from the context!
@@ -606,7 +615,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
 
     # get the pool objects
     # XXX need access to these from the context!
@@ -651,7 +661,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -689,7 +700,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -727,7 +739,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -765,7 +778,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -803,7 +817,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -841,7 +856,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -880,7 +896,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code
@@ -918,7 +935,8 @@
 
   run_handler:
     # find the handler sub and call it
-    find_global handler, $S0, 'handler'
+    $P0 = split ';', $S0
+    get_hll_global handler, $P0, 'handler'
     status = handler(r)
 
     # return status code