From a3ff03fec96f726b0efb5035189ea4810bf42d2f Mon Sep 17 00:00:00 2001
From: Devin Carraway <qpsmtpd@devin.com>
Date: Fri, 29 Jul 2005 06:21:02 +0000
Subject: [PATCH] Merge r493 from trunk to truncate PID file before re-use

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@523 958fd67b-6ff1-0310-b445-bb7760255be9
---
 qpsmtpd-forkserver | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index 5971e52..5db808a 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -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";