From 964ced5a0ffe146115194dc50bf755a241fa40a1 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Sat, 4 Dec 2021 21:27:49 +0700
Subject: T4047: use full string match in the regex validator

---
 src/validate_value.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/validate_value.ml b/src/validate_value.ml
index 32d34de..05d62b1 100644
--- a/src/validate_value.ml
+++ b/src/validate_value.ml
@@ -12,7 +12,7 @@ let rec validate_value buf value_constraint value =
   | Group l ->
     List.for_all (fun c -> validate_value buf c value) l
   | Regex s ->
-    (try let _ = Pcre.exec ~pat:s value in true
+    (try let _ = Pcre.exec ~pat:(Printf.sprintf "^%s$" s) value in true
      with Not_found -> false)
   | Exec c ->
     (* XXX: Unix.open_process_in is "shelling out", which is a bad idea on multiple levels,
-- 
cgit v1.2.3