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

Author: jhorwitz
Date: Fri Nov 14 07:15:54 2008
New Revision: 492

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

Log:
fix initialization of handler configs


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	Fri Nov 14 07:15:54 2008
@@ -54,7 +54,7 @@
     # XXX we shouldn't need to prepopulate these, but things segfault otherwise
     for <open_logs post_config child_init pre_connection process_connection
          post_read_request map_to_storage trans> -> $phase {
-        %cfg<$phase ~ '_' ~ 'handler> = undef;
+        %cfg{$phase ~ '_handler'} = undef;
     }
 
     return %cfg;
@@ -68,7 +68,7 @@
     # XXX we shouldn't need to prepopulate these, but things segfault otherwise
     for <header_parser access authen authz response type fixup log
          cleanup> -> $phase {
-        %cfg<$phase ~ '_' ~ 'handler> = undef;
+        %cfg{$phase ~ '_handler'} = undef;
     }
 
     return %cfg;