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;