From 6a7bf6f78c20669650bd9a408417bbd4bf803a37 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Wed, 29 Jan 2025 15:17:24 +0100
Subject: [PATCH] clusterd: Refactor run_cmd into its only caller

---
 clusterd/clusterd | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/clusterd/clusterd b/clusterd/clusterd
index d40c351..2988e48 100755
--- a/clusterd/clusterd
+++ b/clusterd/clusterd
@@ -951,7 +951,7 @@ sub clp_rx_LSOF {
     close $socket;
 }
 
-sub run_cmd {
+sub clp_rx_CMD {
     my ($socket,@cmd)=@_;
     my $pid=fork;
     unless (defined $pid) {
@@ -1016,6 +1016,7 @@ sub run_cmd {
             }
         }
     }
+    close $socket;
 }
 
 #----------- CLP cluster protocol  -----------------------------
@@ -1085,12 +1086,6 @@ sub clp_send_message { # clp_send_message($socket, @args)
     $s->send(pack('n',length($data)).$data);
 }
 
-sub clp_rx_CMD {
-    my ($socket,@args)=@_;
-    run_cmd($socket,@args);
-    close $socket;
-}
-
 sub send_tcp_cp_sync {
     my ($s, @args) = @_;
     my $data = sign($CLUSTER_PW, encode(@args));