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

Author: jhorwitz
Date: Fri Feb  6 06:14:38 2009
New Revision: 603

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

Log:
work around rakudo parsing but w/ 8 list elements (no TT # yet)


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 Feb  6 06:14:38 2009
@@ -29,7 +29,9 @@
     parseheaders
 >.map({($_,1)});
 our @server_phases = <open_logs post_config child_init pre_connection
-     process_connection post_read_request map_to_storage trans>;
+     process_connection post_read_request map_to_storage>;
+# XXX workaround parsing bug w/ 8 elements
+@server_phases.push('trans'); 
 our @dir_phases = <header_parser access authen authz response type fixup log
          cleanup>;
 

• [svn:mod_parrot] r603 - mod_parrot/trunk/languages/perl6/lib by jhorwitz