|
Lines 139-147
sub _initialize_memcached {
Link Here
|
| 139 |
utf8 => 1, |
139 |
utf8 => 1, |
| 140 |
} |
140 |
} |
| 141 |
); |
141 |
); |
|
|
142 |
|
| 142 |
# Ensure we can actually talk to the memcached server |
143 |
# Ensure we can actually talk to the memcached server |
| 143 |
my $ismemcached = $memcached->set('ismemcached','1'); |
144 |
my $ismemcached = $memcached->set('ismemcached','1'); |
| 144 |
return $self unless $ismemcached; |
145 |
unless ($ismemcached) { #Value is undefined or False, so there was an error with the server, the connection to it, or a protocol error |
|
|
146 |
warn "Connection to the memcached servers '@servers' failed. Are the unix socket permissions set properly? Is the host reachable?"; |
| 147 |
return $self; |
| 148 |
} |
| 145 |
$self->{'memcached_cache'} = $memcached; |
149 |
$self->{'memcached_cache'} = $memcached; |
| 146 |
return $self; |
150 |
return $self; |
| 147 |
} |
151 |
} |
| 148 |
- |
|
|