(no commit message)

diff --git a/main.ml b/main.ml
index 85ca561..43410ae 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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}}