Skip to content
Browse files

add some warning

  • Loading branch information...
1 parent 0b7a2c8 commit f3f6465b1fa406573917d46bc02f261f0906590f @tuong tuong committed Jul 25, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/run.ml
View
2 src/run.ml
@@ -226,6 +226,8 @@ let run_process ?(add_to_env=[]) ?(add_to_path=[]) = function
mkdir (Filename.dirname name);
let str = String.concat " " (cmd :: args) in
log "cwd=%s path=%s name=%s %s" (Unix.getcwd ()) path name str;
+ if None <> try Some (String.index cmd ' ') with Not_found -> None then
+ Globals.warning "Command %S contains 1 space" cmd;
let r = Process.run ~env ~name cmd args in
if Process.is_failure r then (
Globals.warning "Command %S failed (see %s.{info,err,out})" str name;

0 comments on commit f3f6465

Please sign in to comment.
Something went wrong with that request. Please try again.