diff options
author | matthew <matthew> | 2008-10-10 15:57:28 +0000 |
---|---|---|
committer | matthew <matthew> | 2008-10-10 15:57:28 +0000 |
commit | 934ff73f1f1e609a89248dec4d45c8161d461550 (patch) | |
tree | a732017114a139454b2f986c333fe31ace4ed296 | |
parent | 50e4a4f3a7a55bb79a6933cf07f9e80dfe87e4fd (diff) |
Don't use connect()!
-rw-r--r-- | perllib/Memcached.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perllib/Memcached.pm b/perllib/Memcached.pm index 74de598fe..b612dd5ac 100644 --- a/perllib/Memcached.pm +++ b/perllib/Memcached.pm @@ -5,7 +5,7 @@ # Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Memcached.pm,v 1.2 2008-10-10 15:44:49 matthew Exp $ +# $Id: Memcached.pm,v 1.3 2008-10-10 15:57:28 matthew Exp $ # package Memcached; @@ -20,7 +20,7 @@ sub set_namespace { $namespace = 'fms' if $namespace eq 'fixmystreet'; } -sub connect { +sub cache_connect { $memcache = new Cache::Memcached { 'servers' => [ '127.0.0.1:11211' ], 'namespace' => $namespace, @@ -30,12 +30,12 @@ sub connect { } sub get { - connect() unless $memcache; + cache_connect() unless $memcache; $memcache->get(@_); } sub set { - connect() unless $memcache; + cache_connect() unless $memcache; $memcache->set(@_); } |