Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Only check pidfile if it exists.

Browse Source
This commit is contained in:
Chris 2014-02-03 19:50:55 +00:00
parent 9330b05af8
commit c317f9575a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Webperl/Daemon.pm
View File

@ -163,8 +163,11 @@ sub detach {
sub running {
my $self = shift;
my $pid = eval { read_pid($self -> {"pidfile"}) };
my $pid;
if(-f $self -> {"pidfile"}) {
eval { $pid = read_pid($self -> {"pidfile"}) };
print $@ if($@);
}
return 0 if(!$pid);
my $signalled = kill 0,$pid;