[svn:mod_parrot] r413 - mod_parrot/trunk/languages/perl6/lib/ModPerl6

Author: jhorwitz
Date: Sat Aug 30 08:16:38 2008
New Revision: 413

Modified:
   mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm

Log:
set some CGI environment variables


Modified: mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm
==============================================================================
--- mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm	(original)
+++ mod_parrot/trunk/languages/perl6/lib/ModPerl6/Registry.pm	Sat Aug 30 08:16:38 2008
@@ -31,6 +31,9 @@
         %registry{$mod} = $script;
     }
 
+    %*ENV<QUERY_STRING> = $r.args();
+    %*ENV<REQUEST_METHOD> = $r.method();
+
     my $interp = ModParrot::Interpreter.new();
     $interp.capture_stdout(1);
     my $mod = %registry{$script};