Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / src / client.c

diff --git a/test/src/client.c b/test/src/client.c
index 2bd6402059e889fb3a79e3f446073435ff52602e..fe646d64f7f35efe75a93d16f649a96dace84814 100644 (file)
--- a/test/src/client.c
+++ b/test/src/client.c
@@ -1117,6 +1117,8 @@ int rc;
   }
 
 printf("End of script\n");
   }
 
 printf("End of script\n");

+shutdown(sock, SHUT_WR);
+while ((rc = read(sock, inbuffer, sizeof(inbuffer))) > 0) ;

 close(sock);
 
 exit(0);
 close(sock);
 
 exit(0);