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

Author: jhorwitz
Date: Mon Sep  7 12:34:17 2009
New Revision: 667

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

Log:
remove commented code
add missing MODPERL6 environment variable


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	Mon Sep  7 12:34:17 2009
@@ -83,8 +83,7 @@
     # XXX use %*ENV when Rakudo RT #61412 is fixed
     my $args = $r.args();
     my $uri = $args ?? ($r.uri() ~ '?' ~ $args) !! $r.uri();
-    #ModPerl6::Fudge::setenv('MODPERL6', 1);
-    #ModPerl6::Fudge::setenv('QUERY_STRING', $args);
+    %*ENV<MODPERL6> = 1;
     %*ENV<QUERY_STRING> = $args;
     %*ENV<PATH_INFO> = $r.path_info;
     %*ENV<REQUEST_METHOD> = $r.method;

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