# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1259595424 0
# Node ID d92c3fc8e193282a67da4e921f3159165313f31d
# Parent  b7ea5ea562e0a28e01736cbf7b7fc4b20f2f579d
CA-35165: Mute the error when looking for SM backends in directories which don't exist.

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r b7ea5ea562e0 -r d92c3fc8e193 ocaml/xapi/sm_exec.ml
--- a/ocaml/xapi/sm_exec.ml	Mon Nov 30 15:37:03 2009 +0000
+++ b/ocaml/xapi/sm_exec.ml	Mon Nov 30 15:37:04 2009 +0000
@@ -336,11 +336,13 @@
 
   List.iter 
     (fun (f, dir) ->
-      debug "Scanning directory %s for SM backends..." dir;
-      try Array.iter f (Sys.readdir dir)
-      with _ ->
-        log_backtrace ();
-        error "Error checking directory %s for SM backends" dir
+		 if Sys.file_exists dir then begin
+		   debug "Scanning directory %s for SM backends" dir;
+		   try Array.iter f (Sys.readdir dir)
+		   with e ->
+			   log_backtrace ();
+			   error "Error checking directory %s for SM backends: %s" dir (ExnHelper.string_of_exn e)
+		 end else debug "Not scanning %s for SM backends: directory does not exist" dir
     ) 
     [ check_driver, sm_dir;
       check_daemon, sm_daemon_dir; ]