Attachment #92827 for bug #13193

View | Details | Raw Unified | Return to bug 13193
Collapse All | Expand All

Lines 265-271 our $PERL_DEPS = { Link Here

(-)a/C4/Installer/PerlDependencies.pm (-1 / +6 lines)
265	'Cache::Memcached::Fast' => {	265	'Cache::Memcached::Fast' => {
266	'usage' => 'Caching',	266	'usage' => 'Caching',
267	'required' => '0',	267	'required' => '0',
268	'min_ver' => '0.17'	268	'min_ver' => '0.19'
		269	},
		270	'Cache::Memcached::Fast::Safe' => {
		271	'usage' => 'Caching',
		272	'required' => '0',
		273	'min_ver' => '0.06'
269	},	274	},
270	'Cache::FastMmap' => {	275	'Cache::FastMmap' => {
271	'usage' => 'Caching',	276	'usage' => 'Caching',




    $self->{namespace} .= ":$subnamespace:";

    if ( $self->{'default_type'} eq 'memcached'
        && can_load( modules => { 'Cache::Memcached::Fast::Safe' => undef } )
        && _initialize_memcached($self, @servers)
        && defined( $self->{'memcached_cache'} ) )
    {

      . join( ', ', @servers )
      . " with "
      . $self->{'namespace'};
    # Cache::Memcached::Fast::Safe doesn't allow a default expire time to be set
    # so we force it on setting.
    my $memcached = Cache::Memcached::Fast::Safe->new(
        {
            servers            => \@servers,
            compress_threshold => 10_000,

Lines 102-108 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt (-2 / +1 lines)
102	[% CASE # nowhere %]	102	[% CASE # nowhere %]
103	<span class="status_warn">Nowhere</span> Note that the right place to define the memcached config is in your $KOHA_CONF file. Currently you do not have a valid memcached configuration defined.	103	<span class="status_warn">Nowhere</span> Note that the right place to define the memcached config is in your $KOHA_CONF file. Currently you do not have a valid memcached configuration defined.
104	[% END %]	104	[% END %]
105	[% IF effective_caching_method != 'Cache::Memcached::Fast' %]	105	[% IF effective_caching_method != 'Cache::Memcached::Fast::Safe' %]
106	\| Effective caching method: [% effective_caching_method \| html %]	106	\| Effective caching method: [% effective_caching_method \| html %]
107	[% END %]	107	[% END %]
108	</td>	108	</td>
109	-

Return to bug 13193

Lines 87-93 sub new { Link Here

(-)a/Koha/Cache.pm (-3 / +3 lines)
87	$self->{namespace} .= ":$subnamespace:";	87	$self->{namespace} .= ":$subnamespace:";
88		88
89	if ( $self->{'default_type'} eq 'memcached'	89	if ( $self->{'default_type'} eq 'memcached'
90	&& can_load( modules => { 'Cache::Memcached::Fast' => undef } )	90	&& can_load( modules => { 'Cache::Memcached::Fast::Safe' => undef } )
91	&& _initialize_memcached($self, @servers)	91	&& _initialize_memcached($self, @servers)
92	&& defined( $self->{'memcached_cache'} ) )	92	&& defined( $self->{'memcached_cache'} ) )
93	{	93	{
Lines 120-128 sub _initialize_memcached { Link Here
120	. join( ', ', @servers )	120	. join( ', ', @servers )
121	. " with "	121	. " with "
122	. $self->{'namespace'};	122	. $self->{'namespace'};
123	# Cache::Memcached::Fast doesn't allow a default expire time to be set	123	# Cache::Memcached::Fast::Safe doesn't allow a default expire time to be set
124	# so we force it on setting.	124	# so we force it on setting.
125	my $memcached = Cache::Memcached::Fast->new(	125	my $memcached = Cache::Memcached::Fast::Safe->new(
126	{	126	{
127	servers => \@servers,	127	servers => \@servers,
128	compress_threshold => 10_000,	128	compress_threshold => 10_000,