Merge pull request #8562 from ehuelsmann/fix/1.12/get-with-content_type

Ignore 'Content-Type' header if there's no body
ledgersmb · Jan 2, 2025 · ed260fe · ed260fe
2 parents 486b9f1 + f505f11
commit ed260fe
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/LedgerSMB/Router.pm b/lib/LedgerSMB/Router.pm
@@ -480,7 +480,8 @@ sub api {
             my $schema = $settings->api_validator;
             my $req = Plack::Request::WithEncoding->new($env);
             my $has_body = ($req->headers->content_length() // 0) > 0;
-            my $body = ($req->headers->content_type eq 'application/json') ?
+            my $content_type = $has_body ? $req->headers->content_type : '';
+            my $body = ($has_body and $content_type eq 'application/json') ?
                 json()->decode($req->content) : '';
             # bug: multipart/form-data wants to be validated and
             # so does application/x-www-form-urlencoded
@@ -493,7 +494,7 @@ sub api {
                         path => $params,
                         header => { $req->headers->psgi_flatten->@* },
                         query => $req->query_parameters->as_hashref_mixed,
-                        body => [ $has_body, $req->headers->content_type, $body ]
+                        body => [ $has_body, $content_type, $body ]
                     });
             if (scalar(@$errors) > 0) {
                 my ($err) = @$errors;