Changeset 18590

Timestamp:

09/01/08 21:59:20 (5 years ago)

Author:

yappo

Message:

replace of unique key

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/ModPerl.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/ModPerl.pm

@@ -63 +63 @@
 );
 
+has context_key => (
+    is      => 'rw',
+    isa     => 'Str',
+);
+
 no Moose;
 
@@ -71 +76 @@
     my $class = shift;
     my $r     = shift;
+    my $server = $r->server;
 
     # ModPerl is currently the only environment where the inteface comes
     # before the actual invocation of HTTP::Engine
 
-    my $location = $r->location;
-    my $engine   = $HE{ $location };
+    my $context_key = join ':', $server->server_hostname, $server->port, $r->location;
+    my $engine   = $HE{ $context_key };
     if (! $engine ) {
-        $engine = $class->create_engine($r);
-        $HE{ $r->location } = $engine;
+        $engine = $class->create_engine($r, $context_key);
+        $HE{ $context_key } = $engine;
     }
 
     $engine->interface->apache( $r );
+    $engine->interface->context_key( $context_key );
 
-    my $server = $r->server;
     my $connection = $r->connection;