Don't allow slashes in URL suffix

Signed-off-by: David Allsopp <david.allsopp@metastack.com>
OCamlPro · Mar 17, 2018 · dcdb6b3 · dcdb6b3
1 parent d19f11a
commit dcdb6b3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/opamUrl.ml b/src/core/opamUrl.ml
@@ -47,7 +47,7 @@ let split_url =
         group @@ seq [
           non_greedy @@ rep @@ diff any (char '#');
           (* If there's a .suffix, group it separately (used for backend guessing) *)
-          opt @@ seq [ char '.'; group @@ rep1 @@ diff any (set ".#")]
+          opt @@ seq [ char '.'; group @@ rep1 @@ diff any (set "\\/.#")]
         ];
         (* Parse the fragment (git branch, etc.) *)
         opt @@ seq [ char '#'; group @@ rep any ];