+1 -1

gen/dune

reviewed

··· 1 1 (executable 2 2 (name gen_psl) 3 3 (modules gen_psl) 4 4 - (libraries str punycode)) 4 4 + (libraries re punycode)) 5 5 6 6 (rule 7 7 (targets publicsuffix_data.ml)

+1 -6

gen/gen_psl.ml

reviewed

··· 131 131 let version = ref None in 132 132 let commit = ref None in 133 133 (* Helper to check if string contains substring *) 134 134 - let contains_substring s sub = 135 135 - try 136 136 - let _ = Str.search_forward (Str.regexp_string sub) s 0 in 137 137 - true 138 138 - with Not_found -> false 139 139 - in 134 134 + let contains_substring s sub = Re.execp (Re.compile (Re.str sub)) s in 140 135 (* Helper to extract value after "KEY: " pattern *) 141 136 let extract_value line prefix = 142 137 let prefix_len = String.length prefix in