From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Tue, 24 Mar 2009 15:57:17 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: vsys-0.9-0~11
X-Git-Url: http://git.onelab.eu/?p=vsys.git;a=commitdiff_plain;h=fdbed71b4c056f920603808df94ac88bd3e20cab

---

diff --git a/main.ml b/main.ml
index 85ca561..43410ae 100644
--- a/main.ml
+++ b/main.ml
@@ -26,7 +26,6 @@ let cmdspeclist =
   ]
 
 let _ =
-  print "Starting Vsys v%s\n" Globals.vsys_version;
   Arg.parse cmdspeclist (fun x->()) "Usage: vsys <list of mount points>";  
   Globals.logfd:=open_out_gen [Open_append;Open_creat] 0o644 !log_filepath;
   if (!Globals.backend == "") then
diff --git a/unixsocketwatcher.ml b/unixsocketwatcher.ml
index fa46e69..f55e9de 100644
--- a/unixsocketwatcher.ml
+++ b/unixsocketwatcher.ml
@@ -46,7 +46,7 @@ let receive_event (listening_socket_spec:fname_and_fd) (_:fname_and_fd) =
                         let _ = 
                           (* Close fds *)
                           for i = 3 to 1023 do
-                            if (i != fd) then close_if_open(i)
+                            if (i != fd) then close_if_open(Obj.magic i)
                           done;
                             execv execpath [|execpath;slice_name;sprintf "%d" fd|] (*with
                                 Unix_error(num,str1,str2)->logprint "Error %d: %s (%s)" (Obj.magic num) str1 str2;raise (Unix_error(num,str1,str2))*)
diff --git a/vsys.spec b/vsys.spec
index dff9d79..fdad75f 100644
--- a/vsys.spec
+++ b/vsys.spec
@@ -9,8 +9,8 @@
 %define url $URL$
 
 %define name vsys
-%define version 0.7
-%define taglevel 26
+%define version 0.9
+%define taglevel 0
 
 %define release %{taglevel}%{?pldistro:.%{pldistro}}%{?date:.%{date}}