X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=daemon%2Fdaemon.ml;h=eca02185ed85be874f16b6570eb3bee8e047ac23;hp=3aee15a157f65155327ad0971de71d1b6aa17a12;hb=fc824db2d9688b955ff5556483f45c783d27f804;hpb=8d48e7ada3131185cde1ba17da36518061034872

diff --git a/daemon/daemon.ml b/daemon/daemon.ml
index 3aee15a..eca0218 100644
--- a/daemon/daemon.ml
+++ b/daemon/daemon.ml
@@ -166,7 +166,13 @@ and reevaluate_whenjobs jobnames =
             with Not_found -> assert false in
           assert (jobname = job.job_name);
 
-          let r, job' = job_evaluate job !variables in
+          let r, job' =
+            try job_evaluate job !variables
+            with Invalid_argument err | Failure err ->
+              Syslog.error "error evaluating job %s (at %s): %s"
+                jobname (Camlp4.PreCast.Ast.Loc.to_string job.job_loc) err;
+              false, job in
+
           jobs := StringMap.add jobname job' !jobs;
 
           if !debug then