typo

diff --git a/perl/cluster.pl b/perl/cluster.pl
index bf9aecef411624cdceb339a09e69fc6e83bfdcdf..2c94dcc1cb619571baef325fe4607071c453bb1c 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -159,7 +159,7 @@ sub rec
                if ($user->lockout) {
                        Log('DXCommand', "$call is locked out, disconnected");
                        $conn->send_now("Z$call|bye"); # this will cause 'client' to disconnect
-                       $conn->disconect;
+                       $conn->disconnect;
                        return;
                }