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

Fixed to avoid use of smartmatch (damn you 5.18)

Browse Source
This commit is contained in:
Chris 2014-10-04 22:10:50 +01:00
parent d323829b69
commit b5a69ccf89
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Webperl/Daemon.pm
View File

@ -174,12 +174,13 @@ sub running {
my $signalled = kill 0,$pid;
$signalled ||= $!; # will either be 1 or an error code
given($signalled) {
# process signalled successfully
when(1) { return $pid; }
# process signalled successfully
if($signalled == 1) {
return $pid;
# exists, but no permissions to signal it
when(EPERM) { return -1 * $pid }
# exists, but no permissions to signal it
} elsif($signalled == EPERM) {
return -1 * $pid;
}
return 0;