Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / src / client.c
index 2bd6402059e889fb3a79e3f446073435ff52602e..fe646d64f7f35efe75a93d16f649a96dace84814 100644 (file)
@@ -1117,6 +1117,8 @@ int rc;
   }
 
 printf("End of script\n");
+shutdown(sock, SHUT_WR);
+while ((rc = read(sock, inbuffer, sizeof(inbuffer))) > 0) ;
 close(sock);
 
 exit(0);