X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e0ba33ff38a40207472185d639567966e136da6b..f50ddd66b0b90f206c762c95770da530cb0b7d69:/SL/Auth/SessionValue.pm diff --git a/SL/Auth/SessionValue.pm b/SL/Auth/SessionValue.pm index 6bf65b923..cb1c7e386 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,7 @@ sub get { sub get_dumped { my ($self) = @_; + local $YAML::Stringify = 1; return YAML::Dump($self->get); }