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

Author: jhorwitz
Date: Tue Dec  2 08:52:35 2008
New Revision: 512

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

Log:
set SERVER_NAME 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	Tue Dec  2 08:52:35 2008
@@ -41,6 +41,9 @@
     %*ENV<REQUEST_METHOD> := $r.method();
     %*ENV<CONTENT_LENGTH> := $content_length;
     %*ENV<HTTP_COOKIE> := $cookies;
+    %*ENV<SERVER_NAME> := $r.hostname;
+    # XXX requires server_rec
+    # %*ENV<SERVER_PORT> := ;
 
     my $interp = ModParrot::Interpreter.new();
     $interp.capture_stdout(1);