diff options
Diffstat (limited to 'src/validate_value.ml')
| -rw-r--r-- | src/validate_value.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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, |