From fdbed71b4c056f920603808df94ac88bd3e20cab Mon Sep 17 00:00:00 2001
From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Tue, 24 Mar 2009 15:57:17 +0000
Subject: [PATCH]
---
main.ml | 1 -
unixsocketwatcher.ml | 2 +-
vsys.spec | 4 ++--
3 files changed, 3 insertions(+), 4 deletions(-)
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}}
--
2.47.0