add a sleep after sending the connected message

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 2fd19873eae890b619030266f1bc34db625bf030..be21d9583cf37682b7b21ab6758e019bf11319c8 100644 (file)
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -116,6 +116,7 @@ sub to_connected
        $conn->{timeout}->del if $conn->{timeout};
        delete $conn->{timeout};
        $conn->_send_file("$main::data/connected");
+       Msg->sleep(1);
        &{$conn->{rproc}}($conn, "$dir$call|$sort");
 }