[svn:qpsmtpd] r540 - trunk

[email protected] 31 Jul 2005 09:02:43 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: aqua
Date: Sun Jul 31 02:02:42 2005
New Revision: 540

Modified:
   trunk/qpsmtpd-forkserver
Log:
Merge r536 from 0.31 branch (silence uninitialized-value warning on zero-length PID file)


Modified: trunk/qpsmtpd-forkserver
==============================================================================
--- trunk/qpsmtpd-forkserver	(original)
+++ trunk/qpsmtpd-forkserver	Sun Jul 31 02:02:42 2005
@@ -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) {