[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) {