Commit 8fb435e0 authored by Leigh B Stoller's avatar Leigh B Stoller

Fix to previous revision, for json encoding.

parent 2403c46c
......@@ -144,7 +144,7 @@ sub SendEvent($$)
foreach my $key (keys(%{ $hash })) {
my $val = $hash->{$key};
if (ref($val)) {
$val = eval { encode_json($val); };
$val = eval { $json->encode($val); };
if ($@) {
print STDERR "Could not json encode event data: $@\n";
print STDERR Dumper($hash->{$key});
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment