From ea03c35fafb74e8e6f478986841444adfd203f42 Mon Sep 17 00:00:00 2001
From: Ben Peddell <klightspeed@killerwolves.net>
Date: Tue, 2 Aug 2016 02:48:31 +1000
Subject: [PATCH] Perl string inequality is "ne"

---
 tools/arkmanager | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/arkmanager b/tools/arkmanager
index 0f77f3a..01d7814 100755
--- a/tools/arkmanager
+++ b/tools/arkmanager
@@ -622,7 +622,7 @@ function numPlayersConnected(){
         my $idx = ord(substr($pdata, 0, 1));
         my ($name, $rest) = split(/\x00/, substr($pdata, 1), 2);
         $pdata = substr($rest, 8);
-        if ($name != "") {
+        if ($name ne "") {
           $active = $active + 1;
         }
       }
@@ -2130,7 +2130,7 @@ printStatus(){
         my $idx = ord(substr($pdata, 0, 1));
         my ($name, $rest) = split(/\x00/, substr($pdata, 1), 2);
         $pdata = substr($rest, 8);
-        if ($name != "") {
+        if ($name ne "") {
           $active = $active + 1;
         }
       }