|
Lines 122-131
sub new {
Link Here
|
| 122 |
|
122 |
|
| 123 |
sub _initialize_memcached { |
123 |
sub _initialize_memcached { |
| 124 |
my ($self) = @_; |
124 |
my ($self) = @_; |
| 125 |
my @servers = |
125 |
my @servers = split /,/, $ENV{MEMCACHED_SERVERS} || ''; |
| 126 |
split /,/, $self->{'cache_servers'} |
|
|
| 127 |
? $self->{'cache_servers'} |
| 128 |
: ($ENV{MEMCACHED_SERVERS} || ''); |
| 129 |
return if !@servers; |
126 |
return if !@servers; |
| 130 |
|
127 |
|
| 131 |
$ENV{DEBUG} |
128 |
$ENV{DEBUG} |
| 132 |
- |
|
|