From 45a09609d6bd5eae2dd36bb0e599d5ebe03fe4c1 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 28 Jul 2016 08:43:48 +0200 Subject: [PATCH] Bug 16365: [QA Follow-up] Add some comment lines to Cache.pm Resolve typo inifinite too. Adds a few lines in order to stress that the thawed key of the L1 cache SHOULD ONLY be used for unsafe calls, and not be mixed with regular (safe) calls. Test plan: Nothing to test, but verify the quality of the added comments. Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart --- Koha/Cache.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Koha/Cache.pm b/Koha/Cache.pm index 0f85ed1..c31d0b7 100644 --- a/Koha/Cache.pm +++ b/Koha/Cache.pm @@ -264,7 +264,10 @@ sub set_in_cache { my $flag = '-CF0'; # 0: scalar, 1: frozen data structure if (ref($value)) { - # Set in L1 cache as a data structure, initially only in frozen form (for performance reasons) + # Set in L1 cache as a data structure + # We only save the frozen form: we do want to save $value in L1 + # directly in order to protect it. And thawing now may not be + # needed, so improves performance. $value = $L1_encoder->encode($value); $L1_cache{$key}->{frozen} = $value; $flag = '-CF1'; @@ -275,7 +278,7 @@ sub set_in_cache { } $value .= $flag; - # We consider an expiry of 0 to be inifinite + # We consider an expiry of 0 to be infinite if ( $expiry ) { return $set_sub ? $set_sub->( $key, $value, $expiry ) @@ -327,6 +330,7 @@ sub get_from_cache { if ( exists $L1_cache{$key} ) { if (ref($L1_cache{$key})) { if ($unsafe) { + # ONLY use thawed for unsafe calls !!! $L1_cache{$key}->{thawed} ||= $L1_decoder->decode($L1_cache{$key}->{frozen}); return $L1_cache{$key}->{thawed}; } else { @@ -355,6 +359,7 @@ sub get_from_cache { eval { $thawed = $L1_decoder->decode($L2_value); }; return if $@; $L1_cache{$key}->{frozen} = $L2_value; + # ONLY save thawed for unsafe calls !!! $L1_cache{$key}->{thawed} = $thawed if $unsafe; return $thawed; } -- 2.8.1