Fixed to avoid use of smartmatch (damn you 5.18)

Webperl/Daemon.pm

@@ -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; }
+    if($signalled == 1) {
+        return $pid;
 
     # exists, but no permissions to signal it
-        when(EPERM) { return -1 * $pid }
+    } elsif($signalled == EPERM) {
+        return -1 * $pid;
     }
 
     return 0;