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

Bug #45771 AIX and i5/OS Perl bug: check_socket_path_length in MTR fails

Browse Source 
Bug is actually in Perl
Fixed by trapping and ignoring error from IO::Socket::UNIX
This commit is contained in:
Bjorn Munch 2009-08-05 09:41:40 +02:00
parent 252c37a639
commit 47227d7f6a
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,13 +126,29 @@ sub check_socket_path_length {
die "Could not create UNIX domain socket: $!" die "Could not create UNIX domain socket: $!"
unless defined $sock; unless defined $sock;
my $hostpath = eval {$sock->hostpath()};
if ($@) {
die unless $@ =~ /^Bad arg length for Socket::unpack_sockaddr_un/;
# Bug on AIX and i5/OS Perl IO::Socket::UNIX which dies with something
# like:
# Bad arg length for Socket::unpack_sockaddr_un, length is 25,
# should be 106 at /path/to/perl/lib/5.8.0/aix/Socket.pm line 380.
#
# Just fake it that everything is fine
$hostpath = $testfile;
}
die "UNIX domain socket path was truncated" die "UNIX domain socket path was truncated"
unless ($testfile eq $sock->hostpath()); unless ($testfile eq $hostpath);
$truncated= 0; # Yes, it worked! $truncated= 0; # Yes, it worked!
}; };
die "Unexpected failure when checking socket path length: $@"
if $@ and $@ !~ /^UNIX domain socket path was truncated/;
$sock= undef; # Close socket $sock= undef; # Close socket
rmtree($tmpdir); # Remove the tempdir and any socket file created rmtree($tmpdir); # Remove the tempdir and any socket file created
return $truncated; return $truncated;