[svn:qpsmtpd] rev 525 - branches/0.31

Author: aqua
Date: Fri Jul 29 00:22:36 2005
New Revision: 525

Modified:
   branches/0.31/qpsmtpd-forkserver
Log:
Remove PID file on exit, if we were told to create one with --pid-file


Modified: branches/0.31/qpsmtpd-forkserver
==============================================================================
--- branches/0.31/qpsmtpd-forkserver	(original)
+++ branches/0.31/qpsmtpd-forkserver	Fri Jul 29 00:22:36 2005
@@ -81,6 +81,9 @@ sub REAPER {
 sub HUNTSMAN {
   $SIG{CHLD} = 'DEFAULT';
   kill 'INT' => keys %childstatus;
+  if ($PID_FILE && -e $PID_FILE) {
+  	unlink $PID_FILE or ::log(LOGERROR, "unlink: $PID_FILE: $!");
+  }
   exit(0);
 }