orginal default ivy bus function did not create a string to return to caller

This commit is contained in:
lamestllama
2011-01-26 20:03:33 +10:30
parent cc65aa5fab
commit 1e8e355954
+2 -2
View File
@@ -41,11 +41,11 @@ let contains s substring =
try ignore (Str.search_forward (Str.regexp_string substring) s 0); true
with Not_found -> false
let default_ivy_bus =
let default_ivy_bus = String.copy (
try (Sys.getenv "IVY_BUS" )
with Not_found ->
(if contains (read_process_output "uname") "Darwin" then
"224.255.255.255:2010"
else
"127.255.255.255:2010")
"127.255.255.255:2010"))