View | Details | Raw Unified | Return to bug 28489
Collapse All | Expand All

(-)a/C4/Auth.pm (-4 / +2 lines)
Lines 9-27 $INC{'CGI/Session/Serialize/yamlxs.pm'} = '1'; Link Here
9
9
10
use CGI::Session::ErrorHandler;
10
use CGI::Session::ErrorHandler;
11
use YAML::XS ();
11
use YAML::XS ();
12
use Encode ();
13
12
14
$CGI::Session::Serialize::yamlxs::VERSION = '0.1';
13
$CGI::Session::Serialize::yamlxs::VERSION = '0.1';
15
@CGI::Session::Serialize::yamlxs::ISA     = ( "CGI::Session::ErrorHandler" );
14
@CGI::Session::Serialize::yamlxs::ISA     = ( "CGI::Session::ErrorHandler" );
16
15
17
sub freeze {
16
sub freeze {
18
    my ($self, $data) = @_;
17
    my ($self, $data) = @_;
19
    return Encode::decode_utf8(YAML::XS::Dump($data));
18
    return YAML::XS::Dump($data);
20
}
19
}
21
20
22
sub thaw {
21
sub thaw {
23
    my ($self, $string) = @_;
22
    my ($self, $string) = @_;
24
    return (YAML::XS::Load(Encode::encode_utf8($string)))[0];
23
    return (YAML::XS::Load($string))[0];
25
}
24
}
26
# ********************************************************************
25
# ********************************************************************
27
26
28
- 

Return to bug 28489