commit 8dc5269d59e2d5d9eb1647d82c449ccd880f7fd0
Author: Theo van Hoesel <tvanhoesel@perceptyx.com>
Date:   Tue Jun 21 20:00:47 2022 +0000

    Include reason in response body content

diff --git a/lib/HTTP/Daemon.pm b/lib/HTTP/Daemon.pm
index a5112b3..2d022ae 100644
--- a/lib/HTTP/Daemon.pm
+++ b/lib/HTTP/Daemon.pm
@@ -299,16 +299,18 @@ READ_HEADER:
         # check that they are all numbers (RFC: Content-Length = 1*DIGIT)
         my @nums = grep { /^[0-9]+$/} @vals;
         unless (@vals == @nums) {
-            $self->send_error(400);
-            $self->reason("Content-Length value must be a unsigned integer");
+            my $reason = "Content-Length value must be an unsigned integer";
+            $self->send_error(400, $reason);
+            $self->reason($reason);
             return;
         }
         # check they are all the same
         my $ct_len = shift @nums;
         foreach (@nums) {
             next if $_ == $ct_len;
-            $self->send_error(400);
-            $self->reason("Content-Length values are not the same");
+            my $reason = "Content-Length values are not the same";
+            $self->send_error(400, $reason);
+            $self->reason($reason);
             return;
         }
         # ensure we have now a fixed header, with only 1 value