dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Errors were not reported

Browse Source
This commit is contained in:
Xavier Guimard 2016-01-07 12:34:27 +00:00
parent e2745c5e83
commit fbf1226710
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/Serializer.pm
View File

@ -1,5 +1,7 @@
package Lemonldap::NG::Common::Conf::Serializer;
use strict;
use utf8;
use Data::Dumper;
our $VERSION = '1.9.0';
@ -160,12 +162,12 @@ sub unserialize {
# Value should be a Data::Dumper, else this is an old format
if ( defined($v) and $v !~ /^\$/ ) {
$msg .=
$Lemonldap::NG::Common::Conf::msg .=
" Warning: configuration is in old format, you've to migrate!";
eval { require Storable; require MIME::Base64; };
if ($@) {
$msg .= " Error: $@";
$Lemonldap::NG::Common::Conf::msg .= " Error: $@";
return 0;
}
$conf->{$k} = Storable::thaw( MIME::Base64::decode_base64($v) );
@ -181,7 +183,7 @@ sub unserialize {
eval $v;
if ($@) {
$msg .= " Error: cannot read configuration key $k: $@";
$Lemonldap::NG::Common::Conf::msg .= " Error: cannot read configuration key $k: $@";
}
# Store value in configuration object