From f19a5e813d7a311601dbbc3014522d606d1bba39 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 0b4148f..24c2556 100644
--- a/src/validate_value.ml
+++ b/src/validate_value.ml
@@ -3,7 +3,7 @@ type check = Regex of string | Exec of string
 let validate_value buf value_constraint value =
   match value_constraint with
   | 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