From da5c0a74fe0d70997edf3829d7ed60fcaad77639 Mon Sep 17 00:00:00 2001
From: Devin Carraway <qpsmtpd@devin.com>
Date: Sat, 30 Jul 2005 09:32:36 +0000
Subject: [PATCH] Fix unitialized-value warning if the PID file existed but was
 zero-length at startup time.

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

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index 20e5200..64f38d7 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -110,7 +110,7 @@ if ($PID_FILE) {
   if (-e $PID_FILE) {
     open PID, "+<$PID_FILE"
       or die "open pid_file: $!\n";
-    my $running_pid = <PID>; chomp $running_pid;
+    my $running_pid = <PID> || ''; chomp $running_pid;
     if ($running_pid =~ /(\d+)/) {
       $running_pid = $1;
       if (kill 0, $running_pid) {