1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

WL#4189 Wrap the check for socket path length in eval

Browse Source
This commit is contained in:
Magnus Svensson 2008-09-15 16:27:12 +02:00
parent b84fb2e862
commit af23ec8579
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mysql-test/lib/My/Platform.pm
View File

@ -102,14 +102,22 @@ sub check_socket_path_length {
require IO::Socket::UNIX;
my $sock = new IO::Socket::UNIX
(
Local => $path,
Listen => 1,
);
my $sock;
eval {
$sock= new IO::Socket::UNIX
(
Local => $path,
Listen => 1,
);
};
if ($@)
{
print $@, '\n';
return 2;
}
if (!defined $sock){
# Could not create a UNIX domain socket
return 0; # Ok, will not be used by mysqld either
return 3;
}
if ($path ne $sock->hostpath()){
# Path was truncated