database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-29 05:21:33 +03:00
Code Activity

Make sure the direcory where the test socket is to be created exists

Browse Source
This commit is contained in:
Magnus Svensson
2008-09-20 15:21:29 +03:00
parent 2f5e98264a
commit 67580cd220
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,6 +17,8 @@
package My::Platform;
use strict;
use File::Basename;
use My::File::Path; # Patched version of File::Path
use base qw(Exporter);
our @EXPORT= qw(IS_CYGWIN IS_WINDOWS IS_WIN32PERL
@ -104,11 +106,16 @@ sub check_socket_path_length {
my $sock;
eval {
# Create the directories where the
# socket till be created
mkpath(dirname($path));
$sock= new IO::Socket::UNIX
(
Local => $path,
Listen => 1,
);
};
if ($@)
{
@ -116,7 +123,7 @@ sub check_socket_path_length {
return 2;
}
if (!defined $sock){
# Could not create a UNIX domain socket
#print "Could not create UNIX domain socket: $!\n";
return 3;
}
if ($path ne $sock->hostpath()){