give peer a chance to get the message before closing the socket

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@2221 48e7efb5-ca39-0410-a469-dd3cf9ba447f

diff --git a/examples/gras/rpc/rpc.c b/examples/gras/rpc/rpc.c
index 8eadcfd..94fe661 100644 (file)
--- a/examples/gras/rpc/rpc.c
+++ b/examples/gras/rpc/rpc.c
@@ -196,6 +196,7 @@ int client(int argc,char *argv[]) {
   
   gras_msg_send(toserver,gras_msgtype_by_name("kill"),NULL);
   gras_msg_send(toforwarder,gras_msgtype_by_name("kill"),NULL);
+  gras_os_sleep(1); /* give peer a chance to get the message before closing the socket */
 
   /* 11. Cleanup the place before leaving */
   gras_socket_close(toserver);