Stringifizierbare Klassen laden, bevor YAML::Load() aufgerufen wird

[kivitendo-erp.git] / SL / Auth / SessionValue.pm

diff --git a/SL/Auth/SessionValue.pm b/SL/Auth/SessionValue.pm
index 6bf65b9..cb1c7e3 100644 (file)
--- a/SL/Auth/SessionValue.pm
+++ b/SL/Auth/SessionValue.pm
@@ -2,6 +2,10 @@ package SL::Auth::SessionValue;
 
 use strict;
 
+# Classes that overload stringification must be known before
+# YAML::Load() is called.
+use SL::Locale::String ();
+
 use Scalar::Util qw(weaken);
 use YAML;
 
@@ -33,6 +37,7 @@ sub get {
 
 sub get_dumped {
   my ($self) = @_;
+  local $YAML::Stringify = 1;
   return YAML::Dump($self->get);
 }