From 25fdc18f77edf29a94527ad812481c91c80c701c Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Thu, 10 Mar 2016 09:12:52 +0000
Subject: [PATCH] Bug 11998: Clear L1 cache from psgi files

Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>
Signed-off-by: Jacek Ablewicz <abl@biblos.pk.edu.pl>

Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com
(cherry picked from commit 55b78f1a5dbbff5a790971e2f5a99ebdd6a3f18a)
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
---
 debian/templates/plack.psgi | 1 +
 misc/plack/koha.psgi        | 1 +
 2 files changed, 2 insertions(+)

diff --git a/debian/templates/plack.psgi b/debian/templates/plack.psgi
index 559e5985bf..b6bd67f43f 100644
--- a/debian/templates/plack.psgi
+++ b/debian/templates/plack.psgi
@@ -44,6 +44,7 @@ use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
     *CGI::new = sub {
         my $q = $old_new->( @_ );
         $CGI::PARAM_UTF8 = 1;
+        C4::Context->clear_syspref_L1_cache();
         return $q;
     };
 }
diff --git a/misc/plack/koha.psgi b/misc/plack/koha.psgi
index 89dbb6516b..947bb0277f 100644
--- a/misc/plack/koha.psgi
+++ b/misc/plack/koha.psgi
@@ -12,6 +12,7 @@ use CGI qw(-utf8 ); # we will loose -utf8 under plack
     *CGI::new = sub {
         my $q = $old_new->( @_ );
         $CGI::PARAM_UTF8 = 1;
+        C4::Context->clear_syspref_L1_cache();
         return $q;
     };
 }
-- 
2.39.5