[svn:qpsmtpd] rev 523 - branches/0.31

[email protected] 29 Jul 2005 06:21:02 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: aqua
Date: Thu Jul 28 23:21:02 2005
New Revision: 523

Modified:
   branches/0.31/qpsmtpd-forkserver
Log:
Merge r493 from trunk to truncate PID file before re-use


Modified: branches/0.31/qpsmtpd-forkserver
==============================================================================
--- branches/0.31/qpsmtpd-forkserver	(original)
+++ branches/0.31/qpsmtpd-forkserver	Thu Jul 28 23:21:02 2005
@@ -113,6 +113,8 @@ if ($PID_FILE) {
     }
     seek PID, 0, 0
       or die "Could not seek back to beginning of $PID_FILE: $!\n";
+    truncate PID, 0
+      or die "Could not truncate $PID_FILE at 0: $!";
   } else {
     open PID, ">$PID_FILE"
       or die "open pid_file: $!\n";