Date:	Mon Sep  7 19:34:17 2009
Subject:	[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;