From a0f11aea9aa5878f97c9002ec412747bbc210763 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 24 Mar 2016 20:47:47 +0000 Subject: [PATCH] Bug 16044: Populate the L1 cache when L2 is fetched The whole patch set is not very pertinent is the L1 cache is not populated when L2 is fetched! This patch fixes this inconsistency. Signed-off-by: Jesse Weaver --- Koha/Cache.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Koha/Cache.pm b/Koha/Cache.pm index d3d52ec..bf116c3 100644 --- a/Koha/Cache.pm +++ b/Koha/Cache.pm @@ -329,7 +329,13 @@ sub get_from_cache { } my $get_sub = $self->{ref($self->{$cache}) . "_get"}; - return $get_sub ? $get_sub->($key) : $self->{$cache}->get($key); + my $value = $get_sub ? $get_sub->($key) : $self->{$cache}->get($key); + + # Update the L1 cache when fetching the L2 cache + # Otherwise the L1 cache won't never be populated + $L1_cache{$key} = $value; + + return $value; } =head2 clear_from_cache -- 2.7.0