[svn:mod_parrot] r559 - mod_parrot/trunk/languages/perl6/lib

Author: jhorwitz
Date: Tue Dec 30 07:53:24 2008
New Revision: 559

Modified:
   mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm

Log:
don't run header_parser handlers if none are configured


Modified: mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm
==============================================================================
--- mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm	(original)
+++ mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm	Tue Dec 30 07:53:24 2008
@@ -162,7 +162,6 @@
 sub header_parser_handler($ctx)
 {
     my $r = $ctx.request_rec();
-
     my %cfg = ModParrot::Apache::Module::get_config("modparrot_perl6_module");
     my %dircfg = ModParrot::Apache::Module::get_config("modparrot_perl6_module",
         $r.per_dir_config());
@@ -174,6 +173,10 @@
 
     # back to the post_read_request handler
     my $handler = %dircfg<header_parser_handler>;
+    unless ($handler) {
+        return $Apache::Const::OK;
+    }
+
     my $status = call_handler($handler, $r);
     return $status;
 }