From 378a912bf79e1e5b6384b02b14919371ac0c4785 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Thu, 7 Feb 2008 20:31:11 +0100
Subject: Provisions for mod_perl use, take one.

---
 lib/LXRng/Cached.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/LXRng/Cached.pm')

diff --git a/lib/LXRng/Cached.pm b/lib/LXRng/Cached.pm
index 9c30d82..f27d3c2 100644
--- a/lib/LXRng/Cached.pm
+++ b/lib/LXRng/Cached.pm
@@ -1,6 +1,8 @@
 package LXRng::Cached;
 
 use strict;
+use LXRng;
+
 require Exporter;
 use vars qw($memcached @ISA @EXPORT);
 @ISA = qw(Exporter);
@@ -12,9 +14,11 @@ BEGIN {
 	   require Digest::SHA1;
        };
     if ($@ eq '') {
+	my $nspace = substr(Digest::SHA1::sha1_hex($LXRng::ROOT), 0, 8);
+	
 	$memcached = Cache::Memcached->new({
 	    'servers' => ['127.0.0.1:11211'],
-	    'namespace' => 'lxrng'});
+	    'namespace' => 'lxrng:$nspace'});
 	$memcached = undef 
 	    unless ($memcached->set(':caching' => 1))
     }
-- 
cgit v1.2.3