Don't attempt to parse body when content-type is NIL

fukamachi · Sep 6, 2019 · 9c607b8 · 9c607b8
1 parent 2921d36
commit 9c607b8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/v1-compat/src/core/request.lisp b/v1-compat/src/core/request.lisp
@@ -181,7 +181,8 @@ on an original raw-body."
 
       (setf (getf env :raw-body) (slot-value req 'raw-body))
       ;; POST parameters
-      (unless (slot-boundp req 'body-parameters)
+      (unless (or (null (content-type req))
+                  (slot-boundp req 'body-parameters))
         (setf (slot-value req 'body-parameters)
               (parse (content-type req) (content-length req) (raw-body req)))
         (file-position (raw-body req) 0)