diff --git a/FU.pm b/FU.pm index 1a826e1..106322e 100644 --- a/FU.pm +++ b/FU.pm @@ -663,7 +663,7 @@ sub log_verbose($,$msg) { 'Headers:', (map " $_: $r->{hdr}{$_}", sort keys $r->{hdr}->%*), $r->{multipart} ? ('Body (multipart):', _fmt_section join "\n", map $_->describe, $r->{multipart}->@*) : $r->{json} ? ('Body (JSON):', _fmt_section FU::Util::json_format($r->{json}, pretty => 1, canonical => 1)) : - $r->{formdata} ? ('Body (formdata):', _fmt_section FU::Util::json_format($r->{json}, pretty => 1, canonical => 1)) : + $r->{formdata} ? ('Body (formdata):', _fmt_section FU::Util::json_format($r->{formdata}, pretty => 1, canonical => 1)) : length $r->{body} ? do { my $b = substr $r->{body}, 0, 4096; my $trunc = length $r->{body} > 4096 ? ', truncated' : '';