git-svn-id: https://svn.fhem.de/fhem/trunk@14349 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2017-05-22 20:52:18 +00:00
parent d6c993077d
commit a2b3a7241d

View File

@@ -196,9 +196,9 @@ sub _fi2_to_json {
$val =~ s/([\0-\x1f\"\\])/sprintf "\\u%04x", ord $1/eg; $val =~ s/([\0-\x1f\"\\])/sprintf "\\u%04x", ord $1/eg;
return '"' . $val . '"'; return '"' . $val . '"';
} elsif (ref $val eq 'ARRAY') { } elsif (ref $val eq 'ARRAY') {
return '[' . join(',', map to_json($_), @$val) . ']'; return '[' . join(',', map _fi2_to_json($_), @$val) . ']';
} elsif (ref $val eq 'HASH') { } elsif (ref $val eq 'HASH') {
return '{' . join(',', map to_json($_) . ":" . to_json($val->{$_}), sort keys %$val) . '}'; return '{' . join(',', map _fi2_to_json($_) . ":" . _fi2_to_json($val->{$_}), sort keys %$val) . '}';
} else { } else {
return "Cannot encode $val as JSON!\n"; return "Cannot encode $val as JSON!\n";
} }