Allow colon to be escaped when building the path segments

lib/plug/router/utils.ex

@@ -127,7 +127,7 @@
   including the known parameters.
   """
   def build_path_clause(path, guard, context \\ nil) when is_binary(path) do
-    compiled = :binary.compile_pattern([":", "*"])
+    compiled = :binary.compile_pattern(["\\:", ":", "*"])
 
     {params, match, guards, post_match} =
       path
@@ -148,6 +148,12 @@
       [] ->
         build_path_clause(rest, params, [segment | match], guards, post_match, context, compiled)
 
+      [{prefix_size, match_length}] when match_length == 2 ->
+        suffix_size = byte_size(segment) - prefix_size - 2
+        <<prefix::binary-size(prefix_size), "\\:", suffix::binary-size(suffix_size)>> = segment
+        escaped_segment = [prefix <> ":" <> suffix | match]
+        build_path_clause(rest, params, match, guards, post_match, context, compiled)
+
       [{prefix_size, _}] ->
         suffix_size = byte_size(segment) - prefix_size - 1
         <<prefix::binary-size(prefix_size), char, suffix::binary-size(suffix_size)>> = segment

test/plug/router/utils_test.exs

@@ -60,6 +60,19 @@
              build_path_match("foo/bar:username")
   end
 
+  test "build match with escaped identifiers" do
+    assert quote(@opts, do: {[], ["foo", ":id"]}) == build_path_match("/foo/\\:id")
+    assert quote(@opts, do: {[], ["foo", ":username"]}) == build_path_match("foo/\\:username")
+
+    assert quote(@opts, do: {[:id, :post_id], ["foo", id, ":name", post_id]}) ==
+             build_path_match("/foo/:id/\\:name/:post_id")
+
+    assert quote(@opts, do: {[], ["foo", "bar-:id"]}) == build_path_match("/foo/bar-\\:id")
+
+    assert quote(@opts, do: {[], ["foo", "bar:batchDelete"]}) ==
+             build_path_match("foo/bar\\:batchDelete")
+  end
+
   test "build match only with glob" do
     assert quote(@opts, do: {[:bar], bar}) == build_path_match("*bar")
     assert quote(@opts, do: {[:glob], glob}) == build_path_match("/*glob")