summaryrefslogtreecommitdiff
path: root/mysql-test/main/connect.test
diff options
context:
space:
mode:
Diffstat (limited to 'mysql-test/main/connect.test')
-rw-r--r--mysql-test/main/connect.test11
1 files changed, 7 insertions, 4 deletions
diff --git a/mysql-test/main/connect.test b/mysql-test/main/connect.test
index 2c6e4ae17a2..d0683cf7a4a 100644
--- a/mysql-test/main/connect.test
+++ b/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