tags 670722 +confirmed thanks On Sat, Apr 28, 2012 at 01:53:00PM +0100, Nicholas Bamber wrote:
> The attached script comes from the MySQL test quite. > * What exactly did you do (or not do) that was effective (or > ineffective)? > It returns "SUCCESS" on Linux and "FAIL" on kFreeBSD. This is irrespective > of the length of the file. > > There is an error message thrown which is in results.txt. > FAILED > Bad arg length for Socket::unpack_sockaddr_un, length is 106, should be 110 > at /usr/lib/perl/5.14/Socket.pm line 278. Confirmed on asdfasdf.debian.net. A slightly more obvious test script attached. Testing with bleadperl now. -- Dominic Hargreaves | http://www.larted.org.uk/~dom/ PGP key 5178E2A5 from the.earth.li (keyserver,web,email)
#!/usr/bin/perl use IO::Socket::UNIX; use File::Temp qw /tempdir/; use Test::More; plan tests => 1; my $tmpdir = tempdir( CLEANUP => 1); my $testfile = $tmpdir . "/" . "x" x 3; my $sock = new IO::Socket::UNIX( Local => $testfile, Listen => 1, ); eval { $sock->hostpath }; is $@, '', 'can call hostpath';