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

Author: jhorwitz
Date: Tue Jun 16 12:43:10 2009
New Revision: 646

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

Log:
remove some workarounds for rakudo bugs


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 Jun 16 12:43:10 2009
@@ -30,9 +30,7 @@
     parseheaders
 >.map({($_,1)});
 our @server_phases = <open_logs post_config child_init pre_connection
-     process_connection post_read_request map_to_storage>;
-# XXX workaround parsing bug w/ 8 elements
-@server_phases.push('trans'); 
+     process_connection post_read_request map_to_storage trans>;
 our @dir_phases = <header_parser access authen authz response type fixup log
          cleanup>;
 
@@ -52,12 +50,6 @@
     %cfg<preloaded_modules> = [];
     %cfg<postconfig_requires> = [];
 
-    # server-scope config
-    # XXX we shouldn't need to prepopulate these, but things segfault otherwise
-    for @server_phases.map({$_ ~ '_handler'}) -> $h {
-        %cfg{$h} = undef;
-    }
-
     return %cfg;
 }
 
@@ -65,12 +57,6 @@
 {
     my %cfg;
 
-    # section-scope config
-    # XXX we shouldn't need to prepopulate these, but things segfault otherwise
-    for @dir_phases.map({$_ ~ '_handler'}) -> $h {
-        %cfg{$h} = undef;
-    }
-
     # options set with Perl6Options
     %cfg<options> = {
         parseheaders => False,