fix tcp disconnect and perl

Author: sanja-byelkin

mysql-test/main/connect.result

@@ -421,6 +421,10 @@ Aborted_connects	0
 Aborted_connects_preauth	0
 SET GLOBAL log_warnings=2;
 NOT FOUND /This connection closed normally without authentication/ in mysqld.1.err
+# let tcp to detect disconnect
+select sleep(1);
+sleep(1)
+0
 SHOW GLOBAL STATUS LIKE 'Aborted_connects%';
 Variable_name	Value
 Aborted_connects	1

mysql-test/main/connect.test

@@ -471,11 +471,14 @@ SET GLOBAL log_warnings=2;
 
 --perl
 use Socket;
-use autodie;
-socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp"));
-connect(SOCK, pack_sockaddr_in($ENV{MASTER_MYPORT}, inet_aton("localhost")));
+socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp"))
+  or die "Can't create a tcp socket!\n";
+connect(SOCK, pack_sockaddr_in($ENV{MASTER_MYPORT}, inet_aton("localhost")))
+  or die "Can't connect to port $ENV{MASTER_MYPORT}!\n";
 exit(0);
 EOF
+--echo # let tcp to detect disconnect
+select sleep(1);
 
 SHOW GLOBAL STATUS LIKE 'Aborted_connects%';
 
@@ -490,7 +493,7 @@ use Socket;
 socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp"))
   or die "Can't create a tcp socket!\n";
 connect(SOCK, pack_sockaddr_in($ENV{MASTER_MYPORT}, inet_aton("localhost")))
-  or die "Can't connect to port $ENV{MASTER_MYPORT}!\n";;
+  or die "Can't connect to port $ENV{MASTER_MYPORT}!\n";
 sleep 3;
 exit(0);
 EOF