From af216eee99565a00d1c4b53dd359cf54623f782c Mon Sep 17 00:00:00 2001
From: Ben Peddell <klightspeed@killerwolves.net>
Date: Sat, 20 Feb 2016 21:38:15 +1000
Subject: [PATCH] Fix typo when comparing strings

Perl uses `eq` to compare strings, not `==`.

Fixes 653e934268c876ac17bafa31998b9bb67c44abb6 Replace empty server
response with "Command processed"
---
 tools/arkmanager | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/arkmanager b/tools/arkmanager
index afb13ac..c0665f9 100755
--- a/tools/arkmanager
+++ b/tools/arkmanager
@@ -320,7 +320,7 @@ rconcmd() {
     auth($socket, $password);
     sendpkt($socket, 2, 2, $command);
     my ($resid, $restype, $rcvbody) = recvpkt($socket);
-    if ($rcvbody == "Server received, But no response!!") {
+    if ($rcvbody eq "Server received, But no response!!") {
       print "Command processed\n";
     } else {
       print $rcvbody, "\n";