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';

Reply via email to