From bd08c0a87a906c312deeed28f55bd94e76fecac7 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sat, 26 Oct 2013 15:15:38 +0100 Subject: [PATCH] Fix file_contains_string so it matches exact strings, not regexps. --- goaljobs.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/goaljobs.ml b/goaljobs.ml index fcbcf23..4024b6d 100644 --- a/goaljobs.ml +++ b/goaljobs.ml @@ -216,7 +216,7 @@ let url_exists url = goal_failed msg let file_contains_string filename str = - let cmd = sprintf "grep -q %s %s" (quote str) (quote filename) in + let cmd = sprintf "grep -q -F %s %s" (quote str) (quote filename) in match Sys.command cmd with | 0 -> true | 1 -> false -- 1.8.3.1