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

(-)a/Koha/Cache.pm (-3 / +2 lines)
Lines 283-289 sub set_in_cache { Link Here
283
    my $set_sub = $self->{ref($self->{$cache}) . "_set"};
283
    my $set_sub = $self->{ref($self->{$cache}) . "_set"};
284
284
285
    # Deep copy if it's not a scalar and unsafe is not passed
285
    # Deep copy if it's not a scalar and unsafe is not passed
286
    $value = clone( $value ) if ref($value) and not $unsafe;
286
    $value = dclone( $value ) if ref($value) and not $unsafe;
287
287
288
    # Set in L1 cache
288
    # Set in L1 cache
289
    $L1_cache{ $key } = $value;
289
    $L1_cache{ $key } = $value;
Lines 339-345 sub get_from_cache { Link Here
339
    # Otherwise the L1 cache won't ever be populated
339
    # Otherwise the L1 cache won't ever be populated
340
    $L1_cache{$key} = $value;
340
    $L1_cache{$key} = $value;
341
341
342
    $value = clone $value if ref $L1_cache{$key} and not $unsafe;
342
    $value = dclone $value if ref $L1_cache{$key} and not $unsafe;
343
343
344
    return $value;
344
    return $value;
345
}
345
}
346
- 

Return to bug 16221