correctly print string return values

This commit is contained in:
Dietmar Maurer 2011-12-21 08:55:53 +01:00
parent e09058af9a
commit f28d0dcfba

View File

@ -224,8 +224,16 @@ sub call_method {
warn "200 OK\n"; # always print OK status if successful
return if $info && $info->{returns} &&
$info->{returns}->{type} && $info->{returns}->{type} eq 'null';
if ($info && $info->{returns} && $info->{returns}->{type}) {
my $rtype = $info->{returns}->{type};
return if $rtype eq 'null';
if ($rtype eq 'string') {
print $data;
return $data;
}
}
print to_json($data, {allow_nonref => 1, canonical => 1, pretty => 1 });