Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion src/watermarks.ml
Original file line number Diff line number Diff line change
Expand Up @@ -62,6 +62,7 @@ let make_watermark_map ~name ~version ~commit =
let subst_string s path ~map =
let len = String.length s in
let longest_var = String.longest (String.Map.keys map) in
let double_percent_len = String.length "%%" in
let loc_of_offset ~ofs ~len =
let rec loop lnum bol i =
if i = ofs then
Expand Down Expand Up @@ -104,7 +105,7 @@ let subst_string s path ~map =
| 'A'..'Z' | '_' -> in_var ~start (i + 1) acc
| _ -> loop (i + 1) acc
and in_var ~start i acc =
if i - start > longest_var then
if i - start > longest_var + double_percent_len then
loop i acc
else if i = len then
acc
Expand Down