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

2 files changed, 3 insertions, 0 deletions

diff --git a/Changelog b/Changelog
index 8cd8be2..77f6f24 100644
--- 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 f9bee12..401bfa2 100755
--- 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";
     }