From ff4c5d1ff2d6a6855e51eee26a3cd288aa0afca2 Mon Sep 17 00:00:00 2001
From: Devin Carraway <qpsmtpd@devin.com>
Date: Sun, 31 Jul 2005 09:02:42 +0000
Subject: [PATCH] Merge r536 from 0.31 branch (silence uninitialized-value
 warning on zero-length PID file)

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

diff --git a/qpsmtpd-forkserver b/qpsmtpd-forkserver
index 3deb06b..dba0731 100755
--- a/qpsmtpd-forkserver
+++ b/qpsmtpd-forkserver
@@ -113,7 +113,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) {