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