summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/TUWF.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/TUWF.pm b/lib/TUWF.pm
index 6818f9e..3d87ddb 100644
--- a/lib/TUWF.pm
+++ b/lib/TUWF.pm
@@ -487,7 +487,10 @@ sub _handle_error {
"HTTP Request Headers:\n".
join('', map sprintf(" %s: %s\n", $_, $self->reqHeader($_)), $self->reqHeader).
"POST dump:\n".
- join('', map sprintf(" %s: %s\n", $_, join "\n ", $self->reqPosts($_)), $self->reqPosts).
+ ($self->reqJSON()
+ ? JSON::XS->new->pretty->encode($self->reqJSON())
+ : join('', map sprintf(" %s: %s\n", $_, join "\n ", $self->reqPosts($_)), $self->reqPosts)
+ ).
"Error:\n $err\n"
) if ref $err ne 'TUWF::Exception';
}