diff options
| author | Oleksandr Byelkin <sanja@mariadb.com> | 2019-05-19 20:35:38 +0200 |
|---|---|---|
| committer | Oleksandr Byelkin <sanja@mariadb.com> | 2019-05-19 20:35:38 +0200 |
| commit | 04fa127bc936d5278bff7515363326ebd9f4f518 (patch) | |
| tree | 67eef53514200d34f9036757ed1d07c90296817f /mysql-test/main | |
| parent | 8feb78ef53d254539caa0ede374acf2d4db13d2b (diff) | |
| download | mariadb-git-04fa127bc936d5278bff7515363326ebd9f4f518.tar.gz | |
More fixed for perl test
Diffstat (limited to 'mysql-test/main')
| -rw-r--r-- | mysql-test/main/connect.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/mysql-test/main/connect.test b/mysql-test/main/connect.test index aad0103f773..2c6e4ae17a2 100644 --- a/mysql-test/main/connect.test +++ b/mysql-test/main/connect.test @@ -487,9 +487,10 @@ SET GLOBAL connect_timeout=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";; sleep 3; exit(0); EOF |