X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e0ba33ff38a40207472185d639567966e136da6b..c815c7236e442a9117808af8a3cc8445f5a35203:/SL/Auth/SessionValue.pm

diff --git a/SL/Auth/SessionValue.pm b/SL/Auth/SessionValue.pm
index 6bf65b923..cfaa6245c 100644
--- 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,8 @@ sub get {
 
 sub get_dumped {
   my ($self) = @_;
+  no warnings 'once';
+  local $YAML::Stringify = 1;
   return YAML::Dump($self->get);
 }