X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcmd_ipc.t;h=22f73c1952b3c47288a744efea70402ad626f405;hb=6cc0e6870cb4950c08646769f2a7e30729b7d409;hp=b9f4d128138c3cdf60cb269df8ecff8eb7c775bb;hpb=0c89ebd477d1c7a695a0a0b3023c0d41abe573fa;p=public-inbox.git diff --git a/t/cmd_ipc.t b/t/cmd_ipc.t index b9f4d128..22f73c19 100644 --- a/t/cmd_ipc.t +++ b/t/cmd_ipc.t @@ -17,7 +17,8 @@ my $do_test = sub { SKIP: { my ($s1, $s2); my $src = 'some payload' x 40; socketpair($s1, $s2, AF_UNIX, $type, 0) or BAIL_OUT $!; - $send->($s1, fileno($r), fileno($w), fileno($s1), $src, $flag); + my $sfds = [ fileno($r), fileno($w), fileno($s1) ]; + $send->($s1, $sfds, $src, $flag); my (@fds) = $recv->($s2, my $buf, length($src) + 1); is($buf, $src, 'got buffer payload '.$desc); my ($r1, $w1, $s1a); @@ -39,7 +40,7 @@ my $do_test = sub { SKIP: { if (defined($SOCK_SEQPACKET) && $type == $SOCK_SEQPACKET) { $r1 = $w1 = $s1a = undef; $src = (',' x 1023) . '-' .('.' x 1024); - $send->($s1, fileno($r), fileno($w), fileno($s1), $src, $flag); + $send->($s1, $sfds, $src, $flag); (@fds) = $recv->($s2, $buf, 1024); is($buf, (',' x 1023) . '-', 'silently truncated buf'); $opens->();