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