From a502ae7b68bd2edeeeaaa163834b5a7854a6ac22 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Sat, 5 Jun 2021 15:27:02 +0200
Subject: [PATCH] Bug 28489: Don't deal with encoding during the serialization

Signed-off-by: David Cook <dcook@prosentient.com.au>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 C4/Auth.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index cf254ba60e..cb35984b2e 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -9,19 +9,18 @@ $INC{'CGI/Session/Serialize/yamlxs.pm'} = '1';
 
 use CGI::Session::ErrorHandler;
 use YAML::XS ();
-use Encode ();
 
 $CGI::Session::Serialize::yamlxs::VERSION = '0.1';
 @CGI::Session::Serialize::yamlxs::ISA     = ( "CGI::Session::ErrorHandler" );
 
 sub freeze {
     my ($self, $data) = @_;
-    return Encode::decode_utf8(YAML::XS::Dump($data));
+    return YAML::XS::Dump($data);
 }
 
 sub thaw {
     my ($self, $string) = @_;
-    return (YAML::XS::Load(Encode::encode_utf8($string)))[0];
+    return (YAML::XS::Load($string))[0];
 }
 # ********************************************************************
 
-- 
2.39.5