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; my $signalled = kill 0,$pid;
$signalled ||= $!; # will either be 1 or an error code $signalled ||= $!; # will either be 1 or an error code
given($signalled) { # process signalled successfully
# process signalled successfully if($signalled == 1) {
when(1) { return $pid; } return $pid;
# exists, but no permissions to signal it # exists, but no permissions to signal it
when(EPERM) { return -1 * $pid } } elsif($signalled == EPERM) {
return -1 * $pid;
} }
return 0; return 0;