mldonkey-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverMain.ml


From: mldonkey-commits
Subject: [Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverMain.ml
Date: Mon, 10 Oct 2005 11:18:25 -0400

Index: mldonkey/src/daemon/driver/driverMain.ml
diff -u mldonkey/src/daemon/driver/driverMain.ml:1.77 
mldonkey/src/daemon/driver/driverMain.ml:1.78
--- mldonkey/src/daemon/driver/driverMain.ml:1.77       Thu Oct  6 17:34:21 2005
+++ mldonkey/src/daemon/driver/driverMain.ml    Mon Oct 10 15:18:24 2005
@@ -584,15 +584,11 @@
   end;
   Unix32.external_start (CommonGlobals.version());
 
-(* Doesn't work on windows with mingw, because getpid always returns 948 *)
   (
     let pid_filename =
       Printf.sprintf "%s.pid" (Filename.basename Sys.argv.(0))
     in
     let pid_file, s =
-      if Autoconf.system = "windows" then
-        pid_filename, "mlnet"
-      else
         Filename.concat !pid pid_filename,
        Printf.sprintf "%s\n" (string_of_int(Unix.getpid()))
     in
@@ -600,7 +596,7 @@
     output_string oc s;
     close_out oc;
     CommonGlobals.do_at_exit (fun _ -> try Sys.remove pid_file with _ -> ());
-    if !verbose && Autoconf.system <> "windows" then
+    if !verbose then
       lprintf_nl (_b "Starting with pid %s") (string_of_int(Unix.getpid ()))
   );
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]