fix percent encoding on control chars

c-cube · Dec 6, 2024 · 1318d46 · 1318d46
1 parent 1c61c39
commit 1318d46
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/util.ml b/src/core/util.ml
@@ -6,7 +6,8 @@ let percent_encode ?(skip = fun _ -> false) s =
       | ( ' ' | '!' | '"' | '#' | '$' | '%' | '&' | '\'' | '(' | ')' | '*' | '+'
         | ',' | '/' | ':' | ';' | '=' | '?' | '@' | '[' | ']' | '~' ) as c ->
         Printf.bprintf buf "%%%X" (Char.code c)
-      | c when Char.code c > 127 -> Printf.bprintf buf "%%%X" (Char.code c)
+      | c when Char.code c < 32 || Char.code c > 127 ->
+        Printf.bprintf buf "%%%X" (Char.code c)
       | c -> Buffer.add_char buf c)
     s;
   Buffer.contents buf