diff options
Diffstat (limited to 'mysql-test/main/connect.test')
| -rw-r--r-- | mysql-test/main/connect.test | 11 |
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 |