Update regex to require an end quote

rstudio · Nov 20, 2023 · 4181d23 · 4181d23
1 parent 5b356a1
commit 4181d23
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/parse-body.R b/R/parse-body.R
@@ -519,7 +519,8 @@ parser_multi <- function() {
     if (!stri_detect_fixed(content_type, "boundary=", case_insensitive = TRUE))
       stop("No boundary found in multipart content-type header: ", content_type)
     boundary <- stri_match_first_regex(content_type, "boundary=([^; ]{2,})", case_insensitive = TRUE)[,2]
-    boundary <- stri_replace_first_regex(boundary, '^"([^"]+)"?', "$1")
+    # Remove surrounding quotes if they exist
+    boundary <- stri_replace_first_regex(boundary, '^"([^"]+)"$', "$1")
     toparse <- parse_multipart(value, boundary)
 
     # set the names of the items as the `name` of each item