JSON-Payload: Content-Type-Header richtig parsen

Content-Type kann auch noch Attribute wie »; charset=UTF-8«
enthalten. Muss ignoriert werden.

diff --git a/SL/Request.pm b/SL/Request.pm
index 0808bd1..c33b6b3 100644 (file)
--- a/SL/Request.pm
+++ b/SL/Request.pm
@@ -308,7 +308,7 @@ sub read_cgi_input {
 
       $target->{$_} = $self->post_data->{$_} for keys %{ $self->post_data };
 
-    } elsif (($ENV{CONTENT_TYPE} // '') eq 'application/json') {
+    } elsif (($ENV{CONTENT_TYPE} // '') =~ m{^application/json}i) {
       $self->post_data(_parse_json_formdata($content));
 
     } else {