develooper Front page | perl.cvs.mod_parrot | Postings from September 2009

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

From:
jhorwitz
Date:
September 7, 2009 12:34
Subject:
[svn:mod_parrot] r667 - mod_parrot/trunk/languages/perl6/lib/ModPerl6
Message ID:
20090907193417.AB3311844F5@xx12.develooper.com
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;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About