clusterd: Refactor run_cmd into its only caller

clusterd/clusterd

@@ -952,7 +952,7 @@ sub clp_rx_LSOF {
     close $socket;
 }
 
-sub run_cmd {
+sub clp_rx_CMD {
     my ($socket,@cmd)=@_;
     my $pid=fork;
     unless (defined $pid) {
@@ -1017,6 +1017,7 @@ sub run_cmd {
             }
         }
     }
+    close $socket;
 }
 
 #----------- CLP cluster protocol  -----------------------------
@@ -1086,12 +1087,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));