From:	jhorwitz@cvs.perl.org	Date:	Sun Sep 21 09:05:00 2008
Subject:	[svn:mod_parrot] r440 - mod_parrot/branches/hll-modules/lib/ModParrot/HLL

Author: jhorwitz
Date: Sun Sep 21 08:04:59 2008
New Revision: 440

Modified:
   mod_parrot/branches/hll-modules/lib/ModParrot/HLL/pir.pir

Log:
check for valid handler string in response handler


Modified: mod_parrot/branches/hll-modules/lib/ModParrot/HLL/pir.pir
==============================================================================
--- mod_parrot/branches/hll-modules/lib/ModParrot/HLL/pir.pir	(original)
+++ mod_parrot/branches/hll-modules/lib/ModParrot/HLL/pir.pir	Sun Sep 21 08:04:59 2008
@@ -165,7 +165,13 @@
     # get the request_rec object
     r = ctx.'request_rec'()
 
-    # get configs
+    # decline if not our handler
+    $S0 = r.'handler'()
+    if $S0 == 'parrot-code' goto get_configs
+    status = ap_const['DECLINED']
+    goto return_status
+
+  get_configs:
     get_config = get_hll_global ['Apache'; 'Module'], 'get_config'
     cfg = get_config('modparrot_pir_module')
     $P0 = r.'per_dir_config'()
@@ -190,7 +196,7 @@
     find_global handler, $S0, 'handler'
     status = handler(r)
 
-    # return status code
+  return_status:
     .return(status)
 .end