Bug fix: don't delete the lockfile if another instance of interimap is running.

diff --git a/Changelog b/Changelog
index 8cd8be23aeb29d68cc358a6c17305312160fe571..77f6f244768c315711086b31d26fec094c667865 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -25,6 +25,8 @@ interimap (0.2) upstream;
   * Set X.509 certificate purpose to 'SSL Server' for SSL_verify=YES.
   * Display the certificate chain, SSL protocol and cipher in debug
     mode.
+  * Bug fix: don't delete the lockfile if another instance of interimap
+    is running.
 
  -- Guilhem Moulin <guilhem@guilhem.org>  Wed, 09 Sep 2015 00:44:35 +0200
 

diff --git a/interimap b/interimap
index f9bee129978fc1dd72cae5b10eb9b19df49a1d05..401bfa2becf603b906947bb6e6313ae669e73487 100755 (executable)
--- a/interimap
+++ b/interimap
@@ -130,6 +130,7 @@ $SIG{TERM} = sub { cleanup(); exit 0; };
         close $lock;
         chomp $pid;
         my $msg = "LOCKFILE '$LOCKFILE' exists.";
+        undef $LOCKFILE; # don't delete the lockfile
         $msg .= " (Is PID $pid running?)" if defined $pid and $pid =~ /^[0-9]+$/;
         die $msg, "\n";
     }