From b5a69ccf89dfa3b50c59b2e21de39ebabf9e3d61 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sat, 4 Oct 2014 22:10:50 +0100
Subject: [PATCH] Fixed to avoid use of smartmatch (damn you 5.18)

---
 Webperl/Daemon.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/Webperl/Daemon.pm b/Webperl/Daemon.pm
index fca01f3..6774c2d 100644
--- a/Webperl/Daemon.pm
+++ b/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; }
+    # 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;