[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonOptions.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonOptions.ml
diff -u mldonkey/src/daemon/common/commonOptions.ml:1.63 
mldonkey/src/daemon/common/commonOptions.ml:1.64
--- mldonkey/src/daemon/common/commonOptions.ml:1.63    Thu Jul  7 00:25:45 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Sun Jul 10 13:28:50 2005
@@ -87,17 +87,17 @@
      exit 2);
   Unix2.can_write_to_directory file_basedir;
   Unix.chdir file_basedir;
-
-  if Sys.file_exists "mlnet.pid" then
-    begin
-      lprintf "\n\n\nPID file mlnet.pid exists in %s\n"
-      file_basedir;
-      lprintf "This means another MLDonkey process could still be working\n";
-      lprintf "with this directory. Please shut it down before starting\n";
-      lprintf "a new instance here. If you are sure no other process uses\n";
-      lprintf "this directory delete mlnet.pid and restart the core.\n";
-      exit 2
-    end;
+  if (String2.starts_with (Filename.basename Sys.argv.(0))  "mlnet")
+    then if Sys.file_exists "mlnet.pid"
+      then begin
+        lprintf "\n\n\nPID file mlnet.pid exists in %s\n"
+        file_basedir;
+        lprintf "This means another MLDonkey process could still be working\n";
+        lprintf "with this directory. Please shut it down before starting\n";
+        lprintf "a new instance here. If you are sure no other process uses\n";
+        lprintf "this directory delete mlnet.pid and restart the core.\n";
+        exit 2
+      end;
 
   lprintf "The .ini-files are saved in %s\n" file_basedir;