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
This commit is contained in:
parent
ea28e88fa6
commit
a3ff03fec9
@ -113,6 +113,8 @@ if ($PID_FILE) {
|
|||||||
}
|
}
|
||||||
seek PID, 0, 0
|
seek PID, 0, 0
|
||||||
or die "Could not seek back to beginning of $PID_FILE: $!\n";
|
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 {
|
} else {
|
||||||
open PID, ">$PID_FILE"
|
open PID, ">$PID_FILE"
|
||||||
or die "open pid_file: $!\n";
|
or die "open pid_file: $!\n";
|
||||||
|
Loading…
Reference in New Issue
Block a user